Excel VBA：如何用Range选择可变行数单元格并解决1004错误

错误原因 #

你代码里的Cells(2,17)和Cells(rowIdx,17)没有绑定指定工作表，VBA会默认将其关联到当前活动工作表。如果活动表不是quoteData_1，就会出现工作表对象不匹配的问题，触发1004错误。

修正方案（基于已有rowIdx） #

给所有Cells对象加上工作表前缀，确保所有单元格操作都指向目标工作表：

Dim ws As Worksheet
Set ws = Sheets("quoteData_1")

Set myRng = ws.Range(ws.Cells(2, 17), ws.Cells(rowIdx, 17))
Set r = ws.Range("Z2")
myRng.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=myRng, CopyToRange:=r, Unique:=True

更可靠的动态范围写法（无需提前计算rowIdx） #

直接获取Q列的真实最后一行（跳过空行），避免rowIdx计算错误的情况：

Dim ws As Worksheet
Dim lastRow As Long
Set ws = Sheets("quoteData_1")

' 获取Q列最后一个非空单元格的行号
lastRow = ws.Cells(ws.Rows.Count, 17).End(xlUp).Row

' 加入边界判断，避免无数据时出错
If lastRow >= 2 Then
    Set myRng = ws.Range(ws.Cells(2, 17), ws.Cells(lastRow, 17))
    Set r = ws.Range("Z2")
    myRng.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=myRng, CopyToRange:=r, Unique:=True
Else
    MsgBox "Q列没有可提取的数据"
End If

关键注意事项 #

• 所有单元格操作必须明确绑定工作表对象，杜绝依赖活动表的隐式关联
• 用Cells(ws.Rows.Count, 列号).End(xlUp).Row是获取列最后一行的标准方法，适配任意数据长度
• 加入边界判断可以避免空数据或只有表头时的运行错误

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