我有一個由 30 個字串值編譯而成的命名范圍。每個字串值也用作作業表的名稱。我想知道是否可以遍歷范圍中的每個字串來編輯它各自的作業表。我經歷了一些試驗和錯誤，但仍然卡住了。任何幫助將不勝感激。
Option Explicit
Sub NamedRanges()
Dim ws As Worksheet
Dim rng As Variant
rng = Sheets("Teams").Range("TeamList_Full")
For Each ws In rng
ws.Range("A36").Value2 = 2
Next ws
End Sub
uj5u.com熱心網友回復：
你可以這樣做：
Sub NamedRanges()
Dim c As Range
For Each c In ThisWorkbook.Worksheets("Teams").Range("TeamList_Full").Cells
ThisWorkbook.Worksheets(c.Value).Range("A36").Value2 = 2
Next c
End Sub
uj5u.com熱心網友回復：
由于您似乎針對每張紙上的相同單元格，您還可以通過避免回圈來實作您的目標
Sub NamedRanges()
Dim sh As Worksheet, rng As Range
Set rng = Worksheets("Teams").Range("TeamList_Full")
Set sh = Worksheets(rng.Cells(1).Value2)
sh.Range("A36").Value2 = 2
Worksheets(WorksheetFunction.Transpose(rng.Value2)).FillAcrossSheets sh.Range("A36")
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/458966.html
上一篇：計算每行excel的時間
下一篇：奇怪的哈希輸出