卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

Excel VBA利用正則表達(dá)式實(shí)現(xiàn)取字符串中數(shù)字并求和的方法

在Excel VBA中,我們可以利用正則表達(dá)式來(lái)實(shí)現(xiàn)取字符串中數(shù)字并求和的方法。下面將介紹具體操作步驟。步驟一:打開(kāi)VBE編輯器并添加引用首先,我們需要打開(kāi)Excel VBA的編輯器,也就是ALT F

在Excel VBA中,我們可以利用正則表達(dá)式來(lái)實(shí)現(xiàn)取字符串中數(shù)字并求和的方法。下面將介紹具體操作步驟。

步驟一:打開(kāi)VBE編輯器并添加引用

首先,我們需要打開(kāi)Excel VBA的編輯器,也就是ALT F11快捷鍵打開(kāi)的VBE編輯器。然后單擊菜單欄的“工具”,再選擇“引用”。

彈出“引用-VBAProject”對(duì)話框后,勾選“Microsoft VBScript Regular Expressions 1.0”,最后點(diǎn)擊“確定”按鈕。

步驟二:新建一個(gè)模塊并輸入代碼

接下來(lái),在VBE編輯器中新建一個(gè)模塊。輸入如下代碼:

Sub tsszstrqh()

Dim reg As New RegExp

Dim str As String, t, s, arrstr Range("A1").Value

With reg

.Global True

.Pattern "[^0-9.%]"

arr "" Right(.Replace(str, " "), Len(.Replace(str, " "))) - 1

.Pattern " "

Range("B1") .Replace(arr, " ")

End With

End Sub

這段代碼的作用是將A1單元格中的字符串中的數(shù)字提取出來(lái)并求和,然后將結(jié)果輸出到B1單元格中。

步驟三:運(yùn)行宏并查看結(jié)果

最后,在VBE編輯器中按下ALT F8,運(yùn)行剛剛編寫的宏。此時(shí),我們可以在B1單元格中看到提取出來(lái)的數(shù)字的求和結(jié)果。

綜上所述,利用Excel VBA的正則表達(dá)式功能可以方便地取出字符串中的數(shù)字并進(jìn)行計(jì)算。以上就是本文的全部?jī)?nèi)容,希望對(duì)大家有所幫助。

標(biāo)簽: