定义variablesvba的命名范围数组

我有下面的VBA，它遍历数组（）公式中的所有命名选项卡。 我希望这是一个dynamic范围，而不是将值键入到数组（）中，而是在工作表中引用具有这些值的范围，并且在添加更多

Sub Filter_To_Send() Dim WshtNames As Variant Dim WshtNameCrnt As Variant WshtNames = Array("RASC", "RSUV", "SBKP", "RGRN", "SBTK", "RWAS", "RABT", "RHAY", "RLEX", "RARM", "RBCK", "RBER", "RCCP", "RDAL", "RHEB", "RSST", "RMST", "RMIA", "REHV", "RNBY", "RNOF", "RUTC", "RSCS", "RSJO", "RSCQ", "RSHA", "RAWP", "SART", "SASK", "SALC", "SNHQ", "SOEX", "SPHL", "SSHP", "SMRN") For Each WshtNameCrnt In WshtNames With Worksheets(WshtNameCrnt) .Range("A5").AutoFilter field:=16, Criteria1:="<>0" End With Next WshtNameCrnt End Sub 

谢谢！

Answer 1

如果工作表名称列表存储在从A1开始的工作表“Config”中：

 Sub Filter_To_Send() Dim c As Variant Dim rngSheets As Range With Sheets("Config") Set rngSheets = .Range(.Range("A1"), .Cells(.Rows.Count, 1).End(xlUp)) End with For Each c In rngSheets.Cells With Worksheets(c.Value) .Range("A5").AutoFilter field:=16, Criteria1:="<>0" End With Next c End Sub