[µo°Ý] ¨D±Ï~VBA¼¶¼g

peter631114

Dear ¤j¤j
§Ú³oÃ䦳¤@­ÓVBA°ÝÃD,¤£ª¾¹D¦p¦ó¼¶¼g,¥i¥H½Ð¦U¦ì±M®a¨ó§UÀ°¦£

°ÝÃD¦p¤U¹Ï©Ò¥Ü,§Æ±æ³Ì«á§e²{µ²ªG¦pKÄæ»PMÄæ,°ò¥»¤W°ÝÃD´N¬O
§Q¥ÎBÄ椺ªº±ø¥ó¨Ì§Ç§PÂ_,

1.        B2=B3,«hK2=A2 »P M2=A3
2.        B2=B4,«hK3=A2 »P M3=A4
3.        B2=B5,«hK4=A2 »P M4=A5
4.        B2<>B6«h©¹¤U¸õ¦ÜB3Àx¦s®æ¶i¦æ§@·~
5.        B3=B4, «hK5=A3 »P M5=A4
6.        B3=B5, «hK6=A3 »P M6=A5
7.        B3<>B6«h©¹¤U¸õ¦ÜB4Àx¦s®æ¶i¦æ§@·~

°ÝÃD¦p¤U¹Ï©Ò¥Ü,§Æ±æ³Ì«á§e²{µ²ªG¦pKÄæ»PMÄæ,°ò¥»¤W°ÝÃD´N¬O
§Q¥ÎBÄ椺ªº±ø¥ó¨Ì§Ç§PÂ_,

1.        B2=B3,«hK2=A2 »P M2=A3
2.        B2=B4,«hK3=A2 »P M3=A4
3.        B2=B5,«hK4=A2 »P M4=A5
4.        B2<>B6«h©¹¤U¸õ¦ÜB3Àx¦s®æ¶i¦æ§@·~
5.        B3=B4, «hK5=A3 »P M5=A4
6.        B3=B5, «hK6=A3 »P M6=A5
7.        B3<>B6«h©¹¤U¸õ¦ÜB4Àx¦s®æ¶i¦æ§@·~

¤U¸ü (64.92 KB)
°ÝÃD

2018-6-12 15:50

¬¡­¶Ã¯1.rar (12.09 KB)

°ÝÃDVBA
¤U¸ü¦¸¼Æ: 4

2018-6-12 15:47

peter631114

¤j¤j
¤£¦n·N«ä,¤W¦¸»¡©ú¦³»~,¥i§_°Ñ¦Ò¤W­±±Ô­z,­«·sÀ°¦£­×§ï

peter631114

¦^´_ 3# peter631114

peter631114

¦^´_ 2# GBKEE
¤j¤j:
¯uªº¬O¸U¤À·PÁÂ,¥i¥H¥Î¤F~~ÁÂÁÂ~~§Ú·R³o­Ó°Q½×°Ï¤F~~§Ú­nºCºC§l¦¬¤j¤j§A©Ò¼¶¼gªº¤º®e,¦³°ÝÃD§Ú¦A´£¥X¸ß°Ý~~¦A¦¸·PÁÂ

GBKEE

¦^´_ 1# peter631114
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Test()
   
3.     Dim Rng As Range, i, ii
   
4.     Set Rng = [b2]
   
5.     ' Rng.Cells(1) =[b2], Rng.Cells(2) =[b3]
   
6.     ' Rng.Offset(, -1)  , -1 ¬° ¦V¥ª¤@Äæ(A),0 ¬° Rng©Ò¦bªºÄæ¦ì(B),1 ¬° ¦V¥k¤@Äæ(C)
   
7.      'Rng.Offset(i - 1, -1)  ,i - 1 ¬° ¦C¸¹
   
8.     ii = 2
   
9.     Do While Rng <> ""
   
10.         i = 2
    
11.         Do While Rng = Rng.Cells(i)
    
12.             Cells(ii, "k") = Rng.Offset(, -1)
    
13.             Cells(ii, "m") = Rng.Offset(i - 1, -1)
    
14.             i = i + 1:             ii = ii + 1
    
15.          Loop
    
16.         Set Rng = Rng.Offset(1)
    
17.     Loop
    
18. End Sub

½Æ»s¥N½X