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

[µo°Ý] ¦a§}¸ê®Æ¤À³Î¦¨¦hÄæ

[µo°Ý] ¦a§}¸ê®Æ¤À³Î¦¨¦hÄæ

½Ð°Ý¦a§}¸ê®Æ­n¤À³Î¦¨¦hÄæ B2¡BC2¤½¦¡¡HÁÂÁ¡I

Image 2.jpg
2021-11-18 08:17


¦a§}.zip (9.04 KB)

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 1# aer

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, a, i&
Arr = Range([d1], [a65536].End(3))
For i = 2 To UBound(Arr)
    Arr(i, 2) = Left(Arr(i, 1), 3)
    a = Mid(Arr(i, 1), 4)
    If InStr(a, "¶m") Then
        Arr(i, 3) = Split(a, "¶m")(0) & "¶m"
        Arr(i, 4) = Split(a, "¶m")(1)
    ElseIf InStr(a, "Âí") Then
        Arr(i, 3) = Split(a, "Âí")(0) & "Âí"
        Arr(i, 4) = Split(a, "Âí")(1)
    ElseIf InStr(a, "¥«") Then
        Arr(i, 3) = Split(a, "¥«")(0) & "¥«"
        Arr(i, 4) = Split(a, "¥«")(1)
    ElseIf InStr(a, "°Ï") Then
        Arr(i, 3) = Split(a, "°Ï")(0) & "°Ï"
        Arr(i, 4) = Split(a, "°Ï")(1)
    End If
Next
Range("a1").Resize(UBound(Arr), 4) = Arr
End Sub

TOP

¦^´_ 2# hcm19522

¤½¦¡´ú¸Õ¨S°ÝÃD¡A·PÁ±z¡I

TOP

¦^´_ 3# samwang

´ú¸Õ¨S°ÝÃD¡A·PÁ±z¡I

TOP

B2:
=LEFT(A2,3)

C2:
=MID(LEFT(A2,-LOOKUP(,-FIND({"¶m","Âí","¥«","°Ï"},A2,4))),4,9)

D2:
=MID(A2,LEN(B2&C2)+1,99)

­Y¦a§}³W«h¤£½T©w, ­n¥t·Q¿ìªk~~

TOP

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

´ú¸Õ¨S°ÝÃD¡A·PÁ±z¡I

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD