VBA 技巧：复制同一单元格多行内容到多个单元格

在 VBA 中，可以使用 Range 对象的 Copy 和 Paste 方法来实现同一单元格多行内容的复制和粘贴。

以下是一个示例代码，演示如何将 A1 单元格的多行内容复制到 A2:A4 单元格的多行：

Sub CopyMultipleLines()
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim numRows As Integer
    
    ' 设置源单元格范围
    Set sourceRange = Range("A1")
    
    ' 获取源单元格的行数
    numRows = sourceRange.Rows.Count
    
    ' 设置目标单元格范围
    Set destinationRange = Range("A2:A" & numRows + 1)
    
    ' 复制源单元格的内容到目标单元格
    sourceRange.Copy destinationRange
End Sub

在上述代码中，首先定义了一个 sourceRange 变量，用于表示源单元格的范围（A1 单元格）。然后，使用 sourceRange.Rows.Count 属性获取源单元格的行数。接下来，定义了一个 destinationRange 变量，用于表示目标单元格的范围（A2:A4 单元格）。最后，使用 sourceRange.Copy destinationRange 语句将源单元格的内容复制到目标单元格中。

你可以根据需要修改源单元格和目标单元格的范围。