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

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

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

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¦æ§@·~

°ÝÃD

°ÝÃD.png
2018-6-12 15:50


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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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ÁÂ

TOP

¦^´_ 3# peter631114
Snap4.jpg

´ú¸Õ.rar (6.96 KB)

TOP

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

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD