如何简化高重复度Excel VBA代码 优化批量文本处理宏逻辑

代码重复度高的核心原因是固定执行逻辑和可变参数（车型名称）完全耦合，每新增一个车型就要复制一整段逻辑，维护成本极高。最直接的简化方式是把可变参数抽离成统一管理的列表，固定逻辑通过循环批量执行。

优化后代码 #

Sub EnterSheet()
    ' 所有待处理车型统一在此处维护，增删修改仅需调整这部分数组内容
    Dim modelList As Variant
    modelList = Array( _
        "Highlander", "Sienna_HV", "Corolla_Cross", "Camry_1", "Camry_2", _
        "ES", "Corolla", "Tundra", "Tacoma", "NX", "RAV_4", "Avalon", "RX_350" _
    )
    
    Dim i As Long
    Dim targetCell As Range
    ' 绑定操作目标单元格，后续移除Select语句时可直接修改此处引用
    Set targetCell = ActiveSheet.Range("B1")
    
    ' 遍历所有车型执行统一逻辑
    For i = LBound(modelList) To UBound(modelList)
        With targetCell
            .Value = modelList(i) & .Value
            ' 保留原代码中的字体设置结构，可自行补全字体格式逻辑
            With .Characters(1, 8).Font
            End With
            Call Copy
            ' 直接清空目标单元格内容，无需先选中Overview工作表
            Sheets("Overview").Range("B1").ClearContents
        End With
    Next i
    
    Sheets("Data Consolidation").Select
End Sub

优化说明 #

• 可变参数集中管理：所有车型名称统一存放在modelList数组中，后续新增、删除、修改车型时，仅需要调整数组内的字符串即可，不需要复制重复代码块。
• 固定逻辑收敛复用：原代码中13段完全重复的执行逻辑，全部合并到For循环中，代码体积缩减70%以上，不会出现修改逻辑时漏改某一段的问题。
• 兼容后续优化需求：已经提前把目标单元格抽象为变量，后续要移除冗余Select语句时，只需要把targetCell的绑定改为明确指定工作表的写法（例如Set targetCell = Sheets("你的操作表名").Range("B1")），全程不需要激活、选中任何工作表或单元格，代码执行效率会明显提升。
• 提前清理冗余操作：原代码每次执行清空操作前都要先选中Overview工作表，优化后直接调用ClearContents方法即可完成清空，不需要切换选中对象，提前移除了这部分无效Select写法。

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