返回列表 上一主題 發帖

如何利用公式找到A欄 區內*之後的數字

如何利用公式找到A欄 區內*之後的數字

javascript:;

A欄 資料如下,如何利用公式找到區內* 的數字?
區內*6
A13A04(區內*18)
B04A02(區內*521)

TEST.zip (7.35 KB)

回復 1# VANESSA
請測試看看,公式不會,謝謝
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

隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

回復 1# VANESSA

更新2#如下紅字,謝謝
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

謝謝,好厲害,

TOP

        靜思自在 : 站在半路,比走到目標更辛苦。
返回列表 上一主題