按条件统计每个表固定区域的数据

xihaihandsp · 发表于 2023-4-5 22:39

按条件统计每个表固定区域的数据，向各位老师请教！！！！！！！！！！！！！！感谢帮助！！！！！！！！！！！！！！！！！！！！！！！！

Vicel · 发表于 2023-4-5 23:13

zxsea_7426 · 发表于 2023-4-5 23:15

zxsea_7426 · 发表于 2023-4-5 23:16

zxsea_7426 · 发表于 2023-4-5 23:17

Sub test()
For Each sht In Sheets
ar = sht.Range("D2:D26")
sht.[d30] = 0
For j = 1 To UBound(ar)
If Val(ar(j, 1)) > 5 Then sht.[d30] = sht.[d30] + 1
Next j
If sht.[d30] = 0 Then sht.[d30] = ""
Next
End Sub

复制代码

gwjkkkkk · 发表于 2023-4-5 23:28

Sub test()
Dim wks As Worksheet
For Each wks In Sheets
      n = 0
      With wks
         ar = .[D2:D26]
         For i = 1 To UBound(ar)
            If ar(i, 1) > 5 Then
                  n = n + 1
            End If
         Next i
         .[D30] = n
      End With
Next
End Sub

xihaihandsp · 发表于 2023-4-6 00:02

zxsea_7426 发表于 2023-4-5 23:15

感谢老师帮助！！！！！！！非常感谢！！！！！！！！！！1

		自动登录	找回密码
密码			免费注册

[求助] 按条件统计每个表固定区域的数据

评分

评分

评分

评分