如何在同一个Worksheet_Change事件中合并文本长度限制逻辑

你的代码存在两个关键问题：一是第二个For Each循环内的If语句缺少对应的End If，二是Application.EnableEvents的恢复逻辑不够严谨（如果代码执行中出错，可能会导致事件一直处于禁用状态）。以下是修正并优化后的完整代码，同时实现了G列（≤20字符）和H列（≤50字符）的长度限制：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim validatedRange As Range
    Dim cell As Range
    Dim maxLength As Integer
    Dim colName As String
    
    ' 只处理G列和H列的单元格
    Set validatedRange = Intersect(Target, Me.Range("G:H"))
    If validatedRange Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    On Error GoTo Cleanup ' 确保出错时也能恢复事件
    
    For Each cell In validatedRange
        ' 根据单元格所在列设置对应的长度限制和列名称
        Select Case cell.Column
            Case 7 ' G列
                maxLength = 20
                colName = "G"
            Case 8 ' H列
                maxLength = 50
                colName = "H"
            Case Else
                Continue For ' 非目标列直接跳过
        End Select
        
        ' 检查文本长度
        If Len(cell.Value) > maxLength Then
            MsgBox "在" & cell.Address & "（" & colName & "列）输入的内容""" & cell.Value & """超过了" & maxLength & "字符限制，已撤销输入。", vbCritical
            Application.Undo
            Exit For ' 撤销后退出循环，避免重复触发
        End If
    Next cell

Cleanup:
    Application.EnableEvents = True
    If Err.Number <> 0 Then Err.Raise Err.Number ' 抛出错误，方便调试
End Sub

关键优化点： #

• 用Intersect(Target, Me.Range("G:H"))一次性筛选目标列，简化代码结构
• 通过Select Case根据列号动态设置长度限制，避免重复编写几乎相同的判断逻辑
• 添加错误处理标签Cleanup，确保无论代码是否出错，Application.EnableEvents都会被恢复，防止Excel事件功能异常
• 撤销输入后直接退出循环，避免因批量修改导致多次弹窗或重复撤销

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