多工作表Worksheet_Change事件添加边框VBA代码触发‘Range类的Select方法失败’错误的解决及代码合并优化问询

为什么会出现「Range类的Select方法失败」错误？ #

这个问题的核心在于**Select和Selection操作依赖当前激活的工作表**。比如当你在Sheet1输入内容触发事件时，代码如果尝试操作Sheet2的单元格并执行Select，但此时Sheet2并没有被激活，就会直接报错。而且你现在的两段代码几乎完全重复，不仅冗余，还容易因为上下文不一致触发这类错误。

最优解决方案：通用化代码+规避Select操作 #

我们可以把格式化边框和字体的逻辑抽成一个通用子过程，然后在两个工作表的Change事件里调用它。同时全程避免使用Select——这是VBA编写的最佳实践之一，既解决了激活问题，又能提升代码运行效率。

第一步：创建通用格式化模块 #

按Alt+F11打开VBA编辑器，右键点击你的工作簿项目→插入→模块，然后粘贴以下代码：

Sub ApplyRowFormatting(ByVal targetSheet As Worksheet)
    Application.ScreenUpdating = False
    Dim lastRow As Long, lastCol As Long
    Dim cell As Range, rowRange As Range
    
    ' 获取目标工作表已使用区域的边界
    With targetSheet.UsedRange
        lastRow = .Rows.Count
        lastCol = .Columns.Count
    End With
    
    ' 遍历A列从第2行开始的非空单元格
    For Each cell In targetSheet.Range("A2:A" & lastRow)
        If cell.Value <> "" Then
            ' 直接定位当前行的整个数据区域，完全不需要Select
            Set rowRange = targetSheet.Range(targetSheet.Cells(cell.Row, cell.Column), targetSheet.Cells(cell.Row, lastCol))
            
            ' 设置边框样式
            With rowRange.Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            
            ' 设置字体
            With rowRange.Font
                .Name = "Calibri"
                .Size = 10
            End With
        End If
    Next cell
    
    Application.ScreenUpdating = True
End Sub

第二步：修改两个工作表的Change事件代码 #

Sheet1的事件代码

打开Sheet1的代码窗口（在VBA编辑器左侧双击Sheet1），替换原有代码为：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 调用通用过程，传入当前工作表（Me代表事件所属的工作表）
    ApplyRowFormatting Me
End Sub

Sheet2（"Current Stock"）的事件代码

同样打开Sheet2的代码窗口，替换原有代码为：

Private Sub Worksheet_Change(ByVal Target As Range)
    ApplyRowFormatting Me
End Sub

额外效率提升技巧 #

• 缩小触发范围：原代码每次单元格变化都会遍历整个A列，你可以加个判断，只当修改的是A列内容时才执行格式化：

  Private Sub Worksheet_Change(ByVal Target As Range)
      ' 只有当修改的单元格在A列时才执行
      If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
          ApplyRowFormatting Me
      End If
  End Sub
  

• 避免重复格式化：如果你的数据是逐行新增的，可以记录已经格式化过的最后一行，只处理新增的行，减少循环次数。

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