¦p¦ó³]©w½Æ»s°j°ésheet1½Æ»sÀx¦s®æ¦Üsheet2©T©w¦ì¸m????
- ©«¤l
- 9
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2023-10-10
|
¦p¦ó³]©w½Æ»s°j°ésheet1½Æ»sÀx¦s®æ¦Üsheet2©T©w¦ì¸m????
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2023-10-10
|
¦^´_ 2# lpk187
¤j¤jªGµM¼F®`¡A¦ý«Ü¦n©_¡A§Ú¦b¤½¥q´ú¸Õªº®ÉÔ¤½¥q¬O2003ª©¥»¡A«o¤@ª½¥X¿ù»~¡A¦]¤£¤F¸Ñ¦U¶µ¦¸ªº³]©w©Ò¥H¨S¦b¹Á¸Õ×§ï¡A¦^¨ì®a¦b´ú¸Õ¤@¦¸¡A©~µM¥i¥H!!!!!!
³o¬O¦³ª©¥»¶Ü??? |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2023-10-10
|
¦^´_ 3# ã´£³¡ªL
ª©¤j¡A¤µ¤Ñ¦³´ú¸Õ±z¼gªº¡A¤@¶}©l¥X²{¿ù»~¡A±NCall ²M°£(³o¥X²{¿ù»~¡A§R°£«á´N¥i¥H°õ¦æ¤F)¡A·PÁ°Õ!
¦ý¦³Ó°ÝÃD¡A§Ú¦³¹Á¸Õ±N¤@Ó¼ÐÅҥΨâÓ°]²£½s¸¹¡A¦ý×§ï«á¤´¬O¤@Ó¤@Ó¸õ¦p¤U:
Sub 刴X()
Dim R&, xR As Range, xH As Range, xE As Range
R = [¼ÐÅÒ²M³æ!A65536].End(xlUp).Row
If R < 2 Then Exit Sub
Set xH = [¼ÐÅҼ˦¡!A4]: Set xE = xH
For Each xR In [¼ÐÅÒ²M³æ!A2].Resize(R - 1)
If xH = "" Then [¼ÐÅҼ˦¡!1:3].Copy xE
xE(2, 2) = xR(1)
xE(3, 2) = xR(2)
Set xE = xE(1, 3)
If xE = "" Then Set xH = xH(4): Set xE = xH
Next
[¼ÐÅҼ˦¡!1:3].EntireRow.Delete
Application.Goto [¼ÐÅҼ˦¡!A1]
End Sub |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2023-10-10
|
¦^´_ 1# poke0817
·Q½Ð°Ý¡A¦pªG¦³¤@Ó²M³æ¡A¥i¬O¶·¹ïÀ³¤TºØ¼ÐÅÒ¡A
1¡B¨Ì¶µ¦¸1(²M³æ)¡AA~DªºÄæ¦ìfor ¼ÐÅҼ˦¡1(¹ïÀ³¸Ó²M³æªº®Æ¸¹¡B«~¦W¡B§å¸¹¡B²°¼Æ)¡A¦b¨Ì·Ó²M³æ(C7¶}©l)°ª«×±Æ¦C(C7¡BC8¡BC9¡BC10)¡Aª½¨ìCÄæ²M³æµ²§ô¡C
2¡B¨Ì¶µ¦¸1(²M³æ)¡AF~IªºÄæ¦ìfor ¼ÐÅҼ˦¡2(¹ïÀ³¸Ó²M³æªº®Æ¸¹¡B«~¦W¡B§å¸¹¡B²°¼Æ)¡A¦b¨Ì·Ó²M³æ(H7¶}©l)°ª«×±Æ¦C(B5¡BD5)¡Aª½¨ìCÄæ²M³æµ²§ô¡C(¼ÐÅÒ3ªº¤è¦¡À³¸Ó¸ò¦¹¤@¼Ë¡A¥u¬O¹ïÀ³ªº²M³æ°Ï°ì¤£¤@¼Ë)
¼ÐÅÒ§Ö§â§Ú·d¦º¤F¡A¬ã¨s¤£¥X©Ò¥HµM¨Ó.......¤§«e¿ý»s¥¨¶°¨ì²´ªá¡A¤S³Q¥DºÞ¥´ºj= =!!
¼ÐÅÒ»s§@.rar (20.99 KB)
|
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2023-10-10
|
¦^´_ 8# ã´£³¡ªL
ã´£³¡ªL :·PÁª©¤j¡A¦]ªþ¥ó¦³¼h¯Å¡A¤p§Ì§ÚÁÙ¤Ó¹à¡A©Ò¥H¨S¿ìªk¤U¸ü¨Ó¬Ý¡A¦³¦b°w¹ï§A¼¶¼gªºµ{¦¡¥h´ú¸Õ¡A¨Ì·Ó¤@±i¼ÐÅÒ§@¹ïÀ³²M³æ¥|²Õ×§ï¡A¦ý¦b¶]°j°é®ÉÁÙ¬O·|¨Ì·Ó²M³æ²Ä¤G²Õ¶}©l«·sÄò½s¡AµLªk¨Ì·Ó²M³æ²Ä¤²Õ¶}©l¡A¦p¹Ï©Ò¥Ü....¦pªG¥i¥HÄò½s§Ú¨ä¥¦¤TÓ¼ÐÅҤ覡À³¸Ó¥i¥H¸òµÛ×¥¿¡A®t¦b²°¼Æªº³¡¤À´N¨S¿ìªk±µÄò+1¤F¡C
|
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-13
- ³Ì«áµn¿ý
- 2023-10-10
|
¦^´_ 11# ã´£³¡ªL
ã´£³¡ªL ª©¤j¡A¤£¦n·N«ä°Õ!!ì¥ý¬O·Q»¡¥i¥H¹ïÀ³ªº¸Ü¦Û¤v¦b¥t¥~³]©w¨ä¥¦¤T²Õ¼ÐÅҼ˦¡¡A©Ò¥H¤~¨S¤@¦¸»¡²M·¡¡A©êºp°Õ!!
¤w¸g¦³¬Ý¨ì¤j¤j³]©w¨º¤TÓ¼ÐÅҼ˦¡¤F¡A¯uªº¬O¤Ó¼F®`¤F..........¦Ó¥BÁ٫ܶK¤ßªº¥þ³]©w¦n¤F¡A³sµô¤Áªº³¡¤À³£¦Ò¼{¨ì¡A¦n¤j¤ßªü{:3_59:}
§V¤O¤F¸Ñµ{¦¡ì²z¤¤............«D±`·PÁ³¡ªL¤j¤j!!:handshake |
|
|
|
|
|
|