返回列表下一主題上一主題發帖

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

VANESSA

中學生 Rank: 2

帖子: 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)

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

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

hcm19522

大學生 Rank: 4

帖子: 1449
主題: 17
精華: 0
積分: 1472
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-11-3

熱烈參與勳章

3^#

發表於 2021-12-27 20:13 | 只看該作者

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

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

准提部林