[µo°Ý] ½Ð°Ý¤j¤j­Ì ¦³ÃöÀx¦s®æªº¦ê±µ±¡ªp

tr24572411

¸ê®Æ¥Ñ¹q¸£Âà¥X«á
¸ê®ÆÀx¦s®æ¦ì¸mµLªk¬Û¹ïÀ³
½Ð°Ý¤j¤j­Ì  ÁÂÁÂ
·P®¦
·P¿E

­ã´£³¡ªL

¥þ¿ï¢ÏÄæ¡A°õ¦æ¡e¸ê®Æ­åªR¡f¡Aª½±µ¸õ¦Ü²Ä¢²¨B¡A¦b¡eÄæ¦ìªº¸ê®Æ®æ¦¡¡f¿ï¶µ¤¤¿ï¥Î¡e¤å¦r¡f¡A
«ö¡e½T©w¡f«á¢ÏÄ椺®e¥þ³¡¦Û°ÊÂà´«¬°¡e¤å¦r¡f¡APHONETIC§Y¥i¥¿±`¨ú¦r¡I

handmuch

¦^´_ 1# tr24572411

B1 ¤½¦¡=A1

B2~B17  ¤½¦¡¤@¼Ë

E1~E3  °}¦C¤½¦¡

¤U¸ü (13.72 KB)

2016-4-23 00:16

¤U¸ü (82.01 KB)

2016-4-23 00:16

¤U¸ü (83.67 KB)

2016-4-23 00:16

tr24572411

¦^´_handmuch
½Ð°Ý
¦³ÃöB1 ¤½¦¡=A1
B2~B17  ¤½¦¡¤@¼Ë
¨ì³o¬q®É ¸ê®Æ½T¹ê¦³¦ê±µ
¦ýE1~E3  °}¦C¤½¦¡
§Ú¸òµÛ¿é¤J ¸ê®ÆµL¤ÏÀ³
½Ð°Ý¬O§_¥i¥HÅý§Ú¤U¸ü±zªºEXCEL¸ê®Æ
·PÁÂ

tr24572411

·PÁ­㴣³¡ªLªº¦^µª
Åý§Ú¼W¥[¤£¤Ö¾Ç²ßªºªÅ¶¡
ÁÂÁÂ

handmuch

¦^´_ 4# tr24572411


    °}¦C¤½¦¡½Ð«ö  Ctrl + Shift + Enter

hcm19522

http://blog.xuite.net/hcm19522/twblog/405374105

­ã´£³¡ªL

¸ê®Æ¦hªº¸Ü¡A¥i¦Ò¼{VBA¡G
Sub TEST()
Dim A As Range, B As Range, T$
[B:B].ClearContents: Set B = [B1]
For Each A In Range([A1], [A65536].End(xlUp)(2))
¡@¡@If A <> "" Then T = T & A
¡@¡@If A = "" And T <> "" Then B = T: Set B = B(2): T = ""
Next
End Sub

KCC

¦^´_handmuch
½Ð°Ý
¦³ÃöB1 ¤½¦¡=A1
B2~B17  ¤½¦¡¤@¼Ë
¨ì³o¬q®É ¸ê®Æ½T¹ê¦³¦ê±µ
¦ýE1~E3  °}¦C¤½¦¡
§Ú ...
tr24572411 µoªí©ó 2016-4-23 04:28

«e«á¦³ { } ¡A¥Nªí¨º¬O°}¦C¤½¦¡¡A¤½¦¡¶K¤W«á­n«ö ctrl-shift-enter¤~¯à¥¿½T°õ¦æ