Excel VBA循环遍历由空格分隔的文本部分，然后复制并转置到新工作表上

Sub SplitAndTranspose()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim text As String
    Dim parts() As String
    Dim i As Integer
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 将"Sheet1"替换为实际的源工作表名称
    Set targetSheet = ThisWorkbook.Sheets.Add ' 创建一个新的工作表作为目标工作表
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1") ' 设置源范围的起始单元格
    Set targetRange = targetSheet.Range("A1") ' 设置目标范围的起始单元格
    
    ' 获取源范围中的文本
    text = sourceRange.Value
    
    ' 使用空格分隔文本并存储到数组中
    parts = Split(text, " ")
    
    ' 循环遍历数组中的每个部分
    For i = LBound(parts) To UBound(parts)
        ' 将每个部分复制到目标范围中的下一行
        targetRange.Offset(i, 0).Value = parts(i)
    Next i
    
    ' 转置目标范围中的数据
    targetRange.Resize(UBound(parts) - LBound(parts) + 1, 1).Copy
    targetRange.Resize(1, UBound(parts) - LBound(parts) + 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 可以根据需要进行其他操作，如格式化目标范围等
    
    ' 提示完成
    MsgBox "文本已分隔并转置到新工作表上。"
End Sub