有86列, 82行的数据, 要合并到一列中去
Sub test()
Dim k As Integer
k = 0
For j = 1 To 86 //列号
For i = 1 To 82 //行号
k = k + 1
Cells(k, 88) = Cells(i, j) //都放到第88列里
Next i, j
End Sub
有86列, 82行的数据, 要合并到一列中去
Sub test()
Dim k As Integer
k = 0
For j = 1 To 86 //列号
For i = 1 To 82 //行号
k = k + 1
Cells(k, 88) = Cells(i, j) //都放到第88列里
Next i, j
End Sub