首先我想说我是一个完全的VBA初学者。
我有一个Excel电子表格,其中一列有时会有不同的值。有时可能有2个条目,有时是7个,有时是11个,有时是25个等等。
杠杆 | 杆1 |
---|
杆2 |
杆3 |
杆4 |
在Next xRg之前添加一个循环
Dim v
For Each v In Array("Query1", "Query2", "Query3", _
"Query4", "Query5", "Keywords")
.Sheets.Add after:=.Sheets(.Sheets.Count)
ActiveSheet.Name = xRg.Value & v
Next