vba - 隐藏给定行数的 Excel 宏

Question

我正在寻找有关此问题的答案，但没有运气。
我想要一个 excel 宏来隐藏基于单元格值的行。
我的表在第 18 行和第 418 行之间，请您看一下我的 VBA 代码:

Sub HideRows()

Dim np As Integer

np = Range("W1").Value
'hidding all the table rows first                
ActiveSheet.Rows("18:418").EntireRow.Hidden = True
'showing only from row 18 to the number given by cell "W1"
ActiveSheet.Rows("18:np").EntireRow.Hidden = False

End Sub

它给了我一个类型不匹配的错误，有什么办法可以使它工作吗？太感谢了

Answer 1

改变

ActiveSheet.Rows("18:np").EntireRow.Hidden = False

至

ActiveSheet.Rows("18:" & np).EntireRow.Hidden = False