使用VBA搜索特定的字符串格式并粘贴到新的excel工作表中

Sub SearchAndPaste()
    Dim searchRange As Range
    Dim cell As Range
    Dim searchString As String
    Dim newSheet As Worksheet
    Dim pasteRow As Long
    
    ' 设置搜索范围为当前活动工作表的A列
    Set searchRange = ActiveSheet.Range("A:A")
    
    ' 设置要搜索的字符串格式
    searchString = "特定的字符串格式"
    
    ' 创建新的工作表并设置为活动工作表
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Activate
    
    ' 在新工作表的第一行插入标题
    newSheet.Range("A1").Value = "搜索结果"
    
    ' 初始化粘贴行数为2
    pasteRow = 2
    
    ' 遍历搜索范围中的每个单元格
    For Each cell In searchRange
        ' 判断单元格的值是否包含搜索字符串
        If InStr(1, cell.Value, searchString, vbTextCompare) > 0 Then
            ' 如果包含搜索字符串，则将该单元格的值粘贴到新工作表中
            newSheet.Range("A" & pasteRow).Value = cell.Value
            pasteRow = pasteRow + 1
        End If
    Next cell
End Sub