用VBA代码把X和O（请假和事假）次数求和汇总

绿色心情小天使

大家晚上好：

     用VBA代码在打卡区把X和O（请假和事假）次数求和汇总到AJ列数据统计区，详见附件。
          GG0406.rar (133.94 KB, 下载次数: 7)

2023-4-6 20:40 上传

点击文件名下载附件

gwjkkkkk

Sub test()
    ar = [C6:AJ14]
    For i = 1 To UBound(ar)
        n = 0
        For j = 1 To UBound(ar, 2) - 1
            If ar(i, j) = "×" Or ar(i, j) = "○" Then
                 n = n + 1
            End If
        Next j
        ar(i, UBound(ar, 2)) = n
    Next
    [C6:AJ14] = ar
End Sub

全党

Sub shishi()
For i = 6 To 14
For j = 3 To 33
If Cells(i, j) = "×" Or Cells(i, j) = "○" Then
n = n + 1
Cells(i, 36) = n
End If
Next
n = 0
Next
End Sub

绿色心情小天使

gwjkkkkk 发表于 2023-4-6 20:54
Sub test()
    ar = [C6:AJ14]
    For i = 1 To UBound(ar)

1. [C6:AJ14] = ar

复制代码

这句代码是什么意思？

全党

绿色心情小天使 发表于 2023-4-6 21:36
这句代码是什么意思？

把aj6到c14 单元格数据放入ar,[c6:aj14]等同于aj6到c14

wx_97095

全党 发表于 2023-4-6 21:15
Sub shishi()
For i = 6 To 14
For j = 3 To 33

[em01