在所有工作表中select范围

我想在所有的工作表中selectRange("A1:D30") 。 但是下面的代码不起作用。

 Sub selectRange() Dim ws As Worksheet For Each ws In Sheets ws.Range("A1:D30").Select Next ws End Sub 

Answer 1

虽然我通常试图阻止使用。select作为达成目标的方法，在这种情况下，操作可能是有利的（虽然实际操作的细节是缺乏的）。

 Sub sel_all() Dim w As Long, vWSs As Variant ReDim vWSs(0 To Worksheets.Count - 1) For w = 1 To Worksheets.Count vWSs(w - 1) = Worksheets(w).Name Next w Worksheets(vWSs).Select Worksheets(vWSs(LBound(vWSs))).Activate Range("A1:D30").Select End Sub