EXCEL VBA的代码问题？
发布网友
发布时间：2022-04-22 06:51
共2个回答
热心网友
时间：2024-02-06 16:32
Option Explicit
Sub 宏1()
Dim arrE&(), arrG, n&, i&, j&
n = Cells(Rows.Count, "G").End(xlUp).Row - 8 'G列有效数据行数
arrG = Range("g9").Resize(n, 8)
ReDim arrE&(1 To n, 1 To 1)
For i = 1 To n
For j = 1 To UBound(arrG, 2)
If arrG(i, j) = 0 Then arrE(i, 1) = arrE(i, 1) + 1
Next j
Next i
Range("e9").Resize(n, 1) = arrE
End Sub
热心网友
时间：2024-02-06 16:33
VBA就不用了吧，简单函数公式就可做到，E9单元格输入公式=COUNTIF(G9:N9,0)
下拉公式。追问因为数据比较多,涉及到手动转自动运算,所以这个我需要用VBA
