¦U¦ì«e½ú¦n,
¤p§Ì¥Ø«e½m²ß¦r¨åª«¥ó®É¹J¨ì¤@Ó°ÝÃD,
ªþ¤WÀÉ®×¥H¨Ñ«e½ú°Ñ¦Ò:
20161111-¬d¸ß¨Ã¹ï»ô¾î¦C°ÝÃD.zip (7.94 KB)
°ÝÃD¥H¤å¦r²³æ»¡©ú¦p¤U:
AÄæ»PBÄ欰¸ê®ÆÁ`ªí,¨Ì§Ç±Æ¦C,
AÄæÀx¦s®æ¸ê®Æ»PBÄæÀx¦s®æ¸ê®Æ¨ã¦³¬Û¹ïÃö«Y.
CÄæ»PDÄ檺¸ê®Æ¬O¨ú¦ÛAÄæBÄæ,¦ý¬O¶¶§Ç¸g¹L¥´¶Ã.
EÄæ»PFÄæ¥ç¦P.
²{¦b¬O§Æ±æ¥i¥H±N¸ê®Æ±Æ§Ç«á,±N¸ê®Æªº¾î¦C¦ì¸m¹ï»ôAÄæ»PBÄ檺¦ì¸m.
¥Î¤å¦r»¡©ú¥i¯à¤£©ö²z¸Ñ,
ÁٽЫe½ú°Ñ¦ÒªþÀɪº"´Á±æµ²ªG¥Ü·N"¶ÅÒ.
³oÓ½m²ß°ÝÃD¬O§ï½s¦Û¥H¤Uºô§}ªº¹ê¨Ò7:
http://club.excelhome.net/thread-868892-1-1.htmlz
¸Ó½×¾Â¦³ªO¤Íªþ¤W°Ñ¦Ò¸Ñµª¦p¤U,
§Ú¥Î¹q¸£ª©¬Ý¤£¨ìºô¯¸ªº¹Ï¤ù,
±À´ú¥i¯à¬O±q²Ä¤T¾î¦C¶}©l,»P¤p§Ì¦¹½gªºªþÀɦ³¨Ç®t²§,¶È¨Ñ°Ñ¦Ò:- Private Sub CommandButton1_Click() ¡¥by:oobird
- Dim d As Object, rng, i%, j%, arr
- Set d = CreateObject("Scripting.Dictionary")
- rng = Range("a3:f" & [a65536].End(xlUp).Row)
- ReDim arr(1 To UBound(rng), 1 To 4)
- For i = 1 To UBound(rng)
- d(CStr(rng(i, 1))) = i
- Next i
- For j = 3 To 5 Step 2
- For i = 1 To Cells(65536, j).End(xlUp).Row - 2
- If d(CStr(rng(i, j))) <> "" Then
- arr(d(CStr(rng(i, j))), j - 2) = rng(i, j)
- arr(d(CStr(rng(i, j))), j - 1) = rng(i, j + 1)
- End If
- Next i
- Next j
- [c3].Resize(UBound(rng), 4) = arr
- End Sub
½Æ»s¥N½X ¦]¬°ª¾¹D½×¾Â¤Wªº«e½úÀ³¸Ó¦³¨ä¥L¤è¦¡ªº¸Ñªk,
©Ò¥H¤p§Ì¤æÁx¤W¨Óµo°Ý,¥i¥Hªº¸ÜÁÙ±æ«e½ú¤£§[¸Ñµª,·PÁÂ. |