VBA跨工作表移动列数据使用Offset触发1004错误求解

• 对整列对象调用Offset(7,0)时，返回的范围会从原列第8行开始整体向下偏移7行，范围末尾会超出Excel工作表的最大行上限，本身就是非法范围，直接触发运行时错误。
• 直接读取整列Value2会拿到全表100多万行的空值+数据组成的数组，和实际需要写入的目标范围尺寸完全不匹配，就算不报错也会写入大量冗余空值，运行效率极低。
• 第三次尝试的.Columns(7, ecol)语法错误，Columns属性的参数要么是单个列号/列标，要么传两个参数代表起止列，不支持传入（行号,列号）的单元格定位写法。
• 你最初贴的可运行版本中.cells(7,.columns,count)存在笔误，columns和count之间的逗号应该改为点，即.Columns.Count，你后续的尝试已经修正了这个问题。

完全不使用Copy/Cut方法，通过数组直接赋值，自动适配动态数据范围：

Sub 跨表按列写入数据()
    Dim ws As Worksheet, ws2 As Worksheet
    Dim ecol As Long, srcLastRow As Long
    ' 按需替换为你实际的工作表名称
    Set ws = ThisWorkbook.Worksheets("目标工作表")
    Set ws2 = ThisWorkbook.Worksheets("源数据工作表")
    
    ' 计算目标工作表第7行的写入列位置
    With ws
        ' 如果需要写入到当前最后一个非空列的右侧空白列，给下面的ecol结果+1即可
        ecol = .Cells(7, .Columns.Count).End(xlToLeft).Column
    End With
    
    ' 读取源表AB列的动态数据并写入目标位置
    With ws2
        ' 定位AB列实际有数据的最后一行，避免读取整列冗余数据
        srcLastRow = .Cells(.Rows.Count, "AB").End(xlUp).Row
        ' 空表判断：如果AB列无有效数据直接退出，避免报错
        If srcLastRow < 1 Then Exit Sub
        ' 源范围和目标范围尺寸对齐后直接赋值，无剪贴板操作
        ws.Cells(7, ecol).Resize(srcLastRow, 1).Value2 = .Range("AB1:AB" & srcLastRow).Value2
    End With
End Sub

• 如果你的源数据AB列不是从第1行开始（比如也是从第7行开始有数据），只需要把源范围改成.Range("AB" & 实际起始行号 & ":AB" & srcLastRow)，同时确保目标范围Resize的行数和源范围行数一致即可。
• 这种直接数组赋值的方式比Copy/Cut快10~100倍，数据量越大优势越明显，且不会触发剪贴板占用的相关异常。

内容的提问来源于stack exchange，提问作者rossross