Question

我想在excel 中实现 插入按钮隐藏行 一次只隐藏一行

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 147 To 160

If Cells(i, 1).Value > 0 Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Next
i = i + 1
End Sub

我这个代码，只能隐藏一行就不动了，如何实现 继续隐藏。 例如，隐藏了148后就不动了。我想继续隐藏，149,150.。。。。

Answer 1

Dim i As Integer
For i = 147 To 160

Rows(i).Select

If Cells(i, 1).Value > 0 Then

Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Next
i = i + 1

追问

我是想通过添加按钮实现的， 这个程序是宏的程序吗？

追答

就是在你的语句编码里面加了一句Rows(i).Select啊。

按钮也可以，宏也可以。

追问

运行了，提示 缺少 end sub
还有 ，我想一次隐藏一行的。
按一下，隐藏一行。

追答

1.end sub请自己加上，我只copy了中间的程序段代码。
2.现在的写法与您的需求有差异，现在是批量替换，我刚刚理解错了。

追问

是的 这个是批量隐藏的， 我怎么弄都调不出来，一次隐藏一行的那种。
是否，一次隐藏一行的程序，不好写呢？

追答

例子如下，不知道是否满足你的要求？

在a11单元格中输入1作为初始值
Sub 按钮2_Click()
Dim i As Integer
i = Cells(11, 1)
Rows(i).Select
If Cells(i, 1).Value > 0 Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Cells(11, 1) = i + 1
End Sub

追问

我还想实现一个功能 。
是想让 很多组数据，在固定的单元格区域内显示
例如，我有一组数据，在 A1-H1 到，A3999-H3999内了， 我想把它们逐一 调入到J1-Q1这个固定的区域内

追答

抱歉，没太看明白