如何用VBA删除字体为绿色的整行？解决代码误删/删除不全问题

原代码的问题 #

• 错误使用Range("rng1")：你已经定义了rng1作为Range对象，直接调用rng1即可，字符串引用会导致范围识别错误
• cell.Delete仅删除单个单元格而非整行：这会引发单元格移位，打乱后续循环逻辑，甚至误删大量内容
• 正向循环删除行：删除一行后，下方行自动上移，循环会跳过下一行，直接导致删除不全

解决方案 #

1. 指定整个工作表的操作范围 #

如果要覆盖工作表中所有有数据的区域，用UsedRange更高效；若需遍历所有行（包括空行），可直接用Rows（但性能较差，不推荐）。常用写法：

Set rng = ThisWorkbook.Worksheets("Sheet1").UsedRange

2. 解决删除不全的核心：从下往上循环 #

删除行时必须从最后一行往第一行遍历，这样删除某行后，上方的行不会影响未遍历的行（未遍历行都在当前行上方，不会被移位覆盖）。

修正后的完整代码 #

针对原代码的CurrentRegion范围（仅处理A1所在的数据区域） #

Sub DeleteGreenFontRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取CurrentRegion的最后一行行号
    lastRow = ws.Range("A1").CurrentRegion.Rows.Count
    
    ' 从下往上循环遍历行
    For i = lastRow To 1 Step -1
        ' 检查当前行字体是否为绿色
        If ws.Rows(i).Font.Color = vbGreen Then
            ' 删除整行
            ws.Rows(i).Delete
        End If
    Next i
End Sub

针对整个工作表的UsedRange范围（所有有数据的行） #

Sub DeleteGreenFontRows_AllUsed()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取UsedRange的最后一行行号
    lastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
    
    For i = lastRow To 1 Step -1
        ' 若需求是「该行任意单元格为绿色就删除」，替换为下面的判断：
        ' If Not ws.Rows(i).Find(What:="", LookIn:=xlFormulas, SearchFormat:=True, Font.Color:=vbGreen) Is Nothing Then
        If ws.Rows(i).Font.Color = vbGreen Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

补充说明 #

• 若你的需求是只要该行存在任意一个绿色字体的单元格就删除整行，请将代码中的判断条件替换为注释里的Find方法，因为Rows(i).Font.Color仅当整行字体均为绿色时才触发删除。
• 全程避免使用Select/Selection，直接操作Range对象更高效且不易出错（原代码的Select完全多余）。

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