EXCEL一串數字的加減乘除，怎麼把這些數字同時加上一個數?
作者：由 徐徐不倦 發表于 攝影時間：2022-11-08
徐徐不倦2022-11-08 13:18:32
這公式裡面的所有數字同時加上0。35
2022-06-29 08:29:31蠻有意思的一個問題。我來答一下吧
先看結果：
需要用到VBA，編寫了一個自定義函式xPlus。
共兩個引數，第一個引數為原資料，第二個引數為需要加上的數值。第二個引數可以是單元格引用，也可以直接輸入數值。
程式碼如下。有疑問可以與我聯絡。
Public Function xPlus（x As Range， y）
Dim i%， iLen%， t$， tn$， ta$， tb$
iLen = Len（x。Value）
t = x。Value
For i = 1 To iLen
ta = Mid（t， i， 1）
If ta = “+” Or ta = “-” Or ta = “*” Or ta = “/” Or ta = “（” Or ta = “）” Or ta = “（” Or ta = “）” Then
If tb <> “” Then tb = tb + y
tn = tn & tb & ta
tb = “”
Else
tb = tb & ta
If i = iLen Then tn = tn & tb + y
End If
Next i
xPlus = tn
End Function
@趣言Excel
