摘要： 要想判断合并单元格，得分为两种情况： ①：当前选中的单元格为合并单元格;
②：选区内有合并单元格;
代码一：
If Selection.MergeCells or IsNull(Selection.MergeCells) Then
M...
要想判断合并单元格，得分为两种情况：
①：当前选中的单元格为合并单元格;
②：选区内有合并单元格;
代码一：
If Selection.MergeCells or IsNull(Selection.MergeCells) Then
MsgBox "选区内有合并单元格"
Else
MsgBox "选区内没有合并单元格"
End If
代码二：
Flag = False
使用CreateObject创建Excel实例代码
使用CreateObject创建Excel实例代码 一、使用CreateObject创建Excel Sub LateBinding() 'Declare a generic object variable Dim objExcel As Object 'Point the object variable at an Excel application object Set objExcel = CreateObject(
For Each Rng In Selection
If Rng.MergeCells Then
Flag = True
Exit For
End If
Next
If Flag Then
MsgBox "选区内有合并单元格"
Else
MsgBox "选区内没有合并单元格"
End If
经过测试验证，代码一比代码二更具有效率。在使用的时候，将如上的代码放到过程里面即可直接使用。
VBA完全操作Excel单元格备注Cell Comments的代码
VBA完全操作Excel单元格备注Cell Comments的代码 一、获取单元格的备注 Private SubCommandButton1_Click() Dim strGotIt As String strGotIt = WorksheetFunction.Clean(Range(
