vba - 删除 Excel 行而不取消隐藏另一行，VBA

Question

我有一个相当简单的电子表格应用程序，其中包含一些 VBA 代码，可以按照用户的调用执行简单的行插入和删除。这是一个格式繁重的电子表格，旨在供没有 Excel 经验的人员使用。插入和删除的代码很好。

该工作表使用 15 行，该点以下的每一行都已隐藏。但是，在删除完整行时，后面的每个行都会按标准向上移动，留下"new"空白行 15。我希望这种行为被否决，并且空白行不出现.

也许很简单？有什么选项可以防止这种行为，如果这是不可能的，是否有任何提示可以获取工作表“最后可见”行的标识，以便手动将其隐藏？

干杯

Answer 1

您可能需要根据需要进行调整，但这应该可行。

Sub GetLastVisibleCell()

Dim rng As Range

Set rng = ActiveSheet.Columns(1).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell)

If rng = vbNullString Then rng.EntireRow.Hidden = True


End Sub