如何优化重复冗余的VBA代码，实现指定行单元格边框与格式设置？

优化思路 #

原代码存在大量重复的对象引用和格式设置，可通过以下三点简化：

1. 将目标工作表、指定行的B:L区域赋值给变量，避免重复写完整引用；
2. 批量处理所有单元格的共性格式（边框、默认对齐），再针对特殊单元格调整差异；
3. 仅保留特殊单元格的独有设置，减少冗余代码。

优化后的代码 #

Sub ColorMRowCel(IntRowNo As Integer)
    Dim targetSheet As Worksheet
    Dim targetRowRange As Range
    
    ' 初始化目标工作表和指定行的B:L区域
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetRowRange = targetSheet.Range("B" & IntRowNo & ":L" & IntRowNo)
    
    ' 批量设置所有单元格的边框
    targetRowRange.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
    ' 批量设置默认水平居中，后续调整特殊单元格
    targetRowRange.HorizontalAlignment = xlCenter
    
    ' 单独调整B、L列的左对齐
    targetSheet.Range("B" & IntRowNo).HorizontalAlignment = xlLeft
    targetSheet.Range("L" & IntRowNo).HorizontalAlignment = xlLeft
    
    ' 单独设置C列的垂直居中
    targetSheet.Range("C" & IntRowNo).VerticalAlignment = xlCenter
    
    ' 单独设置K列的背景色
    targetSheet.Range("K" & IntRowNo).Interior.ColorIndex = 22
End Sub

额外优化说明 #

• 给参数IntRowNo添加类型声明As Integer，避免变体类型的潜在问题；
• 用变量存储工作表和区域，减少Excel对象模型的重复调用，既简化代码也提升运行效率；
• 逻辑分层清晰：先处理共性格式，再调整特殊项，后续维护时更容易修改。

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