请求修改VBA宏，使其对所有已打开工作簿的指定工作表执行操作

针对你的需求，我们可以把原宏的核心逻辑封装成独立的子过程，再写一个主过程遍历所有已打开的工作簿和指定工作表——这样无需修改你原有的1600行宏代码，大幅降低出错风险。

封装后的核心处理过程 #

把原宏改成接受工作表对象作为参数的形式，保留原有逻辑的同时增强鲁棒性：

1. 填充AB:AD列的封装过程

Sub copyDown(ws As Worksheet)
    Dim myCount As Double
    With ws
        myCount = WorksheetFunction.CountA(.Range("B:B"))
        ' 确保有至少2行数据才执行填充（从第2行开始）
        If myCount >= 2 Then
            .Range("AB2:AD" & myCount).FillDown
        End If
    End With
End Sub

2. 填充A列日期的封装过程

Sub columnA(ws As Worksheet)
    Dim myfirstRow As Long, myLastrow As Long
    ' 用Long代替Integer，避免行号超过32767时溢出
    With ws
        myfirstRow = WorksheetFunction.CountA(.Range("A:A")) + 1
        myLastrow = WorksheetFunction.CountA(.Range("B:B"))
        
        ' 确保存在需要填充的行区间
        If myfirstRow <= myLastrow Then
            ' 直接赋值日期值，比公式转值更高效
            .Range("A" & myfirstRow & ":A" & myLastrow).Value = Date - 1
        End If
    End With
End Sub

批量处理主过程 #

这个主过程会遍历所有已打开的工作簿，对每个工作簿里的指定工作表执行上述两个处理：

Sub BatchProcessAllWorkbooks()
    Dim wb As Workbook
    Dim targetSheetNames As Variant
    Dim sheetName As Variant
    
    ' 替换成你实际需要处理的两个工作表名称
    targetSheetNames = Array("Sheet1", "Sheet2")
    
    ' 遍历所有已打开的工作簿
    For Each wb In Workbooks
        ' 遍历每个目标工作表
        For Each sheetName In targetSheetNames
            ' 容错处理：如果工作表不存在则跳过
            On Error Resume Next
            Dim ws As Worksheet
            Set ws = wb.Worksheets(sheetName)
            On Error GoTo 0
            
            If Not ws Is Nothing Then
                copyDown ws
                columnA ws
            End If
        Next sheetName
    Next wb
End Sub

使用说明 #

1. 将上述三个过程添加到你的VBA模块中（不要修改原有的1600行代码）。
2. 修改targetSheetNames数组里的工作表名称，替换为你需要处理的两个特定表名。
3. 运行BatchProcessAllWorkbooks即可完成批量处理。

内容的提问来源于stack exchange，提问作者Casultra