Question

怎么通过VBA判断EXECL合并区域中某单元格的位置

我想通过按钮用Rows().Delete的方式来实现删除EXECL中某一行的功能,
出现了一个问题,
如B2:B5为合并区域,
在用程序删除第2行时，合并区域变为B2:B4,里面的内容会被清空,这和正常删除合并区域第1行情况一样
通过程序记录B2内容，再删除第2行，再给B2赋值的方式可解决,
但可能需要删除的是第3行，而B3的内容是空，再用上面方法就会清空区域,
VBA里有函数MergeCell来判定一个单元格所在区域是否是合并区域，
但不能知道在合并区域的什么位置，第几行

我想实现的功能就是：
所要删除行
如果是合并区域的第1行，记录数据，删除行，重新赋值合并区域
如果不是第1行，直接删除行，合并区域值不变

请高手指点，TKS

Answer 1

.MergeArea可返回该区域
.MergeArea.Cells(1, 1)可返回该区域的值

对于本例:
Range("b3").MergeCells 可返回是否有合并
Range("B3").MergeArea.Cells(1, 1)就返回了合并区域的值
Range("B3").MergeArea.ROW 返回了合并区域第一行的行标
Range("B3").MergeArea.rows.Count 返回了合并区域行数