返回列表 上一主題 發帖

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

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
1# 跳轉到 »
發表於 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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 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

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題