我是@EXCEL880實(shí)例視頻網(wǎng)站長(zhǎng)@歡迎關(guān)注我的頭條,每天分享Excel實(shí)戰(zhàn)技巧！私信回復(fù)77220即可得函數(shù)大全表格(500個(gè)函數(shù)+1000函數(shù)實(shí)例)

好吧,目前最短的答案來了!

=SUM(--IF(MID(A1,ROW($2:100),1)='*',RIGHT(SUBSTITUTE(LEFT(A1,ROW($1:99)),'+',REPT(' ',9)),9)))

另外一個(gè)群內(nèi)高手的簡(jiǎn)短答案

這題有點(diǎn)麻煩,Excel用函數(shù)處理這種問題總是很累人,最好的辦法使用VBA自定義函數(shù),一個(gè)正則就好了,我實(shí)在不喜歡用函數(shù)解決這種問題(其實(shí)是我函數(shù)比較弱),不過我還是拼著老命寫了一個(gè),有點(diǎn)長(zhǎng),湊合用吧,注意輸入后,要CTRL+SHIFT+ENTER三鍵回車,適用于99個(gè)字符長(zhǎng)度以內(nèi),

晚點(diǎn)我有更好的公式思路再來補(bǔ)充

=SUM(--IFERROR(MID('+'&A1,LARGE(IF(MID('+'&A1,ROW($1:$99),1)='+',ROW($1:$99),0),ROW($1:$99))+1,LARGE(IF(MID('+'&A1,ROW($1:$99),1)='*',ROW($1:$99),0),ROW($1:$99))-LARGE(IF(MID('+'&A1,ROW($1:$99),1)='+',ROW($1:$99),0),ROW($1:$99))-1),0))

下面介紹用VBA+正則表達(dá)式的解法 首先ALT+F11插入模塊,粘貼下面代碼

Function MYSUM(s)

Dim regex, temp, n

Set regex = CreateObject('VBScript.RegExp')

With regex

.Global = True

.Pattern = '\*\d+\+'

s = .Replace(s & '+', '+')

MYSUM = Evaluate(s & '0')

End With

Set regex = Nothing

End Function

然后在單元格中寫公式 =MYSUM(A1) 下拉即可