ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¨úªºªÅ¥Õ«á­±ªº¦r¦ê

[µo°Ý] ¦p¦ó¨úªºªÅ¥Õ«á­±ªº¦r¦ê

¥»©«³Ì«á¥Ñ jsc0518 ©ó 2020-12-29 21:29 ½s¿è

Dear all,
§Ú¦³¤@¦ê¨t²Î¼´¤U¨Óªº¸ê®Æ¡A¦ý¨C¤@­Ó¸ê®Æ«á­±³£¬O¤@­ÓªÅ¥Õ(°£³Ì«á¤@µ§¸ê®Æ«á­±¨SªÅ¥Õ)¡A§Ú­n¨Ï¥Î­þ¤@¤½¦¡¥h©î¤À¦¨¤£¦PªºÀx¦s®æ©O¡H
¹Ï¤ù¦p¤U

¤½¦¡©î¤À.rar (7.87 KB)
Just do it.

DIM varArrstr as Varriant
DIM coli as Integer

varArrStr = Split(InputString, " ")  


For coli =0 to 10 step 1

if varArrStr(coli ) ="" then
   exit for
end if

cells(1,coli +1) =varArrStr(coli )

Next coli
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 3# hcm19522

Hi ±z¦n¡I·PÁ¦^´_¡C
½Ð°Ý¥i¥H±Ð§Ú¤@¤U¤½¦¡»¡©ú¶Ü¡H
=TRIM(MID(SUBSTITUTE(TRIM(B$2)," ",REPT(" ",99)),ROW(A1)*99-98,99))
³o§Ú¤£¬O«ÜÀ´
·P®¦¡I
Just do it.

TOP

¦^´_ 2# ¼B¤j­G

Hi Sir,
³o»yªk¬O¬Æ»ò·N«ä°Ú¡H
·PÁ±z
Just do it.

TOP

(¤@)TRIM§RÀY§ÀªÅ¥Õ ¦r»P¦r¶¡¥u¯d¤@
(¤G)¤@ªÅ¥ÕÂX¤j99  ±q²Ä¤@¦r¤¸ ¨ú99ªø«× ¦ATRIM¬°²Ä¤@¦r²Å¦ê
(¤T)±q²Ä100 (1+99)¦r¤¸ ¨ú99ªø«× ¦ATRIM¬°²Ä¤G¦r²Å¦ê
¥H¦¹Ãþ±À
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 3# hcm19522
Hi Sir,
¦­¦w¡A±z¦n¡I
§Ú§âµe­±Åܦ¨¤U­±¹Ï¥Ü¡A§â¦U¸ê®Æ¥H"/"¤è¦¡°µ¬°°Ï¹j¡C
¹³³o¼Ëªº¸Ü¡A¤½¦¡­n«ç»ò¥h¼g¡H
§Ú·Q¥Î¤½¦¡¼g¦¨¸ò¥kÃä¤@¼Ë¡A¦]¬°§Ú¬O¥ÎBar Codeªº¤è¦¡¥h±½¥X¸ê°Tªº¡A·Q¥Î¤½¦¡¦Û°Ê©î¤À¥X¸ê°T
ÁٽФj®aÀ°¦£¡I¡I


¤½¦¡©î¤À2.rar (7.59 KB)
Just do it.

TOP

=TRIM(MID(SUBSTITUTE(TRIM($A2),"/",REPT(" ",99)),COLUMN(A1)*99-98,99))
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 8# hcm19522


Hi hcm19522,,
¤Ó·PÁ§AªºÀ°¦£¤F¡A¸Ñ¨M§Úªº°ÝÃD¡I¡I
Just do it.

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2022-11-25 15:45 ½s¿è

¦^´_ 7# jsc0518


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,½Ð¦U¦ì«e½ú«ü¥¿¨Ã«ü¾É!ÁÂÁÂ
°õ¦æ«e:


°õ¦æµ²ªG:


¤ß±oµù¸Ñ¦p¤U:
Option Explicit
Sub ½m²ß_°}¦C»P¦r¨å()
Dim Brr, i&, Y
'¡ô«Å§iÅܼÆ
Set Y = CreateObject("Scripting.Dictionary")
'¡ô¥OY ¬O¦r¨å
Brr = Range([¤u§@ªí1!A2], [¤u§@ªí1!A65536].End(3))
'¡ô¥OBrr¬O¤Gºû°}¦C! ­Ë¤J[A2]¨ì AÄæ³Ì«á¤@­Ó¦³¤º®eÀx¦s®æªº­È
For i = 1 To UBound(Brr)
'¡ô³]¶¶°j°é! ±q1 ¨ì Brr°}¦CÁa¦V¦C¸¹
   Y(i) = Split(Brr(i, 1), "/")
   '¡ô¥O¦r¨å¸Ë¤J°j°é¼Æªºkey,item¬O¤@ºû°}¦C(¥Î "/"²Å¸¹©î¸Ñ °}¦C°j°é¦r¦ê)
Next
[C5].Resize(Y.Count, 5) = Application.Transpose(Application.Transpose(Y.items))
'¡ô±q[C5]ÂX®i¦V¤UY¦r¨å¸Ìªºkey¼Æ¶q¦C¼Æ,¦V¥kÂX®i5Ä檺½d³ò,
'¶K¤JY¦r¨åitemÂà¸m¨â¦¸ªº­È

Set Y = Nothing
Set Brr = Nothing
End Sub

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD