在excel vba中的特定工作表中选择范围

Question

我有一个关于使用 excel vba 在特定工作表中选择范围的问题。

我不知道为什么以下不起作用：

Thisworkbook.Sheets("N&A").Range("B4:F16").select

但是，这有效：

Thisworkbook.Sheets("N&A").Activate
ActiveSheet.Range("B4:F16").Select

VBA 代码在“N&A”表上编程。

谁能让我知道可能是什么原因？

谢谢！

Answer 1

你基本上已经回答了你自己的问题。 这是Excel 2003 帮助的摘录：

“如果您使用 Select 方法选择单元格，请注意 Select 仅适用于活动工作表。如果您从模块运行 Sub 过程，除非您的过程在使用 Select 方法之前激活工作表，否则 Select 方法将失败细胞范围。”

更重要的是，请记住在 VBA 中很少需要使用Select ，并且应该尽可能避免使用它。

Answer 2

您可以尝试使用以下代码来避免 acriveworksheet：

Sub Clean()


lastrow = Worksheets("REPORT").Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

Dim ws As Worksheet
Set ws = Worksheets("Report")
Set rng = ws.Cells(1, 1)
With ws
    Set rng = .Range(.Cells(2, 1), .Cells(lastrow, 5))
End With

rng.Clear

End Sub