VBA代码 - 在不同的工作簿上运行的宏

Question

我创建了多个宏，以自动填充A＆amp;列。 B基于不同的字符串（这些字符串存在于列G到L中）。对于每个字符串，我创建了一个新的宏（我有21个不同的字符串，因此创建了21个宏）。最后，我做了一个Application.Run编码并将所有这些宏保存在一个宏（最终）下。这个宏决赛在当前的工作簿上运行良好。这个宏用于每日报告，我需要在我每天保存的工作簿上运行所有这些宏（而不是最终的宏）。

Const SEARCH_SPEC As String = "(XYZ) *" 
Dim scanRange As Excel.Range 
Dim cell As Excel.Range 
Dim content As String 
Dim xyzOffset As Long 

With ActiveWorkbook.Worksheets("sheet1").Columns("G:L") 
    Set scanRange = .Worksheet.Range(.Cells(11), .Cells(.Cells.Count).End(xlUp)) 
End With 

For Each cell In scanRange 
    content = CStr(cell.Value2) 
    If content Like SEARCH_SPEC Then 
        cell.EntireRow.Columns("A").Value = "Completed" 
        cell.EntireRow.Columns("B").Value = "No action required" 
    End If 
Next