通过VBA在单元格中查找字符串集，并仅将找到的字符串复制到下一个单元格

Sub FindAndCopyStrings()
    Dim searchRange As Range
    Dim cell As Range
    Dim searchString As String
    Dim foundString As String
    Dim nextCell As Range
    
    ' 设置要搜索的范围
    Set searchRange = Range("A1:A10")
    
    ' 设置要查找的字符串集
    searchString = "字符串集"
    
    ' 循环遍历每个单元格
    For Each cell In searchRange
        ' 检查单元格的值是否包含要查找的字符串
        If InStr(1, cell.Value, searchString, vbTextCompare) > 0 Then
            ' 找到了匹配的字符串
            foundString = cell.Value
            
            ' 将找到的字符串复制到下一个单元格
            Set nextCell = cell.Offset(0, 1)
            nextCell.Value = foundString
        End If
    Next cell
End Sub