ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

[ª©¥DºÞ²z¯d¨¥]
  • ¤p»x(2011-3-25 22:43): ¼Ó¥D¤w»¡¬O­n¥ÎVBA¤F°Õ!!

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

µû¤À¤H¼Æ

    • gong: ¨Ï¥Î¤è¦¡¶W¼ô½m ¶WÀuª÷¿ú + 2

TOP

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

TOP

¦^´_ 5# tw123456789

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD