請問如何在範圍內尋找多個已被合併的儲存格呢?

tw123456789

假設使用者在一工作表裡，任意地建立多個合併儲存格群，
該如何利用vba尋找這些已被合併的儲存格呢?

GBKEE

回復 5# tw123456789

下載 (47.26 KB)

2012-8-17 11:31

tw123456789

謝謝Hsieh …解除我的難題
chin15 ----選尋找格式，選在儲存格中選取<---這個看不懂耶…請問該怎做呢?

chin15

可用尋找功能
選尋找格式，選在儲存格中選取，再選中一個合併儲存格
按全部尋找

tw123456789

超強的啦~~~~
整個就是很佩服…讚

Hsieh

回復 1# tw123456789

1. Sub nn()
   
2. Dim a As Range, rng As Range
   
3. For Each a In ActiveSheet.UsedRange
   
4.   If a.MergeCells Then
   
5.      If rng Is Nothing Then
   
6.         Set rng = a.MergeArea
   
7.         Else
   
8.         If Intersect(a, rng) Is Nothing Then Set rng = Union(rng, a.MergeArea)
   
9.      End If
   
10.    End If
    
11. Next
    
12. If Not rng Is Nothing Then MsgBox rng.Areas.Count
    
13. End Sub

複製代碼