½Ð°Ý¤À³Î¦r¦ê..

EGBT

½Ð°Ý¤À³Î¦r¦ê..­n¦p¦ó¹J¨ì³r¸¹´N¤À³Î¦r¦ê©O?

¨C¦¸ªº¦r¦ê³£¬OÀH¾÷ªº,¨Ò¦p¡G"TV,¦­À\,dinner,1235Apple"

¤À³Î¬°¡G"TV"¡B"¦­À\"¡B"dinner"¡B"12345Apple"

½Ñ¦p¦¹Ãþ..

ML089

¦^´_ 8# Changbanana

¥[¦b«e­±¤]¥i¥H

1. Sub TEST1()
   
2. TT = Application.Transpose(Split([A1], "/"))
   
3. [A2].Resize(UBound(TT)) = TT
   
4. End Sub

½Æ»s¥N½X

ª`·N UBound(TT) ¨ú°}¦Cºû«×¤j¤p
TT = Split([A1], "/") ¬O (0 - 3) °}¦C¡A¨ú°}¦Cºû«×¤j¤p»Ý+1
TT = Application.Transpose(Split([A1], "/")) ¬O (1 - 4, 1 - 1) °}¦C¡A¨ú°}¦Cºû«×¤j¤p¤£¥Î+1

Changbanana

¦^´_ 7# ML089


  WOW~
  ­ì¨ÓÂà¸m¬O³o¼Ë¥Î
  ¤§«e¤@ª½§âApplication.Transpose¥´¦A³Ì«e­±³£¤@ª½¥X²{¿ù»~
  ÁÂÁ§A~°ÝÃD¸Ñ¨M¤F

ML089

¦^´_ 4# Changbanana

1. Sub TEST()
   
2. TT = Split([A1], "/")
   
3. [A2].Resize(UBound(TT) + 1) = Application.Transpose(TT)
   
4. End Sub

½Æ»s¥N½X

Changbanana

¦^´_ 5# Kubi


ÁÂÁ§Aªº¼ö¤ß¬Û§U ¦ý¬O¨S¦³¦^µª¨ì°ÝÃD­C~~

´ú¸Õ¹L«áÅܦ¨­È³£¦b¦P¤@­ÓÀx¦s®æ¤¤

µ²ªG¬O»Ý­n¦A¦P¤@Äæ ¤]´N¬O»¡A2:A5»Ý§e²{
1111123
1111223
1111553
1111663

Kubi

¦^´_ 4# Changbanana
[A2].Value = Replace([A1].Value, "/", Space(9))

Changbanana

¦^´_ 2# ­ã´£³¡ªL

¨Ï¥Î±zªþ¤Wªºµ{¦¡½X

1. Sub TEST()
   
2. TT = Split([A1], "/")
   
3. [A2].Resize(, UBound(TT) + 1) = TT
   
4. End Sub

½Æ»s¥N½X

­YA1Àx¦s®æ¬°:1111123/1111223/1111553/1111663
µ²ªG¦bA2§e²{¾îªº:1111123         1111223        1111553        1111663 (¦A¦P¤@¦æ)

­Yµ²ªG·Q­nª½ªº¦A¦P¤@Äæ
¸Ó«ç»ò­×§ï©O?
µ²ªG·Q§e²{
1111123
1111223
1111553
1111663

EGBT

§Ú¨Ó¸Õ¸Õ!! «Ü·PÁ¤j¤jªº¦^ÂÐ

­ã´£³¡ªL

A1¤å¦r¡GTV,¦­À\,dinner,1235Apple
Sub TEST()
TT = Split([A1], ",")
[B1].Resize(, UBound(TT) + 1) = TT
End Sub

©Î¡G
TT = Split([A1] & ",", ",")¡@'¤å¦r¦ê¦h¥[¤@­Ó³r¸¹¡A¥i²¤¹LA1ªÅ¥Õ®Éªº¿ù»~¡]¤£µM´N­n¥Hif¥h±Æ°£¡^
[B1].Resize(, UBound(TT)) = TT