将excel中多行多列数据处理成多行双列

将excel中多行多列数据处理成多行双列

按信Alt+F11

Sub 重排()

 Dim i, j, r

 Dim arr(1 To 450000, 1 To 2)

 For i = 1 To [a1000000].End(xlUp).Row

   For j = 1 To 10 Step 2

    r = r + 1

    arr(r, 1) = Cells(i, j)

    arr(r, 2) = Cells(i, j + 1)

   Next

  Next

 [L1:M450000] = arr

End Sub

运行后即可处理好数据。在倒数第二行中，L和M只的是在LM两列显示数据，在具体处理时调整修改。