vba - 循环遍历不同的工作表

Question

感谢您对我正在尝试创建的宏的帮助。

我有一个带有一堆工作表的 xls 文件，其中一些名为“1”、“2”、“3”等等。我想创建一个只循环通过那些“数字命名”工作表的宏，因此不根据下面代码中的索引。 (工作表“1”不是工作簿中的第一张工作表)。在循环之前，我需要定义单元格范围和工作表。

以下是我的(错误)尝试。

Sub Refresh ()

Dim i As Integer
Dim rng As Range
Set rng = Range("A10:TZ180")

 For i = 1 To 30

  Sheets(i).Activate
  rng.Select       
  rng.ClearContents
  Application.Run macro:="xxx"

 Next i

End Sub

Answer 1

dim w as worksheet
for each w in activeworkbook.worksheets
  if isnumeric(w.name) then
    w.range("A10:TZ180").clearcontents
    xxx()
  end if
next