Question

excel vba单元格内容求和修改

条件：可以输入多个数

Answer 1

步骤如下：

1.利用VBA对A列为字母的单元格对应的B列数值进行求和：

2.Alt+F11，输入代码如下：

3.F5执行代码，结果如下：

Answer 2

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

追问

修改为1、2、3、4
cc = Array(1, 2, 3, 4)是这样吗

修改为1、4
cc = Array(1, 4)是这样吗

修改为1、3、4
cc = Array(1,3, 4)是这样吗