EXCEL VBA:当在另一个excel文件中找到一个单元格的值时，将多行中的3列合并在一起

Sub MergeColumns()
    Dim targetWorkbook As Workbook
    Dim targetWorksheet As Worksheet
    Dim targetCell As Range
    Dim mergeRange As Range
    Dim mergedValue As String
    Dim i As Integer
    
    ' 打开目标Excel文件
    Set targetWorkbook = Workbooks.Open("目标文件路径\目标文件名.xlsx")
    Set targetWorksheet = targetWorkbook.Worksheets("目标工作表名")
    
    ' 定位目标单元格
    Set targetCell = targetWorksheet.Range("A1:A100").Find("目标单元格值", LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 合并多行中的3列
    If Not targetCell Is Nothing Then
        Set mergeRange = targetCell.Offset(0, 1).Resize(3, 3) ' 假设需要合并的是目标单元格右侧的3列，共3行
        mergedValue = ""
        
        For i = 1 To mergeRange.Rows.Count
            mergedValue = mergedValue & mergeRange.Cells(i, 1).Value & " " & mergeRange.Cells(i, 2).Value & " " & mergeRange.Cells(i, 3).Value & vbCrLf
        Next i
        
        ' 将合并后的值写入当前工作簿
        ThisWorkbook.Worksheets("当前工作表名").Range("B2").Value = mergedValue
    Else
        MsgBox "未找到目标单元格"
    End If
    
    ' 关闭目标Excel文件
    targetWorkbook.Close SaveChanges:=False
End Sub