如何简化重复的Excel VBA代码？优化多列操作冗余

方案一：提取对象变量+封装子过程（适合多列批量处理） #

通过将工作表对象赋值给变量减少重复引用，同时把重复的单元格设置逻辑封装成子过程，大幅降低代码冗余：

Dim lastrow As Long, sysnum As String
Dim ws As Worksheet

' 一次性获取目标工作表对象，避免重复调用wb.Worksheets(sysnum)
Set ws = wb.Worksheets(sysnum)
lastrow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' 插入新行
ws.Rows(lastrow + 1).Insert

' 调用子过程处理第2列
SetCellValueAndFormat ws.Cells(lastrow + 1, 2), sysnum, True, vbNull
' 调用子过程处理第3列
SetCellValueAndFormat ws.Cells(lastrow + 1, 3), "Passed", True, vbGreen

' 封装的通用设置子过程
Sub SetCellValueAndFormat(targetCell As Range, cellValue As Variant, isBold As Boolean, fillColor As Long)
    targetCell.Value = cellValue
    targetCell.Font.Bold = isBold
    ' 仅当传入有效颜色值时设置背景色
    If fillColor <> vbNull Then
        targetCell.Interior.Color = fillColor
    End If
End Sub

方案二：使用With语句简化单列操作（适合少量列处理） #

如果只有少数几列需要设置，用With语句可以快速减少重复代码：

Dim lastrow As Long, sysnum As String
Dim ws As Worksheet
Dim newRow As Range

Set ws = wb.Worksheets(sysnum)
lastrow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' 插入新行并获取该行对象
ws.Rows(lastrow + 1).Insert
Set newRow = ws.Rows(lastrow + 1)

' 配置第2列
With newRow.Cells(2)
    .Value = sysnum
    .Font.Bold = True
End With

' 配置第3列
With newRow.Cells(3)
    .Value = "Passed"
    .Font.Bold = True
    .Interior.Color = vbGreen
End With

优化核心点 #

1. 减少重复引用：把工作表、新行对象提前赋值给变量，避免反复调用wb.Worksheets(sysnum)，既提升代码可读性，也能小幅提高执行效率
2. 复用逻辑：子过程封装后，后续新增列操作只需要一行调用代码，修改格式规则时只需调整子过程，不用逐行修改
3. 代码结构清晰：拆分后的代码更易维护，后续排查问题或扩展功能都更方便

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