leiru

高中生 Rank: 3 Rank: 3

帖子: 334
主題: 139
精華: 0
積分: 621
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2022-11-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-4-10 10:25 | 只看該作者

截取A欄內最後一個數字以後的字串(結果在B欄)

截取A欄內最後一個數字以後的字串(結果在B欄).zip (6.07 KB)

樓主熱帖

joyce

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

2^#

發表於 2018-4-10 12:11 | 只看該作者

try this:

Sub zz()
Dim ar, d As Object, rp As Object
ar = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).Value
With CreateObject("vbscript.regexp")
.Pattern = "\b[^\d\w]+"
For i = 1 To UBound(ar)
If .test(ar(i, 1)) Then Debug.Print .Execute(ar(i, 1))(0)
Next
End With
End Sub

複製代碼

TOP

leiru

高中生 Rank: 3 Rank: 3

帖子: 334
主題: 139
精華: 0
積分: 621
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2022-11-3

3^#

發表於 2018-4-10 12:50 | 只看該作者

請問是否可以用函數解答,感恩

joyce

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

4^#

發表於 2018-4-10 13:11 | 只看該作者

陣列公式〔Shift + Ctrl → Enter〕三鍵
=MID(A2,MATCH(1,-MID(0&A2,ROW($1:$59),1)),99)

TOP

leiru

高中生 Rank: 3 Rank: 3

帖子: 334
主題: 139
精華: 0
積分: 621
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2022-11-3

5^#

發表於 2018-4-10 15:56 | 只看該作者

回復 4# 准提部林

請問ROW($1:$59)是指第一列至第59列嗎?若是,那為何要1至59列

joyce

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章