VBA 合并 A、B、C 列数据到 D 列

要将 a、b、c 列依次放入 d 列，可以使用以下 VBA 代码：

Sub MergeColumns()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' 获取最后一行的行号
    
    ' 将 a、b、c 列的值依次放入 d 列
    Range("D1:D" & lastRow).Formula = "=A1"
    Range("D" & lastRow + 1 & ":D" & lastRow * 2).Formula = "=B1"
    Range("D" & lastRow * 2 + 1 & ":D" & lastRow * 3).Formula = "=C1"
    
    ' 将公式结果转换为值
    Range("D1:D" & lastRow * 3).Value = Range("D1:D" & lastRow * 3).Value
End Sub

这段代码假设 a、b、c 列的数据从第一行开始，而且 a 列数据的最后一行是最后一行数据的行数。代码首先获取最后一行的行号，然后使用公式将 a、b、c 列的值依次放入 d 列，最后将公式结果转换为值。