VBA代码执行时在Target.Offset赋值语句处崩溃，求排查方案

首先，你的代码在Target.Offset(, 1).Value = ""处崩溃，核心有几个关键问题：

• Target对象完全用错了
  你循环检查的是E列的Range("E" & i)单元格，但修改的却是触发Change事件的Target的右侧单元格——这俩根本不搭边啊！比如如果你修改的是A1单元格，那Target就是A1，你这时候会清空B1，完全不是你想要的“E列单元格为TEXT时清空它右边的单元格”的效果。而且如果Target是多个单元格（比如批量粘贴），直接对Target.Offset(,1)赋值会直接报错。

• 没处理事件递归
  在Worksheet_Change事件里修改单元格内容，会再次触发这个事件，相当于无限循环调用，Excel扛不住就崩溃了。

• 没必要的全范围遍历
  每次触发事件都遍历E18到最后一行的所有单元格，效率极低，而且事件本来就应该只处理发生变化的单元格，不是从头到尾扫一遍。

假设你的需求是：当E列第18行及以下的单元格被改成"TEXT"时，自动清空它右边（F列）的单元格，下面是修复后的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义我们要监控的区域：E18到E列最后一行
    Dim monitorRange As Range
    Set monitorRange = Me.Range("E18:E" & Me.Cells(Me.Rows.Count, 5).End(xlUp).Row)
    
    ' 先判断触发事件的单元格是不是在我们要管的范围内
    If Not Intersect(Target, monitorRange) Is Nothing Then
        ' 先关掉事件触发，防止修改单元格时再次触发这个事件导致递归崩溃
        Application.EnableEvents = False
        
        Dim cell As Range
        ' 遍历所有发生变化的单元格（处理批量修改的情况）
        For Each cell In Intersect(Target, monitorRange)
            If cell.Value = "TEXT" Then
                ' 清空当前E列单元格右侧的单元格（也就是F列对应行）
                cell.Offset(, 1).Value = ""
            End If
        Next cell
        
        ' 操作完记得把事件触发打开
        Application.EnableEvents = True
    End If
End Sub

• 精准处理目标单元格：现在是当E列的单元格满足条件时，清空它自己右边的单元格，而不是随便清空Target的右边。
• 防止递归崩溃：用Application.EnableEvents = False暂时关闭事件触发，操作完成后再打开，避免无限循环。
• 高效处理变化：只处理触发事件的单元格，而不是每次都扫一遍整个E列，效率高多了。
• 兼容多单元格修改：比如你批量粘贴多个值到E列，代码也能逐个处理每个变化的单元格。

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