Excel VBA技术问题：使用表名作为变量时出现‘Object Required’错误

别客气呀！新手刚接触VBA时遇到这种语法问题太正常了，我刚学的时候也踩过不少类似的坑😉

你遇到的「Object Required」错误，大概率是因为对象类型变量赋值时没加Set关键字，或者没有明确指定对象所属的父容器（比如工作表），导致VBA找不到对应的对象。我给你举个常见的错误场景和修正后的示例：

错误示例（触发你遇到的报错） #

Sub CopyColumns()
    Dim sourceRange As Range
    sourceRange = Sheet1.Range("A:C") ' 这里没加Set，对象赋值必须用Set！
    sourceRange.Copy Destination:=Sheet2.Range("A1")
End Sub

修正后的代码（两种常见实现方式） #

方式1：指定具体列逐个复制（适合不连续列）

Sub CopyPartialColumns()
    ' 声明工作表对象，避免依赖当前激活的表，更稳定
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    Dim lastRow As Long ' 存储源表最后一行的行号
    
    ' 替换成你实际的工作表名称
    Set sourceWs = ThisWorkbook.Worksheets("源数据")
    Set targetWs = ThisWorkbook.Worksheets("目标表")
    
    ' 获取源表A列最后一行数据的行号，避免复制大量空行
    lastRow = sourceWs.Cells(sourceWs.Rows.Count, "A").End(xlUp).Row
    
    ' 复制需要的列：比如把源表的A、C、E列，分别放到目标表的A、B、C列
    sourceWs.Range("A2:A" & lastRow).Copy Destination:=targetWs.Range("A2")
    sourceWs.Range("C2:C" & lastRow).Copy Destination:=targetWs.Range("B2")
    sourceWs.Range("E2:E" & lastRow).Copy Destination:=targetWs.Range("C2")
End Sub

方式2：复制连续/不连续的多列范围

如果需要复制的列是连续的一部分，或者可以用逗号分隔指定不连续列，也可以直接复制整个范围：

Sub CopyMultipleColumns()
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    
    Set sourceWs = ThisWorkbook.Worksheets("源数据")
    Set targetWs = ThisWorkbook.Worksheets("目标表")
    
    ' 复制A-C列和E列到目标表的A1开始的位置
    sourceWs.Range("A:C,E:E").Copy Destination:=targetWs.Range("A1")
End Sub

关键注意点 #

1. 对象赋值必须用Set：所有像工作表、单元格区域这种对象类型的变量，赋值时一定要加Set关键字，比如Set sourceWs = ...，这是触发你报错的核心原因。
2. 明确指定工作表：不要直接写Range("A:C")，一定要指定是哪个工作表的范围，否则VBA会默认用当前激活的工作表，很容易出问题。
3. 避免复制空行：用End(xlUp)获取最后一行数据的行号，可以只复制有数据的部分，效率更高。

如果你的第3行代码是类似给对象变量赋值没加Set的情况，加上Set应该就能解决啦！

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