如何精简VBA If多分支中的重复代码

嘿，这问题我太熟了——重复代码不仅看着闹心，以后改逻辑的时候还得三处同步改，简直是维护噩梦！咱们来把这段代码重构得清爽又好维护。

核心思路 #

你的三个If/ElseIf分支里，只有第一列的赋值内容和触发条件不同，后面的单元格赋值、行号递增逻辑完全一致。那咱们可以把“判断是否执行+确定第一列值”和“执行重复逻辑”拆分开：先通过条件判断拿到要写入的操作类型，再统一执行后续的重复代码块。

优化后的代码 #

Dim actionType As String
Dim targetSheet As Worksheet ' 注意：原代码里Add分支用AssetList，Remove/Update用TelecomAssetList，这里统一对应关系

For Each cel In AddOrRemoveRng
    On Error Resume Next
    actionType = "" ' 每次循环重置操作类型
    
    ' 先判断符合哪个分支，确定操作类型和目标工作表
    If cel = "Add" And Not IsEmpty(cel.Offset(0, 1)) And Not cel.Offset(0, 3) = "0" Then
        actionType = "Add"
        Set targetSheet = AssetList
    ElseIf cel = "Remove" And Not cel.Offset(0, 3) = "0" Then
        actionType = "Retire"
        Set targetSheet = TelecomAssetList
    ElseIf cel = "Update" Then
        actionType = "Update"
        Set targetSheet = TelecomAssetList
    End If
    
    ' 如果确定了有效操作类型，就执行统一的逻辑
    If actionType <> "" Then
        targetSheet.Cells(Asset_Row, Column_A).Value = actionType
        AssetList.Cells(Asset_Row, Column_B).Value = cel.Offset(0, 3)
        AssetList.Cells(Asset_Row, Column_C).Value = cel.Offset(0, 4)
        ' 原代码这里重复赋值Column_C了，应该是Column_D吧？提醒你检查修正
        ' AssetList.Cells(Asset_Row, Column_D).Value = cel.Offset(0, 5)
        Asset_Row = Asset_Row + 1
    End If
Next cel

关键改进点 #

• 消除重复代码：所有分支共有的赋值和行递增逻辑只写一次，以后要修改（比如调整列号、新增赋值项），只需要改这一处。
• 逻辑更清晰：先判断操作类型，再执行统一逻辑，代码结构一目了然，新人接手也能快速看懂。
• 修复潜在问题：原代码里AssetList.Cells(Asset_Row, Column_C)被连续赋值两次，大概率是笔误，我在注释里标出来了，记得检查调整。
• 可扩展性强：以后新增操作类型（比如"Transfer"），只需要加一个ElseIf判断，不用复制粘贴一大段重复代码。

额外小建议 #

• 尽量避免On Error Resume Next全局生效，最好把它的作用范围缩小（比如只用在可能出错的单行代码周围），不然容易掩盖其他潜在错误。
• 如果Column_A/B/C/D是常量，建议在代码开头统一定义，方便后续调整列位置。

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