求多列数据简易移动方法见截屏

offset

吃饭前花几分钟给你简单写下，方法挺多的，没细想。默认从ai单元格开始记录数据

Sub test()
Dim arr, strr, last, num, i, j
arr = [a1].CurrentRegion
For i = 1 To UBound(arr, 1)
num = 3
strr = ActiveSheet.UsedRange.Address
last = Range(Replace(Mid(strr, InStr(1, strr, ":") + 1, 99), "$", "")).Column
For j = 1 To UBound(arr, 2)
Cells(i, last + num) = arr(i, j)
num = num + 1
Next
Next
End Sub