VBA选择预定义范围时出现Error 1004问题求助

我明白你现在的困惑：Error 1004虽然消失了，但代码始终没法切换到Sheet1选中目标行范围。核心问题出在单元格对象（Cells）的父工作表没有明确指定，导致它默认绑定到当前活动工作表，和你想操作的Sheet1脱节了。

问题根源分析 #

你之前的代码ActiveSheet.Range(Cells(k, 1), Cells(l, 17)).Select里，Range指定了ActiveSheet，但里面的Cells(k,1)和Cells(l,17)没有绑定任何工作表，它们会自动关联到当前活动的工作表。如果你的活动表不是Sheet1，那这个Range其实是在活动表上创建的，自然不会切换到Sheet1选中目标范围。

正确的解决方案 #

如果你确实需要切换到Sheet1并选中指定范围，要确保所有的单元格对象都明确绑定到Sheet1，同时激活Sheet1（如果需要让用户看到选中状态）：

方案1：直接指定父工作表

' 先激活Sheet1
Worksheets("Sheet1").Activate
' 明确让Range和Cells都属于Sheet1
Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(k, 1), Worksheets("Sheet1").Cells(l, 17)).Select

方案2：用With语句简化代码（更推荐）

With语句可以避免重复写Worksheets("Sheet1")，让代码更简洁易读：

With Worksheets("Sheet1")
    .Activate ' 激活Sheet1，让用户看到选中的范围
    .Range(.Cells(k, 1), .Cells(l, 17)).Select ' 注意Cells前的点号，代表继承With的父对象（Sheet1）
End With

进阶建议：尽量避免使用Activate和Select #

在VBA开发中，频繁使用Activate和Select不仅效率低，还容易因为活动表变化导致意外错误。如果你的最终目的是对这个范围进行操作（比如复制、设置格式、用于数据透视表数据源），可以直接操作范围而不需要选中它：

With Worksheets("Sheet1")
    ' 定义目标范围
    Dim targetRange As Range
    Set targetRange = .Range(.Cells(k, 1), .Cells(l, 17))
    
    ' 示例：将范围作为数据透视表的数据源
    Dim pvtCache As PivotCache
    Set pvtCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=targetRange)
    
    ' 其他操作示例：复制到Sheet2
    targetRange.Copy Destination:=Worksheets("Sheet2").Range("A1")
End With

这样既避免了切换工作表的麻烦，也让代码更健壮。

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