excel表格里面同时有很多文字和数据，如何对数据每个加100，不删除文字？
发布网友
发布时间：2022-04-23 08:54
共2个回答
热心网友
时间：2023-10-08 23:14
'自定义公式-按ALT+11-插入-模块
Function 找数加数(a As String)
c = Split(a, "/", -1, 1)
Dim arr()
For i = 0 To UBound(c)
m = Left(c(i), Len(c(i)) - 4) & (Right(c(i), 4) + 100)
t = t & "/" & m
Next
找数加数 = Right(t, Len(t) - 1)
End Function
热心网友
时间：2023-10-08 23:14
ctrl+H，调出替换窗口，一个一个替换。
