使用VBA声明动态范围

Question

我正在尝试按以下方式声明范围：

searchRow = 19
startCellCol = Worksheets("Production Tracking").Range("DV19").Column
endCellCol = Worksheets("Production Tracking").Range("H19").Column

Set rRng = Worksheets("Production Tracking").Range(Cells(19, endCellCol), Cells(19, startCellCol))

但是我收到错误1004.如果我删除Worksheets("Production Tracking")它可行，但是在错误的工作表中。

有没有办法使这项工作？

谢谢！

Answer 1

试试这样：

With Worksheets("Production Tracking")
    Set rRng = .Range(.Cells(19, endCellCol), .Cells(19, startCellCol))
End With

否则，您必须在每个Worksheets(...)和Range()的前面写Cells()以避免此错误