基于不包含部分文本的单元格的动态VBA删除

在Excel VBA中，如果你想基于不包含特定文本的单元格来动态删除行，你可以使用For Each循环遍历所有的行，并使用If语句来检查每个单元格是否包含或不包含特定的文本。如果不包含，则删除该行。以下是一个基本的示例代码，它将删除列A中不包含特定文本“保留”的所有行：

Sub DeleteRowsWithoutText()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    Dim textToCheck As String
    
    ' 设置工作表和工作区域
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据需要更改工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取最后一行的行号
    Set rng = ws.Range("A1:A" & lastRow) ' 设置要检查的单元格范围
    
    ' 设置要检查的文本
    textToCheck = "保留"
    
    ' 逆序遍历单元格，以避免因删除行而改变行号
    For Each cell In rng.Areas(1).Cells
        If cell.Value <> textToCheck Then
            cell.EntireRow.Delete
        End If
    Next cell
End Sub

基础概念

VBA (Visual Basic for Applications): 是Microsoft Office应用程序的内置编程语言，允许用户自动化任务和创建自定义功能。
单元格: Excel工作表中的单个方格，可以包含文本、数字或公式。
动态删除: 根据某些条件自动删除数据的过程。