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

¦p¦ó§Q¥Î¤½¦¡§ä¨ìAÄæ °Ï¤º*¤§«áªº¼Æ¦r

¦p¦ó§Q¥Î¤½¦¡§ä¨ìAÄæ °Ï¤º*¤§«áªº¼Æ¦r

javascript:;

AÄæ ¸ê®Æ¦p¤U,¦p¦ó§Q¥Î¤½¦¡§ä¨ì°Ï¤º* ªº¼Æ¦r?
°Ï¤º*6
A13A04(°Ï¤º*18)
B04A02(°Ï¤º*521)

TEST.zip (7.35 KB)

¦^´_ 1# VANESSA
½Ð´ú¸Õ¬Ý¬Ý¡A¤½¦¡¤£·|¡AÁÂÁÂ
Sub test()
Dim Arr, Brr
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 1)
For i = 2 To UBound(Arr)
    If InStr(Arr(i, 1), "*") Then
        a = Split(Arr(i, 1), "*")(1)
        If InStr(a, ")") Then
            Brr(i, 1) = Replace(a, ")", "")
        Else
            Brr(i, 1) = a
        End If
    End If
Next
Range("b1").Resize(UBound(Brr)) = Brr
End Sub

TOP

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

TOP

¦^´_ 1# VANESSA

§ó·s2#¦p¤U¬õ¦r¡AÁÂÁÂ
Sub test()
Dim Arr, Brr
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 1)
For i = 2 To UBound(Arr)
    If InStr(Arr(i, 1), "*") Then
        a = Split(Arr(i, 1), "*")(1)
        If InStr(a, ")") Then
            Brr(i, 1) = Split(a, ")")(0)
        Else
            Brr(i, 1) = a
        End If
    End If
Next
Range("b1").Resize(UBound(Brr)) = Brr
End Sub

TOP

=MID(LEFT(A2,FIND(")",A2&")")-1),FIND("*",A2&"*")+1,19)

TOP

ÁÂÁÂ,¦n¼F®`,

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD