excel中用VBA求一列数的和值。

答案:1 悬赏:50 手机版

解决时间 2021-04-02 17:35

提问者网友：回忆在搜索
2021-04-02 02:45

excel中用VBA求一列数的和值。

最佳答案

五星知识达人网友：梦中风几里
2021-04-02 03:29

u1=MId(A1,1,1)+MId(A1,2,1)+MId(A1,3,1) 拖到最下面
t1=if(u1=u1000,A1,"") 拖到最下面追问我想用VBA算和值。因为我的表格中全是VBA如有公式会变慢。追答公式肯定比vba快啊，硬要写 vba的话帮你写个函数吧。
Function sumInt(v As Long) As Long
Dim sum As Long
sum = 0
While True
sum = sum + (v Mod 10)
v = v / 10
If v = 0 Then
sumInt = sum
Exit Function
End If
Wend
End Function追问怎么用啊。好象不对的。还有第二点要求呢。追答直接alt+f11 添加个模块把这个代码加进去之后可以直接在excel里面 =sumint（123）追问要不起。追答？回头把文件给你贴出来吧。
第二个问题实在没必要用函数，

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息