在Excel VBA中隐藏行

Question

我正在尝试使用VBA隐藏行。 我有一个开始行，从这里我必须开始隐藏行。 我写了以下代码：

sht.Rows(32 + end_row).Resize(, 65536 - (32 + end_row)).Select
Selection.EntireRow.Hidden = True

其中end_row是将在excel工作表中填充数据的行til，而32是将开始填充数据的行的索引。 当我尝试运行此代码时，出现错误，

应用程序定义或对象定义的错误

我该如何解决？最好的方法是什么？

Answer 1

在此声明。

Resize(, 65536 - (32 + end_row)).Select   

您混合行和列。

您可能是说Resize(65536 - (32 + end_row)).Select

Resize([Rows],[Columns])

最好写这样的东西（避免使用Select ）

Sheet1.Rows.Resize(65536 - (32 + end_row)).EntireRow.Hidden = True

该代码虽然隐藏了工作表顶部的所有行，但使工作表底部的行可见。 我认为您反过来希望这样做。

---

这段代码可能会有所帮助。 它将所有空白行隐藏在A列中最后一个条目下方

Dim sht As Worksheet
Set sht = Sheet1

sht.Range(sht.Cells(sht.Rows.Count, 1), sht.Cells(sht.Rows.Count, 1).End(xlUp).Offset(1)).Rows.Hidden = True

Answer 2

另一种方法可能是：

'Expected sht is a sheet object, else use : ActiveSheet.Rows("32:" & end_row).Hidden = True
sht.Rows("32:" & end_row).Hidden = True

避免使用65535限制