Excel VBA: 如何将同一单元格的多行内容复制到不同单元格

在 Excel VBA 中，可以使用 Range 对象和 Offset 方法将同一单元格的多行内容复制到不同的单元格。以下是一个示例代码：

Sub 复制多行内容到不同单元格()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim i As Integer
    
    ' 设置源单元格范围
    Set sourceRange = Range('A1:A3')
    
    ' 设置目标单元格范围
    Set targetRange = Range('B1')
    
    ' 循环复制每一行内容到不同的单元格
    For i = 1 To sourceRange.Rows.Count
        sourceRange.Rows(i).Copy targetRange.Offset(i - 1, 0)
    Next i
End Sub

在上面的示例中，我们首先设置了源单元格范围 ('A1:A3') 和目标单元格范围 ('B1')。然后，使用 For 循环遍历源单元格的每一行，使用 Copy 方法将该行的内容复制到目标单元格的偏移位置 (i-1 行)。最后，通过 Offset 方法实现了单元格的偏移。

你可以根据实际情况修改源和目标单元格范围，并调整偏移位置来满足你的需求。