你这个代码将G:I的数据始终粘贴到 L1?
估计是依次复制到第1行，从L1开始
Sub 宏3()
Dim i, k
For i = 56 To Range("G65536").End(xlUp).Row
k = WorksheetFunction.CountA(Range("L1:AZ1"))
'MsgBox k
Range(Cells(i, "g"), Cells(i, "I")).Copy Cells(1, k + 1 + 11)
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024