我有一个相当简单的电子表格应用程序,其中包含一些 VBA 代码,可以按照用户的调用执行简单的行插入和删除。这是一个格式繁重的电子表格,旨在供没有 Excel 经验的人员使用。插入和删除的代码很好。
该工作表使用 15 行,该点以下的每一行都已隐藏。但是,在删除完整行时,后面的每个行都会按标准向上移动,留下"new"空白行 15。我希望这种行为被否决,并且空白行不出现.
也许很简单?有什么选项可以防止这种行为,如果这是不可能的,是否有任何提示可以获取工作表“最后可见”行的标识,以便手动将其隐藏?
干杯
最佳答案
您可能需要根据需要进行调整,但这应该可行。
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
关于vba - 删除 Excel 行而不取消隐藏另一行,VBA,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12800860/