如何判断合并单元格选定区域

兰州人

目的是将设计好表格(包含合并单格),存到一个数据库(或文本文件)中.
执行这个程序,变量修改某些数据后,重新生该表格,格式不变,这涉及到合并单元格选定区域问题.
当然,也可以在程序手动设置区域,这就太麻烦了.

兰州人

假如;合并区域为range(cells(4,2),cells(5,3)
  Debug.Print Cells(4, 2).MergeArea.Count结果为4
  '那么这种组合有三种情况
range(cells(4,2),cells(4,5)).MergeCells
  range(cells(4,2),cells(5,3)).MergeCells
range(cells(4,2),cells(7,2)).MergeCells

程序如下:

1. Sub ls1()
   
2.   'Debug.Print Cells(4, 2).MergeArea.Count
   
3.   nn = Cells(4, 2).MergeArea.Count
   
4.   cc = 2
   
5.   rr = 4
   
6.   ccc = cc
   
7.   rrr = rr
   
8.     For jj = cc To cc + nn
   
9.       If Range(Cells(rr, cc), Cells(rr, jj)).MergeCells Then
   
10.         ccc = ccc + 1
    
11.       Else
    
12.         Exit For
    
13.       End If
    
14.     Next jj
    
15.     Debug.Print ccc - 1
    
16. 
    
17.     For jj = rr To rr + nn
    
18.       If Range(Cells(jj, cc), Cells(jj, cc)).MergeCells Then
    
19.         rrr = rrr + 1
    
20.       Else
    
21.         Exit For
    
22.       End If
    
23.     Next jj
    
24.     Debug.Print rrr - 1
    
25.     Debug.Print Range(Cells(rr, cc), Cells(rrr - 1, ccc - 1)).MergeCells
    
26. End Sub

复制代码