|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
原帖由 4me 于 2010-12-25 23:30 发表
如何区分纵向单元格合并或横向单元格合并?
可试试如下代码:- Sub test()
- '判断插入点所在表格的单元格合并情况
- Dim i As Integer, TF As Boolean
- On Error Resume Next
- If Selection.Information(wdWithInTable) = False Then Exit Sub
- With Selection.Tables(1)
- i = .Rows(1).Index
- If Err = 5991 Then TF = True
- i = .Columns(1).Cells.Count
- If Err = 5992 Then
- MsgBox IIf(TF, "既有横向也有纵向合并", "只有横向合并")
- Else
- MsgBox IIf(Err, "只有纵向合并", "没有合并单元格")
- End If
- End With
- End Sub
复制代码 如果要判断特定单元格的合并情况,可试试通过其行列属性与相邻单元格行列属性比较来判断。 |
|