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

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