请求编写Excel宏：删除A列符合指定条件的行

需求 #

删除A列中满足以下任一条件的整行：

• 单元格包含Summary、Contract、Amount、Total Contract、Less文本
• 单元格为空
• 单元格为日期时间戳

问题背景 #

作为VBA新手，尝试编写的宏代码均报错，已尝试的代码如下：

尝试代码1 #

Sub Delete_Rows ()  

 cells.Select  
 if cell. value "job" then  
 inputRange.Rows(i).EntireRow.Delete  
 Exit For  
 Next Cell  
 or  
 Sub Delete_Rows()  

Dim ws As Worksheet  
Dim rng As Range
Dim cell As Range
Dim i As Long

Set ws = ThisWorkbook.Sheets("Sheet1")
Set rng = ws.Range("A2:B" & ws.Cells(ws.Rows.Count,"A").End(xlUp).Row)

For i = rng.Rows.Count To 2 Step -1
If rng.Cells(i, 1).Value = "Summary" Then
rng.Cells(i, 1).EntireRow.Delete
End If
Next i

End Sub

尝试代码2 #

For R= 1 to sheet1.usedRange.Rows.Count
If Cells (r,"summary) = "0" then
Sheet1.Rows (r).EntireRow.Delete
End if

这些代码存在语法错误、逻辑覆盖不全的问题，比如缺少完整循环结构、未覆盖所有删除条件、引号不匹配等。

解决方案 #

以下是满足需求的完整宏代码：

Sub DeleteTargetRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定操作的工作表，根据实际修改名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取A列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行向上遍历，避免删除行后索引混乱
    For i = lastRow To 1 Step -1
        With ws.Cells(i, "A")
            ' 条件1：单元格为空
            If .Value = "" Then
                .EntireRow.Delete
            ' 条件2：包含指定文本（不区分大小写）
            ElseIf InStr(1, .Value, "Summary", vbTextCompare) > 0 _
                Or InStr(1, .Value, "Contract", vbTextCompare) > 0 _
                Or InStr(1, .Value, "Amount", vbTextCompare) > 0 _
                Or InStr(1, .Value, "Total Contract", vbTextCompare) > 0 _
                Or InStr(1, .Value, "Less", vbTextCompare) > 0 Then
                .EntireRow.Delete
            ' 条件3：单元格为日期类型
            ElseIf IsDate(.Value) Then
                .EntireRow.Delete
            End If
        End With
    Next i
End Sub

代码说明 #

• 从后往前遍历：删除行时后续行会自动上移，从后往前遍历能避免跳过未检查的行
• 文本匹配：使用InStr+vbTextCompare实现不区分大小写的模糊匹配，若需严格区分大小写，替换为vbBinaryCompare
• 日期判断：IsDate函数直接识别单元格值是否为日期类型，不受显示格式影响
• 指定工作表：明确操作目标工作表，避免误操作其他Sheet

使用步骤 #

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 右键左侧工作簿名称 → 插入 → 模块
3. 将上述代码粘贴到模块窗口中
4. 修改代码中的Sheet1为你实际要操作的工作表名称
5. 按F5运行宏，或返回Excel通过「开发工具」→「宏」选择DeleteTargetRows执行

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