vba给一列中的数据分类，谢谢了 我的数据是这样的，从B列开始，B1是result，然后就是一些数据，然后到大

到大概B60，就又有一个result，跟一批数据，然后又到result。我想问怎么把这么从result开始到result结束的列数据，分离到新的列？

Sub test()
    Dim i%, j%, n%, m%
    n = 2
    i = Range("B65536").End(xlUp).Row
    For j = 1 To i
        If Cells(j, "B") = "result" Then
            n = n + 1
            Cells(1, n) = "result"
            Do While Cells(j + 1, "B") <> "result"
                m = m + 1
                Cells(m + 1, n) = Cells(j + 1, "B")
                j = j + 1
                If j > i Then Exit Do
            Loop
        End If
        m = 0
    Next
End Sub

搜一下：vba给一列中的数据分类，谢谢了 我的数据是这样的，从B列开始，B1是result，然后就是一些数据，然后到大

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息