VBA多个Sub过程存在重复代码及独立变量，如何避免重复复制粘贴？

核心思路是抽离重复逻辑为带参数的公共过程，仅保留可变参数作为入项，后续维护仅需修改1次公共逻辑即可同步到所有调用场景。

具体实现步骤 #

1. 新增公共通用处理过程，将唯一可变的标识字符串（ABC/DEF/GHI等）作为入参，所有重复的300行逻辑都写入该公共过程中，原标识位置统一用参数替换
2. 原9个独立Sub仅保留参数传入调用逻辑，无需重复写实现代码
3. 额外优化：移除Select这类低效的操作方法，直接绑定工作簿、工作表对象，提升运行稳定性和效率

代码示例 #

公共通用过程代码 #

' 通用过滤处理过程，入参flag为对应标识（ABC/DEF/GHI等）
Public Sub CommonOpenFilter(ByVal flag As String)
    Dim rng As Range
    Dim s123 As String
    Dim s456 As String
    Dim x789 As String
    Dim targetWb As Workbook
    
    ' 所有变量根据入参动态生成
    s123 = "<>" & flag
    s456 = "<>*" & flag & "*"
    x789 = flag
    
    ' 直接绑定打开的工作簿，无需使用Select
    Set targetWb = Workbooks.Open(Filename:="C:\Users\Desktop\" & flag & " Today.xlsx")
    
    ' 直接操作指定工作表的范围，无需选中
    Set rng = targetWb.Sheets("First Sheet").Range("$A$1:$ZZ$157000")
    rng.AutoFilter Field:=7, Criteria1:=s123
    
    Set rng = targetWb.Sheets("Second Sheet").Range("$A$1:$ZZ$157000")
    rng.AutoFilter Field:=7, Criteria1:=x789
    rng.AutoFilter Field:=24, Criteria1:=s456
    
    ' 剩余300行重复逻辑直接在此处补充，所有涉及原标识的位置均替换为flag变量即可
End Sub

简化后的9个业务Sub代码 #

Sub OpenFilterABC()
    Call CommonOpenFilter("ABC")
End Sub

Sub OpenFilterDEF()
    Call CommonOpenFilter("DEF")
End Sub

Sub OpenFilterGHI()
    Call CommonOpenFilter("GHI")
End Sub
' 剩余6个过程按照相同格式传入对应标识即可

可选优化方向 #

• 若文件路径后续可能变动，可将文件前缀路径也设置为入参，灵活适配不同路径场景
• 固定范围$A$1:$ZZ$157000可替换为动态获取的已使用范围，适配数据行数变化的场景
• 新增错误捕获逻辑，处理文件不存在、工作表缺失等异常场景，避免程序直接崩溃

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