将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两列显示数据,在具体处理时调整修改。