EXCEL使用VBA，很多组测试数据存在一列里，如何把多组数据重新按标题分开，分成多列

Question

数据很多组，都在两列里面按照相同标题行切分开，分成多列并排。

Answer 1

Sub 数据分离()
    Dim rng As Range, t As Integer, irow As Long
    t = 4
    For Each rng In Range("A1").Resize(Range("A" & Rows.Count).End(3).Row, 1)
        If rng = "NAME" Then t = t + 2
        irow = Cells(Rows.Count, t).End(3).Row + 1
        If Cells(1, t) = "" Then irow = 1
        Cells(irow, t) = rng
        Cells(irow, t + 1) = rng.Offset(, 1)
    Next
End Sub

代码我没测试，你自己试一下吧。