VBA去掉匹配字符的上下行

可以使用 VBA 的正则表达式来实现去掉匹配字符的上下行操作。以下是一个示例代码，可以去掉包含关键字"test"的行及其上下行：

Sub RemoveMatchedLines()
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "(.*test.*)"
    regEx.Global = True
    
    Dim rng As Range
    Set rng = ActiveSheet.UsedRange
    
    Dim cell As Range
    For Each cell In rng.Cells
        If regEx.Test(cell.Value) Then
            cell.EntireRow.Delete Shift:=xlUp
        End If
    Next cell
End Sub

你可以根据自己的需求修改正则表达式的模式，来匹配不同的字符。同时也可以修改代码来实现不同的操作，例如删除不包含关键字的行等。

相关问题

VBA编程去掉匹配字符的上下两行

好的，假设您要去掉匹配字符的上下两行，可以使用以下代码：

Sub removeLines()
    Dim searchValue As String
    Dim searchRange As Range
    Dim currentFind As Range
    Dim firstAddress As String
    
    '设置要匹配的字符
    searchValue = "要匹配的字符"
    
    '设置要查找的范围
    Set searchRange = ActiveSheet.UsedRange
    
    '从第一个单元格开始查找
    Set currentFind = searchRange.Find(searchValue)
    
    '如果找到了匹配的字符
    If Not currentFind Is Nothing Then
        '记录第一个匹配单元格的地址，以便后面循环使用
        firstAddress = currentFind.Address
        
        '循环查找所有匹配的单元格
        Do
            '删除该单元格上方的一行
            currentFind.Offset(-1).EntireRow.Delete
            
            '删除该单元格下方的一行
            currentFind.Offset(1).EntireRow.Delete
            
            '继续查找下一个匹配单元格
            Set currentFind = searchRange.FindNext(currentFind)
        Loop While currentFind.Address <> firstAddress
    End If
End Sub

您只需要修改代码中的“要匹配的字符”和“设置要查找的范围”，然后运行该宏即可删除所有匹配字符的上下两行。

VBA编程去掉匹配字符的后面两行

好的，理解了您的问题。下面是一个示例VBA代码，可以去掉匹配字符后面的两行：

Sub RemoveLines()
    Dim searchStr As String
    Dim i As Long
    Dim j As Long
    
    searchStr = "匹配字符" '将"匹配字符"替换成您需要匹配的字符串
    
    With ActiveDocument.Content.Find
        .Text = searchStr
        .Forward = True
        .Wrap = wdFindStop
        Do While .Execute
            i = ActiveDocument.Range.Start
            j = ActiveDocument.Range.End
            ActiveDocument.Range(ActiveDocument.Range.End, ActiveDocument.Range.End + 1).Select
            Selection.MoveUp Unit:=wdLine, Count:=2
            ActiveDocument.Range(i, Selection.Range.End).Delete
            .Execute
        Loop
    End With
End Sub

在代码中，首先定义了一个变量`searchStr`，用于存储需要匹配的字符串，您需要将其替换成您需要匹配的字符串。

接下来，使用`ActiveDocument.Content.Find`方法查找文档中的匹配字符串。在找到匹配字符串之后，记录其开始和结束位置，然后将光标移到文档末尾，并向上移动两行，最后删除从起始位置到光标位置的文本。

请注意，这段代码只会删除匹配字符串后面的两行。如果匹配字符串在文档的最后一行，将不会删除任何行。