返回列表 上一主題 發帖

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

VANESSA

帖子
100 
主題
37 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
台灣 
註冊時間
2010-8-11 
最後登錄
2024-3-12 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-12-27 15:43 | 只看該作者

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

javascript:;

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

TEST.zip (7.35 KB)

收藏 分享

VANESSA

帖子
100 
主題
37 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
來自
台灣 
註冊時間
2010-8-11 
最後登錄
2024-3-12 

論壇贊助勳章
6#
發表於 2021-12-29 09:49 | 只看該作者
謝謝,好厲害,

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-29 
5#
發表於 2021-12-28 13:59 | 只看該作者
=MID(LEFT(A2,FIND(")",A2&")")-1),FIND("*",A2&"*")+1,19)

TOP

samwang

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

hcm19522

帖子
1388 
主題
4 
精華
0 
積分
1398 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-29 

熱烈參與勳章
3#
發表於 2021-12-27 20:13 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/590190762
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

samwang

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

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題