摘要： 文章介绍excel中用vba宏代码来进行合并单元格的操作过程，以及用VBA宏代码语句判断单元格是否为合并单元格。
以前的文章介绍excel合并单元格多是基础操作，本文介绍关于excel合并单元格宏VBA代码方面的应用。
第一，用VBA宏判断excel合并单元格
在excel中按下ALT F11，打开VBE编辑器，复制下面代码，按F5键运行，如果A1单元格为合并单元格，则弹出消息框提示此单元格为合并单元格，如果A1单元格没有合并，消息框提示此单元格不是合并单元格。
Sub excel合并单元格宏()
If Range("A1").MergeCells Then
MsgBox "此单元格为合并单元格"
Else
MsgBox "此单元格不是合并单元格"
End If
End Sub
如何删除excel中隐藏的名称
一些Excel宏和加载宏可以坐成隐含的名称，这些名称存在于某个工作簿中，但是并不出现在“定义名称”对话框中。例如， Solver加载宏生成了许多隐含的名称。通常，可以忽略掉这些隐含的名称。 然而，有时候这些隐含的名称会引起问题。假如将一个工作表复制到另一个工作簿中，隐含的名称也同样被复制，并且它
第二，用宏VBA代码来进行合并单元格
用上面介绍的方法，复制下面这段代码，运行的结果是：当我们在输入框输入一个行号，然后excel会自动合并A1到输入行号的单元格区域。比如我们输入8，excel则合并A1：A8单元格区域。
Sub合并单元格宏()
Dim x1 As Long
x1 = InputBox("请输入行号：")
Sheets("sheet1").Range("a1:a" & x1).Merge
End Sub
又比如下面这段宏VBA代码可以实现C6:F10单元格区域合并。
Sub 合并单元格()
Range("C6:F10 ").MergeCells = True
End Sub
Excel Vba正数数字批量换成文字
今天拿到了一个比较棘手的难题， 把数字全部换成正数这两个字。我最早用了定位，但定位只能是数字而不能正数。我又写了定义对象大于0，后来发现居然字母都被换掉了，这显然不是我要的。后来问了一个朋友原来也还要写段代码进行是不是数字的判断。最后的结果是 Sub ee() Dim rng As Range For Each rn
