Question

EXCEL VBA的代码问题？

请问一下,在E列统计出 G:N列 0 出现的次数,一行一行的.这个代码应该怎么写?
用数组的办法快一些!

Answer 1

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

追问

谢谢老师,这个和上次一样,下面有公式的假空的行会返回0,怎么修改一下啊?
For i = 1 To n
If arrG(i, 1) "" Then
加了个判断也不行.

追答

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 len(arrG(i,j))>0 then
If arrG(i, j) = 0 Then arrE(i, 1) = arrE(i, 1) + 1
end if
Next j
Next i
Range("e9").Resize(n, 1) = arrE
End Sub

追问

arrE&不能去掉&,因为返回0的个数也会有0个0出现.
老师,我发在百度网盘里了

追答

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
if len(arrG(i,1))>0 then
arrE(i, 1)=0
For j = 1 To UBound(arrG, 2)
If arrG(i, j) = 0 Then arrE(i, 1) = arrE(i, 1) + 1
Next j
end if
Next i
Range("e9").Resize(n, 1) = arrE
End Sub

Answer 2

VBA就不用了吧，简单函数公式就可做到，E9单元格输入公式=COUNTIF(G9:N9,0)
下拉公式。

追问

因为数据比较多,涉及到手动转自动运算,所以这个我需要用VBA