如何缩短VBA代码中的多分支If语句并优化月末偏移列逻辑？

针对你描述的VBA逻辑中两段冗长的多分支If语句，可通过以下核心方案大幅精简代码，同时提升可读性和维护性：

方案1：数组映射替代月份-偏移值的多分支判断 #

如果你的多分支If是用于根据1-12月匹配对应的addpm偏移值（比如对应各月天数），可以直接用数组存储对应关系，通过月份索引快速取值：

Sub OptimizeAddpmWithArray()
    Dim wsDC As Worksheet
    Set wsDC = ThisWorkbook.Worksheets("DC")
    
    ' 获取目标工作表和月份
    Dim wsTarget As Worksheet
    Set wsTarget = ThisWorkbook.Worksheets(wsDC.Range("A2").Value)
    Dim targetMonth As Integer
    targetMonth = wsDC.Range("B4").Value
    
    ' 预定义1-12月对应的偏移值（根据实际需求调整数值）
    Dim monthOffsets As Variant
    monthOffsets = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
    
    ' 直接通过月份索引取偏移值（数组从0开始，月份减1匹配索引）
    Dim addpm As Integer
    addpm = monthOffsets(targetMonth - 1)
    
    ' 额外处理闰年2月的特殊情况（如果需要）
    If targetMonth = 2 Then
        Dim currentYear As Integer
        currentYear = Year(Date)
        If (currentYear Mod 4 = 0 And currentYear Mod 100 <> 0) Or currentYear Mod 400 = 0 Then
            addpm = 29
        End If
    End If
    
    ' 后续查找日期、偏移复制的逻辑...
End Sub

方案2：Select Case合并同类分支 #

如果多分支If涉及不同月份的差异化操作，使用Select Case可以将同类逻辑合并，大幅缩短代码：

Sub OptimizeWithSelectCase()
    Dim wsDC As Worksheet
    Set wsDC = ThisWorkbook.Worksheets("DC")
    
    Dim wsTarget As Worksheet
    Set wsTarget = ThisWorkbook.Worksheets(wsDC.Range("A2").Value)
    Dim targetMonth As Integer
    targetMonth = wsDC.Range("B4").Value
    
    Dim addpm As Integer
    Select Case targetMonth
        Case 1, 3, 5, 7, 8, 10, 12 ' 所有31天的月份
            addpm = 31
        Case 4, 6, 9, 11 ' 所有30天的月份
            addpm = 30
        Case 2 ' 2月单独处理
            Dim currentYear As Integer
            currentYear = Year(Date)
            addpm = IIf((currentYear Mod 4 = 0 And currentYear Mod 100 <> 0) Or currentYear Mod 400 = 0, 29, 28)
    End Select
    
    ' 后续查找日期、偏移复制的逻辑...
End Sub

针对日期查找与复制的分支优化 #

如果另一处冗长If是用于根据不同月份定位日期后复制C列名称，可直接通过Find方法+偏移计算替代分支判断：

Sub OptimizeDateSearch()
    Dim wsDC As Worksheet
    Set wsDC = ThisWorkbook.Worksheets("DC")
    
    Dim wsTarget As Worksheet
    Set wsTarget = ThisWorkbook.Worksheets(wsDC.Range("A2").Value)
    Dim targetMonth As Integer
    targetMonth = wsDC.Range("B4").Value
    
    ' 生成目标月份的起始日期
    Dim startDate As Date
    startDate = DateSerial(Year(Date), targetMonth, 1)
    
    ' 在F4:NF4区域定位起始日期
    Dim foundStart As Range
    Set foundStart = wsTarget.Range("F4:NF4").Find(What:=startDate, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundStart Is Nothing Then
        ' 偏移addpm列后，查找同行值为1的单元格
        Dim foundOne As Range
        Set foundOne = foundStart.Offset(0, addpm).EntireRow.Range("F:NF").Find(What:=1, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not foundOne Is Nothing Then
            ' 直接复制同行C列内容，无需分支判断
            wsTarget.Cells(foundOne.Row, "C").Copy
            ' 这里可添加粘贴逻辑，比如：
            ' wsDC.Range("目标单元格").PasteSpecial xlPasteValues
        End If
    End If
End Sub

以上方案将原来的多分支判断转化为更简洁的数组映射、分支合并或直接查找计算，既缩短了代码长度，也降低了后续维护的复杂度。

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