VBA在工作簿中的多个工作表中循环，以填充引用特定工作表名称列表的值

Question

我在一个工作簿中有多张工作表(超过500张(。在每张表格上，我都需要跟踪数据。通常情况下，100多张图纸将具有相同的数据值。我希望使用VBA脚本循环浏览图纸名称列表(使用csv文件等外部源(，并自动填充csv文件中列出的图纸上的字段。

我已经对每张纸上需要填写的输入进行了宏观记录：

Sub Fill01()
'
' Fill01 Macro
'
' Keyboard Shortcut: Ctrl+d
'
Range("B7").Select
ActiveCell.FormulaR1C1 = "MM/DD/YYYY"
Range("C7").Select
ActiveCell.FormulaR1C1 = "Engineer_Name"
Range("I7").Select
ActiveCell.FormulaR1C1 = "0"
Range("I9").Select
ActiveCell.FormulaR1C1 = "0"
Range("I11").Select
ActiveCell.FormulaR1C1 = "0"
Range("I13").Select
ActiveCell.FormulaR1C1 = "0"
Range("I15").Select
ActiveCell.FormulaR1C1 = "0"
Range("I17").Select
ActiveCell.FormulaR1C1 = "0"
Range("I19").Select
ActiveCell.FormulaR1C1 = "0"
Range("I21").Select
ActiveCell.FormulaR1C1 = "0"
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Answer 1

将一个名为"ListOfSheets"的工作表添加到您的工作簿中(有很多工作表要编辑(。在从a1开始的列中键入要更新的图纸名称；这是你的列表(而不是你提到的CSV文件；CSV文件也可以，但它需要更多的步骤(。然后切换到VBA编辑器，插入一个新模块并添加以下代码：

Option Explicit
Public Sub DoIt()
Dim rngeItem As Variant
For Each rngeItem In ThisWorkbook.Worksheets("ListOfsheets").UsedRange.Cells
With ThisWorkbook.Worksheets(CStr(rngeItem))
Debug.Print .Name
' Do what you want to do with this worksheet
.Range("B7") = "MM/DD/YYYY"
.Range("C7") = "Engineer_Name"
.Range("I7") = "0"
.Range("I9") = "0"
.Range("I11") = "0"
.Range("I13") = "0"
.Range("I15") = "0"
.Range("I17") = "0"
.Range("I19") = "0"
.Range("I21") = "0"
'...
' Do whatever else
'...
End With
Next rngeItem

End Sub

然后跑步。您不必"选择"(单元格或范围(来执行操作/设置其值；在不选择或激活(如我所提供的(的情况下完成它要快得多。我不知道你为什么使用FormulaR1C1属性；你在设定值，而不是公式。

Answer 2

在新的模块表中键入以下宏代码。

Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer
' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Count
' Begin the loop.
For I = 1 To WS_Count
' Insert your code here.
' The following line shows how to reference a sheet within
' the loop by displaying the worksheet name in a dialog box.
MsgBox ActiveWorkbook.Worksheets(I).Name
Next I
End Sub