看起来你的宏逻辑出了问题，导致不管F:I列有没有值，所有行都被删除了。咱们先梳理问题，再给出修正后的代码：

可能的错误原因 #

从你提供的代码片段来看，大概率是判断F:I列是否全空的逻辑写错了——比如误判成“只要有一个空单元格就删除”，或者判断条件完全反了，也有可能MyRange的范围没正确覆盖F到I列。

修正后的完整代码 #

这里给你写一个可靠的版本，严格检查F到I列是否全部为空，只有全空时才删除该行：

Sub DeleteRowBasedOnCriteria()
    Dim RowToTest As Long
    Dim ws As Worksheet
    Dim myRange As Range
    Dim isAllEmpty As Boolean
    
    ' 绑定当前工作表（避免切换工作表出错）
    Set ws = ActiveSheet
    
    ' 从最后一行往上遍历（避免删除行后索引混乱）
    For RowToTest = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row To 2 Step -1
        ' 设置当前行的F:I列范围
        Set myRange = ws.Range("F" & RowToTest & ":I" & RowToTest)
        
        ' 检查该范围是否全部为空
        isAllEmpty = Application.WorksheetFunction.CountA(myRange) = 0
        
        ' 如果全空则删除该行
        If isAllEmpty Then
            ws.Rows(RowToTest).Delete
        End If
    Next RowToTest
End Sub

代码关键说明 #

• 绑定工作表：用Set ws = ActiveSheet明确操作的工作表，防止后续切换工作表导致错误。
• 倒序遍历：从最后一行往第一行遍历，这样删除行后不会影响未遍历的行索引（如果正序遍历，删除一行后下面的行会往上移，会跳过一些行）。
• 正确判断全空：用CountA(myRange) = 0来判断——CountA会统计范围内非空单元格的数量，等于0就说明所有单元格都是空的。
• 明确范围：ws.Range("F" & RowToTest & ":I" & RowToTest)确保每次只检查当前行的F到I列，不会越界。

为什么你的原代码会删所有行？ #

如果你的原代码里判断条件写反了（比如写成CountA(myRange) > 0就删除），或者错误地检查了其他列，就会导致所有行都被删除。另外，如果MyRange的范围没正确设置（比如只选了F列而不是F:I），也可能出现误判。

你可以对比上面的代码，检查自己原代码里的判断逻辑和范围设置，就能找到问题所在啦。

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