如何遍歷單元格值列表並將一個值應用於 excel 工作表文件中的每個工作表

Question

假設我有一個單元格值列表，其長度與我的 excel 文件中的工作表數完全對應

我將如何遍歷列表以按順序更改每張紙的 G1 值？

IE 如果值列表是 1,2,3，那么第一張表的 g1 = 1，表 2 的 g1 = 2 等等。

這是我到目前為止嘗試過的

給出運行時錯誤 91：Object 變量或未設置塊變量

Sub Test1()
      Dim x As Integer
      Dim myCellSetValue As Range
      NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
      Range("A2").Select
      For x = 1 To NumRows
         Set myCellRangeSetValue = ThisWorkbook.Worksheets(1).Range("G1")
          myCellSetValue.Value = ActiveCell.Value
         ActiveCell.Offset(1, 0).Select
      Next
   End Sub

Answer 1

這是我最終使用的修改后的代碼：

Sub WorksheetLoop()
    Dim WS_Count As Integer
    Dim I As Integer

    WS_Count = ActiveWorkbook.Worksheets.Count
    For I = 1 To WS_Count
        ActiveWorkbook.Worksheets(I).Range("G1") = Worksheets("ABI-BE").Cells(I, 19)
    Next I
End Sub