如何把多个单元格的内容装入到多个合并单元格

如何取消合并单元格并填充内容，以前弄过一段视频，分别用了四种方法，今天用VBA实现将多个单元格的内容填写到多个不同的合并单元格中。

如下图，需要把多个单元格分别装入到多个合并的区域。一个个复制粘贴显然不是办法。

现在就可以用一段代码来搞定了。

做完之后效果如下：

分别填入进去了。

使用的代码如下：

Private Sub CommandButton1_Click() Dim myrange As Range Dim i As Integer Set myrange = Range("a2") For i = 0 To 2 Set myrange = myrange.Offset(i).MergeArea myrange.Value = Cells(1, 3 + i) Next iEnd Sub

代码简单解释一下：

分别声明myrange变量，因为是对象型，赋值前面需加 set

dim i变量是数值类型，不需要加set

利用循环加上offset偏移正好实现不断向下选择合并单元格。

Mergearea指的是合并单元格。