Àx¦s®æ¤º¿ï¨ú"-"¤§«e¤Î¤§«áªº¦r²´¡C
| ©«¤l12 ¥DÃD6 ºëµØ0 ¿n¤À19 ÂI¦W0  §@·~¨t²Îwindow 7  ³nÅ骩¥»Excel 2013 ¾\ŪÅv10 µù¥U®É¶¡2015-7-15 ³Ì«áµn¿ý2022-2-2 
  
 | 
 Àx¦s®æ¤º¿ï¨ú"-"¤§«e¤Î¤§«áªº¦r²´¡C
| A1 Àx»W®æ¤º: suiji008ker-suiji5656----¸j©wÂI¼Æ¡G¢¯¦W¦r¡G¦Ñ¦ò·Ýªí¥Ü¾§¦n«Ó µ¥¯Å¡G¢²¢¯¾Ô°«¤O¡G5,727 ¬q¦ì¡G»ÈµP¢×¢ä
 
 ¦U¦ì¤j¤j§A̦n¡A§Ú·Q¦bA1¤¤¡A¿ï¨úsuiji008ker ªº¦r ¶K¨ì B1¤¤ ¡A¤§«á·Q¿ï¨úsuiji5656ªº¦r¶K¦bC1 ¤¤¡C
 ¥i¥H§P©w¬O"-" «e±ªº¦r²´ ¤Î"----"«eªº¦r²´¡C
 
 §Ú¥Î¤FFOR NEXT ¦ýµ²ªG¨«¤£³q¡A¦b³oÓ¹Lµ{¤¤§Ú³]©w¤F¶W¹L3ÓÅܼƥh°µFOR NEXT ..µ²ªG.....
 
 §Æ±æ¤j¤j¥i¥H¥Î¤@Ó¤ñ¸û²©öªº¤èªk±Ð¤@±Ð¤p§Ì~·P¿E¸U¤À
 | 
 | 
|  | 
|  |  | 
|  |  | 
| ©«¤l2025 ¥DÃD13 ºëµØ0 ¿n¤À2053 ÂI¦W0  §@·~¨t²ÎWIN7 ³nÅ骩¥»Office2007 ¾\ŪÅv100 ©Ê§O¨k ¨Ó¦Û¥x¥_¥« µù¥U®É¶¡2011-3-2 ³Ì«áµn¿ý2024-3-14 
      
 | 
                
| ¦^´_ 1# tc1701 
 Sub ex()
 For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
 Cells(i, 2).Resize(, 2) = Split(Cells(i, 1), "-")
 Next
 End Sub
 | 
 | 
| {...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡ | 
|  |  | 
|  |  | 
| ©«¤l12 ¥DÃD6 ºëµØ0 ¿n¤À19 ÂI¦W0  §@·~¨t²Îwindow 7  ³nÅ骩¥»Excel 2013 ¾\ŪÅv10 µù¥U®É¶¡2015-7-15 ³Ì«áµn¿ý2022-2-2 
  
 | 
                
| ¦^´_ 2# ML089 
 
 Á¤j¤j¡A
 ·Q°Ý¤@¤U¬°¤°»òn¥Î¨ìRESIZE? ¦ÓRESIZE (,2) ¬O¤°»ò·N«ä?
 | 
 | 
|  | 
|  |  | 
|  |  | 
| ©«¤l2025 ¥DÃD13 ºëµØ0 ¿n¤À2053 ÂI¦W0  §@·~¨t²ÎWIN7 ³nÅ骩¥»Office2007 ¾\ŪÅv100 ©Ê§O¨k ¨Ó¦Û¥x¥_¥« µù¥U®É¶¡2011-3-2 ³Ì«áµn¿ý2024-3-14 
      
 | 
                
| RESIZE (,2) ¬O¤°»ò·N«ä? RESIZE (,2)´N¬O½d³ò¼W¥[¬°2Äæ
 
 Cells(i, 2).Resize(, 2) ´N¬O RANGE(Cells(i, 2), Cells(i, 3))
 Cells(i, 2).Resize(, 3) ´N¬O RANGE(Cells(i, 2), Cells(i, 4))
 Cells(i, 2).Resize(, 4) ´N¬O RANGE(Cells(i, 2), Cells(i, 5))
 
 ´å¼Ð²¾¦Ü Resize «öF1 ´N¯à¬Ý¨ì»¡©ú
 | 
 | 
| {...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡ | 
|  |  | 
|  |  | 
| ©«¤l12 ¥DÃD6 ºëµØ0 ¿n¤À19 ÂI¦W0  §@·~¨t²Îwindow 7  ³nÅ骩¥»Excel 2013 ¾\ŪÅv10 µù¥U®É¶¡2015-7-15 ³Ì«áµn¿ý2022-2-2 
  
 | 
                
| ¦^´_ 4# ML089 
 
 ©ú¥Õ¤F~ÁÂÁ§A~§Ú·|¦h¬Ý¬Ý»¡©ú¦Aµo°Ý!!¤S¤W¤F¤@½Ò°ó~·P®¦
 | 
 | 
|  | 
|  |  | 
|  |  |