VBA合并多列到一列

有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