½Ð°Ý¦p¦ó¦b½d³ò¤º´M§ä¦h­Ó¤w³Q¦X¨ÖªºÀx¦s®æ©O?

tw123456789

°²³]¨Ï¥ÎªÌ¦b¤@¤u§@ªí¸Ì¡A¥ô·N¦a«Ø¥ß¦h­Ó¦X¨ÖÀx¦s®æ¸s¡A
¸Ó¦p¦ó§Q¥Îvba´M§ä³o¨Ç¤w³Q¦X¨ÖªºÀx¦s®æ©O?

GBKEE

¦^´_ 5# tw123456789

¤U¸ü (47.26 KB)

2012-8-17 11:31

tw123456789

ÁÂÁÂHsieh ¡K¸Ñ°£§ÚªºÃøÃD
chin15 ----¿ï´M§ä®æ¦¡¡A¿ï¦bÀx¦s®æ¤¤¿ï¨ú<---³o­Ó¬Ý¤£À´­C¡K½Ð°Ý¸Ó«ç°µ©O?

chin15

¥i¥Î´M§ä¥\¯à
¿ï´M§ä®æ¦¡¡A¿ï¦bÀx¦s®æ¤¤¿ï¨ú¡A¦A¿ï¤¤¤@­Ó¦X¨ÖÀx¦s®æ
«ö¥þ³¡´M§ä

tw123456789

¶W±jªº°Õ~~~~
¾ã­Ó´N¬O«Ü¨ØªA¡KÆg

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

½Æ»s¥N½X