从宏返回整数

Question

我试图循环浏览excel电子表格中的某些行。对于第一组，我试图循环每3行，以查看它是否隐藏和第二个for循环我逐步通过每个2.我基本上想通过两个循环添加什么是真的并返回该值。 ＆＃34;返回y＆＃34;部分是给我一个错误。

Function FindHiddenRows() As Integer

Dim x As Integer
Dim y As Integer
y = 0

For x = 23 To 38 Step 3
    If Rows("x:x").EntireRow.Hidden = False Then
    y = y + 1
    End If
    Next x

For x = 40 To 46 Step 2
    If Rows("x:x").EntireRow.Hidden = False Then
    y = y + 1
    End If
    Next x

Return y

End Function

Answer 1

快速/简短/轻松：

<img src="//placehold.it/200/f00" />
<img src="//placehold.it/200/0f0" />
<img src="//placehold.it/200/00f" />