VBA中使用Cells作为Range参数选择单元格失败求助

你的代码无法正常运行的核心原因是：Cells(1,6)和Cells(1,9)没有明确指定所属的工作表，VBA默认会将它们关联到当前活动工作表，而非你目标的Importworkbook.Worksheets(4)。哪怕你调用了Importworkbook.Activate，也可能因为代码执行时的上下文差异，导致Cells指向错误的工作表，最终让Range的两个参数来自不同工作表，触发运行错误。

修复方法1：明确指定Cells的父对象 #

直接给每个Cells加上目标工作表的前缀，确保它们属于同一个工作表：

Public Sub selection()
    Debug.Print Importworkbook.Name
    Importworkbook.Worksheets(4).Range( _
        Importworkbook.Worksheets(4).Cells(1, 6), _
        Importworkbook.Worksheets(4).Cells(1, 9) _
    ).Select
End Sub

修复方法2：用With语句简化代码 #

用With绑定目标工作表，内部的.会自动关联到该工作表，代码更简洁易读：

Public Sub selection()
    Debug.Print Importworkbook.Name
    With Importworkbook.Worksheets(4)
        .Range(.Cells(1, 6), .Cells(1, 9)).Select
    End With
End Sub

额外建议：尽量避免使用Select/Activate #

VBA中直接操作对象比选中操作效率更高，也更不容易出错。比如你如果要处理这个区域的数据，不需要选中，直接操作即可：

' 示例：将目标区域的值复制到当前工作簿的Sheet1
Public Sub CopyData()
    With Importworkbook.Worksheets(4)
        .Range(.Cells(1, 6), .Cells(1, 9)).Copy ThisWorkbook.Sheets("Sheet1").Range("A1")
    End With
End Sub

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