excel vba单元格内容求和修改
答案:2 悬赏:70 手机版
解决时间 2021-02-01 19:23
- 提问者网友：温旧梦泪无声
- 2021-02-01 13:58
条件：可以输入多个数
最佳答案
- 五星知识达人网友：思契十里
- 2021-02-01 14:08
Sub s()
Dim rg As Range, c As Range
Set rg = [a39:j1038]
cc = Array(3, 4)
tt = [h5].Text
For Each c In rg
If c <> "" Then
k = Val(Mid(c, cc(0), 1))
For i = 1 To UBound(cc)
k = k + Val(Mid(c, cc(i), 1))
Next
k = k Mod 10
If InStr(tt, CStr(k)) Then c = ""
End If
Next
End Sub
Dim rg As Range, c As Range
Set rg = [a39:j1038]
cc = Array(3, 4)
tt = [h5].Text
For Each c In rg
If c <> "" Then
k = Val(Mid(c, cc(0), 1))
For i = 1 To UBound(cc)
k = k + Val(Mid(c, cc(i), 1))
Next
k = k Mod 10
If InStr(tt, CStr(k)) Then c = ""
End If
Next
End Sub
全部回答
- 1楼网友：举杯邀酒敬孤独
- 2021-02-01 15:16
步骤如下：
1.利用vba对a列为字母的单元格对应的b列数值进行求和：
2.alt+f11，输入代码如下：
3.f5执行代码，结果如下：
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯