VBA代码如何引用单元格I2复制指定命名区域至目标工作表？

你之前代码的问题 #

• 变量声明语法错误：正确的Range对象声明应该是 Dim col As Range，你写的Dim col range不符合VBA语法规范。
• 对象赋值错误：Set col = "I2"是将字符串直接赋值给Range对象，这是无效的。要引用单元格，应该写成Set col = Worksheets("C").Range("I2")；如果是要获取单元格里的文本内容，应该用Dim colName As String: colName = Worksheets("C").Range("I2").Value。

解决方案1：直接通过区域名称引用复制 #

这种方法适用于I2单元格里的内容是合法的Range名称（比如Test[col2]）：

Sub CopySpecifiedColumn()
    Dim wsM As Worksheet, wsC As Worksheet
    Dim targetRangeName As String
    Dim sourceRange As Range
    
    ' 绑定工作表对象
    Set wsM = ThisWorkbook.Worksheets("M")
    Set wsC = ThisWorkbook.Worksheets("C")
    
    ' 获取C表I2中的目标区域名称
    targetRangeName = wsC.Range("I2").Value
    
    ' 尝试引用M表中的对应区域
    On Error Resume Next
    Set sourceRange = wsM.Range(targetRangeName)
    On Error GoTo 0
    
    ' 验证区域是否存在，存在则复制到C表指定位置（示例为A2起始）
    If Not sourceRange Is Nothing Then
        sourceRange.Copy Destination:=wsC.Range("A2")
    Else
        MsgBox "指定的区域不存在，请检查C表I2单元格内容"
    End If
End Sub

解决方案2：通过ListObject（表格）引用列复制 #

因为你的数据是在名为Test的表格中，用ListObject操作更安全，还能自动处理表头和数据区域：

Sub CopyTableColumn()
    Dim wsM As Worksheet, wsC As Worksheet
    Dim testTable As ListObject
    Dim targetColName As String
    Dim sourceCol As ListColumn
    
    ' 绑定工作表和表格对象
    Set wsM = ThisWorkbook.Worksheets("M")
    Set wsC = ThisWorkbook.Worksheets("C")
    Set testTable = wsM.ListObjects("Test")
    
    ' 提取列名：从"Test[col2]"中取出col2部分
    targetColName = Replace(Replace(wsC.Range("I2").Value, "Test[", ""), "]", "")
    
    ' 查找表格中的对应列
    On Error Resume Next
    Set sourceCol = testTable.ListColumns(targetColName)
    On Error GoTo 0
    
    If Not sourceCol Is Nothing Then
        ' 复制表头+数据区域到C表A2起始位置
        Union(testTable.HeaderRowRange.Columns(sourceCol.Index), sourceCol.DataBodyRange).Copy _
            Destination:=wsC.Range("A2")
        
        ' 如果只需要复制数据区域，替换成下面这句：
        ' sourceCol.DataBodyRange.Copy Destination:=wsC.Range("A2")
    Else
        MsgBox "Test表格中不存在名为" & targetColName & "的列"
    End If
End Sub

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