VBA For结合Do While循环实现列值填充报错问题求解

你的代码有4个直接导致崩溃/逻辑错误的问题：

• 非法引用未定义对象：过程中直接使用Target.Row，但这不是工作表事件过程，没有自动赋值的Target对象，该引用本身就会触发运行时错误
• 死循环触发程序崩溃：Do While循环的判断条件绑定的是固定位置的初始Cell对象，循环执行过程中Cell位置不会向下移动，条件永远不会发生变化，一旦进入循环就会无限重复给同一个单元格赋值，直接导致Excel无响应强制关闭
• 列偏移计算错误：W列是A列向右偏移22列，你写的Offset(0,23)实际指向X列，判断的目标列从一开始就错了
• 遍历逻辑冗余：For Each循环会逐行经过后续你填充了"X"的单元格，会重复触发判断逻辑，既拖慢执行速度，也容易引发逻辑冲突

Sub Chaine()
    Dim currentRow As Long, lastDataRow As Long
    ' 读取A列最后一行有数据的行号，避免无意义遍历空行
    lastDataRow = Cells(Rows.Count, "A").End(xlUp).Row
    currentRow = 2
    
    Do While currentRow <= lastDataRow
        ' 匹配触发条件：当前行A列值为X，且同行W列值为T
        If UCase(Cells(currentRow, "A").Value) = "X" And UCase(Cells(currentRow, "W").Value) = "T" Then
            currentRow = currentRow + 1
            ' 逐行向下填充X，直到遇到W列为T的行、或到达数据末尾时停止
            Do While currentRow <= lastDataRow And UCase(Cells(currentRow, "W").Value) <> "T"
                Cells(currentRow, "A").Value = "X"
                currentRow = currentRow + 1
            Loop
        Else
            currentRow = currentRow + 1
        End If
    Loop
End Sub

• 放弃For Each遍历，改用行号逐行向下跳转的逻辑，已经处理过的填充区域不会被重复判断，执行效率更高
• 移除了不存在的Target对象引用，所有单元格都通过明确的行号+列标定位，不会出现对象缺失错误
• 内层Do While循环每次执行后行号自动+1，不存在固定判断条件导致的死循环问题
• 修正了W列的定位错误，同时给W列的判断增加了大小写转换，避免小写"t"无法匹配的问题
• 增加了数据末尾边界判断，不会出现越界遍历到表格空白区域的问题

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