Excel 宏 - 将数据从多个单元格（包括其标题）复制到一个单元格

Question

我对宏一无所知。有没有一种代码可以用来将数据从多个单元格（包括其标题）复制到一个单元格。它看起来像这样：

这是源表：

输出结果如下：

Answer 1

这是VBA 代码：

Sub copy_range_to_cell()
  Set rng = Range("A3:C4")
  For Each Column In rng.Columns
    For Each cell In Column.Cells
      Range("E4").Value = Range("E4").Value & cell.Text & Chr(10)
    Next cell
    Range("E4").Value = Range("E4").Value & Chr(10)
  Next Column
End Sub

前：

后：