EXCEL VBA的代码问题?
请问一下,在E列统计出G:N列0出现的次数,一行一行的.这个代码应该怎么写?用数组的办法快一些!...
请问一下,在E列统计出 G:N列 0 出现的次数,一行一行的.这个代码应该怎么写?
用数组的办法快一些! 展开
用数组的办法快一些! 展开
2个回答
展开全部
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询