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

 

    原文作者:lein_wang
    原文地址: https://blog.csdn.net/lein_wang/article/details/110196619
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞