標題: 如何利用公式找到A欄 區內*之後的數字 [打印本頁]

---

作者: VANESSA    時間: 2021-12-27 15:43     標題: 如何利用公式找到A欄 區內*之後的數字

javascript:;

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

---

作者: samwang    時間: 2021-12-27 16:10

回復 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

---

作者: hcm19522    時間: 2021-12-27 20:13

https://blog.xuite.net/hcm19522/twblog/590190762

---

作者: samwang    時間: 2021-12-28 08:02

回復 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

---

作者: 准提部林    時間: 2021-12-28 13:59

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

---

作者: VANESSA    時間: 2021-12-29 09:49

謝謝,好厲害,

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)