標題: 請問如何在範圍內尋找多個已被合併的儲存格呢? [打印本頁]

---

作者: tw123456789    時間: 2011-3-23 17:21     標題: 請問如何在範圍內尋找多個已被合併的儲存格呢?

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

---

作者: Hsieh    時間: 2011-3-23 17:56

回復 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

複製代碼

---

作者: tw123456789    時間: 2011-3-24 16:35

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

---

作者: chin15    時間: 2011-3-25 22:12

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

---

作者: tw123456789    時間: 2012-8-17 10:10

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

---

作者: GBKEE    時間: 2012-8-17 11:31

回復 5# tw123456789

[attach]12164[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)