stillfish00

¦^´_ 9# c_c_lai
.Parent ¬O«ü¨ì «e­± With Sheets(1).[A1].CurrentRegion ªº parent ¤]´N¬O sheets(1)
ª½±µ¥Î Range(prev) ¡AÀ³¸Ó¬Û·í©óActiveSheet.Range(prev)¡A·Ó¹D²z¬O¨SÔ£¼vÅT¡C

ML089

¦^´_ 1# c_c_lai

½Ð°ÝÀɮ׮פ¤¦³¹Ï¤ù¡A¦p¦ó±N¹Ï¤ùªº¹Ï§ÎÂন 0, 255¼Æ¦r

ºâ0ªº­±¿n¡A§Úªì¨Bºâ§¹¦³381²Õ(¤]¤£ª¾¹D¹ï¤£¹ïÁÙ¨S¦³Åçºâ)¡A¨ä¤¤¦³«Ü¦h²Õ¬O 0¡A»Ý­n§â0²Õ¹LÂo±¼¶Ü?
¦³¼Ð·Çµª®×¥i¥Hµ¹§ÚÅçÃÒ¶ý?

Hsieh

¦^´_ 2# c_c_lai
¸ê®Æ¶qÃe¤j¡A¥B¦]¬°¦U­ÓÀx¦s®æ¥²¶·­n¥H»¼°j¤è¦¡´ú¬O³sÄò»P§_
¶]ªº¦³ÂI¤[
¥ÎÁY¤p¸ê®Æ¶q¥ý¦æ´ú¸ÕÀ³¸ÓÁÙOK¡A§A´ú¸Õ¬Ý¬Ý
­±¿n¤j¤p¤À§G²Î­p.zip (112.96 KB)

¤U¸ü¦¸¼Æ: 11

2013-12-6 15:05

c_c_lai

¦^´_ 12# ML089
¤£¦n·N«ä²{¦b¤~¦^¨Ó¡I
¨º±i¹Ï¤ù¥u¬O¼Ë±i¦Ó¤w¡A
§Ú­Ó¤H¥ç¦b±´¯Á¤¤¡A¨º¬O§Ú¥t¤@¤Í¤Hªº´£°Ý¡A
¤]¦h»X¦U¦ì¹©¤O¨ó§U¡A§Æ±æ¯à±q¤¤§ä¥XÀYºü¡C

c_c_lai

¦^´_ 13# Hsieh
ÁÂÁ±z¡I
«Ý´ú¥Xµ²ªG«á¦A¦æ¦V±z³ø§i¡C

ML089

¦^´_ 14# c_c_lai

½Ð°Ý³s¦b¤@°_±o­ì«h¬O¤°»ò¡A½Ð¬Ý¹Ï¤¤»¡©ú

¤U¸ü (95.49 KB)

2013-12-6 18:25

c_c_lai

¦^´_ 13# Hsieh
¦^´_ 16# ML089
¦^´_ 11# stillfish00
ÁÂÁ¤j®a¡A²×©ó´ú¸Õ¥Xµ²ªG¤F¡AÁöµM³t«×¤WµyµyºC¤FÂI¡G

¤U¸ü (22.21 KB)

2013-12-6 20:51

¤U¸ü (31.51 KB)

2013-12-6 20:51

c_c_lai

¦^´_ 13# Hsieh
¦^´_ 16# ML089
¦^´_ 11# stillfish00
­±¿n¤j¤p¤À§G²Î­pB.rar (108.71 KB)

¤U¸ü¦¸¼Æ: 6

2013-12-6 20:52

·PÁ¦U¦ìªºÀ°¦£¡A¦pÁÙ¦³§ó¨Î®Ä¯qªº¸Ñ¨M¤è®×¡A
·q½Ð¤£§[«ü±Ð¡I

c_c_lai

¦^´_ 16# ML089
¥H±`²z¨Ó½×¡A 10 »P 25 À³µL©¼¦¹¶¡¤§¦êÁp¡AÀ³Äݤ£¦P¤§°Ï¶ô¤~¬O¡A
§A¦b¹ê§@¤W¬O¦p¦ó¸ÑªRªº¡H

c_c_lai

¦^´_ 16# ML089
Hsieh ª©¤j¥L¬OÀ³¥Î "»¼°j" ªº³B²z§Þ¥©¡A¨Ó¨D¥X¦UÂkÄݰ϶ôªº½d³ò¡A
³oºØÂI¤Î©ó­±ªº¹B¥Î¬O­ÓÆZ¤£¿ùªº Idea¡A§A¬Ý¬Ýµ{¦¡½X²Ó²Ó¦a¥h±ÀºV¡A
¬OÆZ­È±o¦^¨ýªº¡A ¦bùØÀY§Ú¥[¤W¤F sRng ªº¦ì§}¬ö¿ý³B²z¡A¨Ã¦P®É¨D¨ú
¨C­Ó°Ï¶ôªº¹ê»Ú¦ì§}¼Æ¡A¥H´£¨Ñ°Ñ¦Ò¤§¥Î¡G

1. Option Explicit
   
2. 
   
3. Public s As Long
   
4. Public sRng As Variant
   
5. 
   
6. Sub ex()
   
7.     Dim dic As Object
   
8.     Dim A As Range, Rng As Range, sPos As Range
   
9.    
   
10.     Set dic = CreateObject("Scripting.Dictionary")
    
11.     dic("³sÄò¼Æ¶q") = "¼Æ¶q"
    
12.     '   ¼W¦C³¡¤À
    
13.     ¤u§@ªí2.[C1] = "³sÄò¦ì§}"
    
14.     ¤u§@ªí2.[D1] = "²Õ¦X¼Æ¶q"
    
15.    
    
16.     With ¤u§@ªí1
    
17.         Set Rng = .Range("A1").CurrentRegion
    
18.         Rng.Replace 0, Empty, xlWhole
    
19.         
    
20.         Set sPos = ¤u§@ªí2.[C2]
    
21.         Set A = Rng.Find(Empty)
    
22.         
    
23.         Do Until A Is Nothing
    
24.             A = 0: s = 1
    
25.             Cnt A
    
26.             dic(s) = dic(s) + 1
    
27.             
    
28.             sPos = sRng
    
29.             sPos.Offset(0, 1) = Range(sRng).Count
    
30.             
    
31.             Set A = Rng.Find(Empty)
    
32.             
    
33.             Set sPos = sPos.Offset(1)
    
34.         Loop
    
35.     End With
    
36.    
    
37.     With ¤u§@ªí2
    
38.         .[A1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
39.         .[B1].Resize(dic.Count, 1) = Application.Transpose(dic.items)
    
40.         .[A1].Resize(dic.Count, 2).Sort key1:=.[A1], Header:=xlYes
    
41.     End With
    
42.    
    
43.     '  MsgBox dic.Count - 1
    
44.     Set dic = Nothing
    
45. End Sub
    
46. 
    
47. Function Cnt(Rng As Range)
    
48.     Dim A As Range, Temp As Range
    
49.     Dim i As Integer
    
50.         
    
51.     For Each A In Rng
    
52.         For i = -1 To 1 Step 2
    
53.             If A.Row + i > 0 And A.Row + i < ¤u§@ªí1.Range("A1").CurrentRegion.Rows.Count Then
    
54.                 If IsEmpty(A.Offset(i, 0)) Then Set Temp = Union(Rng, A.Offset(i, 0))   '  "$BF$4:$BF$5"
    
55.             End If
    
56.         Next
    
57.         For i = -1 To 1 Step 2
    
58.             If A.Column + i > 0 And A.Column + i < ¤u§@ªí1.Range("A1").CurrentRegion.Columns.Count Then
    
59.                 If IsEmpty(A.Offset(, i)) Then Set Temp = Union(Rng, A.Offset(, i))   '  "$BF$4:$BG$4"
    
60.             End If
    
61.         Next
    
62.     Next
    
63. 
    
64.     If Not Temp Is Nothing Then      '  True
    
65.         Temp = 0
    
66.         s = Temp.Count
    
67.         sRng = Temp.Address
    
68.         Cnt Temp
    
69.     End If
    
70. End Function

½Æ»s¥N½X