VBA循环无法退出问题：删除指定文本列后无法终止Do Until循环

我来帮你捋清楚这个循环卡死的问题！核心原因其实很简单：当Cells.Find找不到目标文本"Income From Trans"时，它会返回Nothing，而你的循环没有针对这个情况做判断，导致代码一直重复执行查找操作，陷入死循环。

另外还有个小细节：你代码里用了After:=ActiveCell作为查找起始点，如果循环过程中没有更新这个起始位置，还可能出现重复查找同一单元格的情况，进一步加剧循环无法终止的问题。

修正后的代码示例 #

Sub DeleteIncomeColumns()
    Dim rng1 As Range
    Dim target1 As String
    target1 = "Income From Trans"
    
    ' 第一次查找，从A1开始（避免ActiveCell带来的不确定性）
    Set rng1 = Cells.Find(What:=target1, _
        After:=Cells(1, 1), _
        LookIn:=xlFormulas, _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False) ' 补全你原代码未写完的参数
        
    ' 循环处理找到的每一个目标
    Do While Not rng1 Is Nothing
        ' 先记录当前列的位置，因为删除列后rng1引用会失效
        Dim colToDelete As Integer
        colToDelete = rng1.Column
        
        ' 删除整列
        Columns(colToDelete).Delete
        
        ' 重新查找，从被删除列的位置开始，避免漏查或重复
        Set rng1 = Cells.Find(What:=target1, _
            After:=Cells(1, colToDelete), _
            LookIn:=xlFormulas, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False)
    Loop
End Sub

关键修复点说明 #

• 把Do Until换成Do While Not rng1 Is Nothing：直接判断是否找到目标，没找到就立刻退出循环，从根源避免死循环。
• 固定查找起始点为Cells(1,1)：避免依赖ActiveCell带来的不确定性，确保从表格开头开始查找。
• 删除列前先记录列号：因为删除列后原来的rng1引用会失效，必须先保存位置再操作。
• 更新查找起始位置：每次删除后从被删除列的位置开始查找，确保不会漏掉其他可能的目标，也不会重复查找。

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