excel多个列合并一列，上下叠加
发布网友
发布时间：2022-04-22 00:31
共1个回答
热心网友
时间：2023-06-30 05:50
用vba代码
几句话就完成
函数忘记了，要用偏移函数
=OFFSET($B$2,MOD(ROW(A2)-1,30),INT((ROW(A2)-1)/30))
30，表示每列需要合并的数据为30行，没代码智能。
Sub 合并()Dim I, K
For K = 3 To 13
X = Cells(65536, K).End(xlUp).Row
Y = Cells(65536, 2).End(xlUp).Row
Range(Cells(2, K), Cells(X, K)).Copy Cells(Y + 1, 2)
Next
End Sub
