用于在列中查找字符串，然后按空格拆分偏移量位置的字符串的VBA代码

Sub FindAndSplitString()
    Dim searchRange As Range
    Dim searchValue As String
    Dim resultCell As Range
    Dim resultString As String
    Dim splitOffset As Integer
    
    ' 设置搜索范围
    Set searchRange = Range("A1:A10")
    
    ' 设置要搜索的字符串
    searchValue = "要查找的字符串"
    
    ' 设置拆分偏移量位置
    splitOffset = 2
    
    ' 遍历搜索范围
    For Each resultCell In searchRange
        ' 检查单元格中的值是否包含搜索字符串
        If InStr(1, resultCell.Value, searchValue, vbTextCompare) > 0 Then
            ' 拆分字符串并获取偏移量位置的字符串
            resultString = Split(resultCell.Value, " ")(splitOffset - 1)
            
            ' 在结果单元格中显示拆分后的字符串
            resultCell.Offset(0, 1).Value = resultString
        End If
    Next resultCell
End Sub