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

[µo°Ý] §ì¨ú¯S®í²Å¸¹¥ª¥kªº­È

[µo°Ý] §ì¨ú¯S®í²Å¸¹¥ª¥kªº­È

Dear all,
¤j®a¦n¡I
½Ð°Ý¤@¤U¡G
A1 =  1.5/2.3/3 ¡A§Ú­n¦p¦ó§â­Èµ¹¨ú¥X  B1=1.5¡BC1=2.3¡BD1=3
¥t¥~§Úªº¼Æ­È¦³®É­ÔµL¤p¼ÆÂI¡A¦³®É­Ô¤p¼ÆÂI·|¨ì1~3¦ì¡A½Ð°Ý¤½¦¡­n¦p¦ó¤U¡H

Thank you.
Just do it.

¦^´_ 1# jsc0518



B1 =IFERROR(IF(FIND(".",A1),TEXT(A1,"#.#")),A1)

TOP

¦^´_ 2# samwang
Dear samwang,
·PÁ±zªº¦^ÂмڡC
©êºp§Ú¨S§â°ÝÃD»¡±o«Ü²M·¡¡A§Ú·Q­nªº¬O¦p¤U¹Ïªº§e²{¡C·P®¦


Just do it.

TOP

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

TOP

¦^´_ 3# jsc0518

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim a, Ar()
a = Split(Cells(1, 1), "/")
For i = 0 To UBound(a)
    ReDim Preserve Ar(s)
    Ar(s) = Split(Cells(1, 1), "/")(i)
    s = s + 1
Next
Range("b1").Resize(1, s) = Ar
End Sub

TOP

¦^´_ 5# samwang
Dear samwang,
VBA¥i¥H©î¤À¥i¥H¥Î¼Ú¡A·PÁ±z
Just do it.

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD