如何取消合并单元格并填充内容，以前弄过一段视频，分别用了四种方法，今天用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分别获取几十篇初级教程。
子曰：用之则行，不用则藏。
意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。
	

单元格是Excel中最小的一个单位，几个概念的范围大小依次是：工作簿＞工作表＞行/列＞单元格，单元格是我们操作得最多的一类对象。

Excel 2016版里，每个工作簿的单元格行数：104 8576，列数：1 6384，单元格个数：104 8576 × 1 6384 = 171 7986 9181

一个单元格内字符容量是32767个字符，实际上，我们根本用不到这么大的容量。

VBA中单元格学习的重要性：

（1）大部分的批量操作，都是在操作单元格；

（2）单元格的表示方法与操作、信息获取方式，是使用VBA编程的基础。

单元格操作实例之多表内容合并：

原材料：3张单表+1张汇总表

                    

目标效果：



代码实现：

Sub 多表合并()

Dim i%, rs%, rss%, st As Worksheet, zdw As Worksheet

Set zdw= Sheets("整单位")                                '将汇总工作表"整单位"定义为变量zst

For i = 1 To 3

       Set st = Sheets(i & "部门")                          '将1-3每部门的工作表定义为变量st

       rs = st.UsedRange.Rows.Count                  '计算1-3部门每个表的最后一行

       rss = zdw.UsedRange.Rows.Count + 1         '计算“整单位的最后一行的下一行”

       st.Range("a2:b" & rs).Copy Cells(rss, 1)      '复制每个1-3表的数据到总表中

       Cells(rss, 3).Resize(rs - 1) = i & "部门"         '将1-3表的工作表名写入到总表对应的记录行末尾

Next

End Sub

 

 

大家好，我们今日继续讲解VBA代码解决方案的第49讲内容(注：在整理之前的VBA系列文章中合并了一些文章，重新成集排序为第49讲，所以从这篇文章开始以新的排序计算)：VBA中SUM函数的利用方法。对多个单元格求和，是统计工作中非常普遍的工作，在之前的函数讲解过程中，我下了很大的气力来讲解SUM函数及其衍生的函数，在数组的讲解中也讲了此函数在数组中的利用，可以说SUM函数在统计工作中起着举足轻重的作用，如果把这个函数利用好了，对自己的工作是非常方便的，今日我在VBA中就此函数的利用及规律再次加以讲解。
在对工作表的单元格区域进行求和计算时，使用工作表Sum函数比使用VBA代码遍历单元格进行累加求和效率要高得多，我们在熟悉了基本的代码规则后，就要把重点放在优化程序上，这点非常重要，在一般的简单运算中或许体会的不是很深，在数据库的操作中这点非常的明显。SUM函数就是优化程序的一个方法。
我们看下面的代码。
Sub MyrngSum()
Dim rng As Range
Dim d As Double
Set rng = Range("A1:H10")
d = Application.WorksheetFunction.Sum(rng)
MsgBox rng.Address(0, 0) & "单元格的和为" & d
End Sub
Sub MyrngSum2()
Dim rng, rngs As Range
Dim d As Double
Set rngs = Range("A1:H10")
For Each rng In rngs
If rng > 0 Then d = d + rng
Next
MsgBox rngs.Address(0, 0) & "单元格的和为" & d
End Sub
代码解析：
MyrngSum过程调用工作表Sum函数对工作表的单元格区域"A1:H10"进行求和计算。
在VBA中调用工作表函数需要在工作表函数前加上WorksheetFunction属性。应用于Application对象的WorksheetFunction属性返回WorksheetFunction对象，作为VBA中调用工作表函数的容器，在实际应用中可省略Application对象识别符。
在实际的应用中，我们不仅要对指定的单元格区域进行简单的求和，还要利用上判断的条件，这个时候，如果只是利用WorksheetFunction的sum函数就有些吃力了，我们为此仍旧回到原始的单元格判断上来，如上面的MyrngSum2的过程。
下面我们实测一下上面的两个过程：
代码窗口：
首先运行的是MyrngSum过程：
再次运行的MyrngSum2过程：这次的运行中就去除了负数部分。
所以在具体的应用中不要机械，要实际问题实际分析。
今日内容回向：
1 sum 函数在VBA中是如何应用的？
2 完成条件求和的思路是怎么样的？
3 如果要是上述区域有数字呢？该如何进行判断？

VBA实践+查找所有合并单元格并记录其地址
合并单元格是两个以上单元格的合并，但在excel程序内部还是被当成多个单个的单元格的。合并单元格只有左上角的单元格包含数据，其他为空。一般，合并单元格的存在会给数据处理带来麻烦。要处理合并单元格，首先要找到合并单元格。
在excel中，合并单元格是一种格式，可以通过“查找替换”对话框进行查找，如下图所示。Ctrl+H调出“查找和替换”对话框，“查找内容”处单击格式，单击“对齐”选项卡，勾选“合并单元格”，确定后，单击“查找全部”，即可查找到当前工作表中所有的合并单元格。
下图的示例中，共找到了三处合并单元格，并列出每个合并单元格的地址和值。可以单击这个清单中的条目，跳转到相应的合并单元格，以便进行手动处理。
也可以在“替换为”设置替换内容或替换格式，单击“全部替换”，批量对这些合并单元格进行处理。
可以通过一段简单的VBA代码实现上述过程。自定义VBA代码可以实现“查找和替换”不能实现的复杂操作，如往合并单元格中添加内容、进行运算、添加删除行或列等。
Excel的find方法与word中的find方法不同，word的可以检测到文档的结尾，设置是否继续从头查找或者停止查找，而excel的没有相应的设置，会不断的重复查找，所以需要额外设置停止查找的条件，如查找到的单元格的地址与第一次查找到的单元格相同则停止查找。
Excel的find方法似乎不能继承上次的设置，第二次使用时，即使参数相同，最好还是编写完整，否则可能发生错误。
为了能查找到下一处，find.after属性应该设置上次查找到的单元格。
Sub 查找所有合并单元格并记录地址()
Dim firstStr As String, alladd As String, cell1 As Range, i&
i = 0
Application.FindFormat.Clear  '清除原有查找格式
Application.FindFormat.MergeCells = True  '查找格式设置为合并单元格格式
With ActiveSheet.UsedRange '对已经使用区域查找
    Set cell1 = .Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchFormat:=True)  '设置查找参数,并尝试查找一个合并单元格
    If cell1 Is Nothing Then
        MsgBox "区域内无合并单元格"
        Exit Sub  '如果找不到则退出
    Else
        firstStr = cell1.Address  '取第一个找到的单元格的地址
        Do
            Set cell1 = .Find(What:="", After:=cell1, LookIn:=xlFormulas, LookAt:=xlPart, SearchFormat:=True) '查找下一个,虽然前面已设置过，但此处查找参数仍然需要填写完整，否则查找出错
            alladd = alladd & Chr(13) & Chr(10) & cell1.Address
            i = i + 1
        Loop While firstStr <> cell1.Address  '直到找到的单元格的地址等于第一个单元格地址时停止
    End If
End With
MsgBox "共有" & i & "个合并单元格，地址分别为" & Chr(13) & Chr(10) & alladd
End Sub