一种VBA代码，提示用户在Excel文件中需要多少行，然后只显示这些行的数量

有没有办法询问用户在Excel文件中需要多少行？然后，有了这些信息，工作表将只显示所需的行数，并隐藏其他每个单元格，以避免用户编辑这些单元格

例如：它提示我需要多少行，我键入3行，excel工作表将只显示这3行，其余的将自动隐藏

---

谢谢你的帮助。

我从来没有说过这是不可能的，我只是说这会违反直觉。 试试这个，让我知道这是否有效

Public Sub HideRows()
    Dim RowsToKeep As Long
    RowsToKeep = CLng(InputBox("How many rows should I keep?") + 1)

    With ActiveSheet
        .Cells.EntireRow.Hidden = False
        .Rows(RowsToKeep & ":" & .Rows.Count).EntireRow.Hidden = True
    End With

End Sub

---

编辑：更新答案以反映对评论的回应

您必须在模块中保留此代码

单击插入>模块

将代码粘贴到那里

在此工作簿模块中，顶部有两个下拉列表

选择第一个下拉列表，然后选择工作簿

第二个下拉菜单将自动

选择“打开”，它将自动生成工作簿的代码

只需添加不带引号的“callhiderows”

---

Excel不是只显示用户提供的行数的HTML/JavaScript。VBA隐藏行的方法对任何用例来说都是非常不直观的。请阅读关于如何提问的指导原则。好的，谢谢你给我举了HTML/JavaScript的例子，我是这样理解的。根据指导原则在我的问题中，我看到的唯一不好的事情是，我不懂VBA，我只是想知道是否可以在Excel中做这样的事情，现在我明白了。谢谢。你好，维尔普尔，我不明白你说的“反直觉”是什么意思“，我想你是说我不能在Excel中执行这样的操作，非常感谢你的帮助。”。我正在详细阐述关于这个话题的另一个问题，正如你所说的，我会尽快给你链接，谢谢你的时间。哦，好吧，因为我对我的问题的评论不好，我不能再问两天了。我只是想在用户打开Excel文件的那一刻提示这个问题，这里有一个链接，指向询问类似问题的人，但当我将代码放入“ThisWorkBook”中时，当我打开Excel文件时，它不会立即起作用，我想知道我需要做哪些其他修改来完成这类操作。谢谢，我已经更新了答案来回答你的问题。我测试了它，效果非常好，非常感谢Vipul，你真的很有帮助