同时获取多个单元格的内容_如何把多个单元格的内容装入到多个合并单元格

如何取消合并单元格并填充内容，以前弄过一段视频，分别用了四种方法，今天用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指的是合并单元格。

这篇文章是连载教程，如果看不太懂，后台回复a1,a2,a3,a4,a5分别获取几十篇初级教程。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。