无法遍历计算只计算了最后一张表

gxgjack

Sub 合计()
Dim i, a, b As Worksheet
For i = 2 To Sheets.Count
With Excel.Application.WorksheetFunction

Set a = Sheets("汇总")
For Each b In Worksheets
    a.Range("d26") = .CountA(b.Range("a:a")) - 1
    a.Range("d27") = .CountIf(b.Range("f:f"), "男")
    a.Range("d28") = .CountIf(b.Range("f:f"), "女")
Next
End With
i = i + 1
Next
End Sub

ykcbf1100

为啥，表循环你要来二次呢？

主要是你在表循环时，操作的都是总表的三个单元格，所以，最后的结果就是最后一个表的数据。

gxgjack

ykcbf1100 发表于 2023-3-20 16:44
为啥，表循环你要来二次呢？

主要是你在表循环时，操作的都是总表的三个单元格，所以，最后的结果就是最 ...

哥，那的如何把几个表的数量合计到指定单证格中呢，

ykcbf1100

gxgjack 发表于 2023-3-20 17:19
哥，那的如何把几个表的数量合计到指定单证格中呢，

是不是这意思？

gxgjack

ykcbf1100 发表于 2023-3-20 17:29
是不是这意思？

哥，感谢，是的，目前学习的有点懵了，你的帮助又再次感受到home的温暖，祝好。