如果用户隐藏行移位数据，Excel VBA？使用 Worksheet_Change答案

【问题标题】：Excel VBA if user hides row shift data up? Using Worksheet_Change如果用户隐藏行移位数据，Excel VBA？使用 Worksheet_Change
【发布时间】：2013-11-29 01:50:31
【问题描述】：

我的工作表中有多个表格（这是第二个工作表，数据通过单元格公式输入到主页外的工作表中）。我正在尝试编写一个工作表更改宏，它在隐藏一行时会向上移动单元格并保持表格的整体高度。

屏幕截图有我正在尝试的前后结果。因此，在左侧，如果第 13 行被隐藏，宏会将表 2 中的第一个子行向上移动到表 1 中的最后一行，并且表 2 将调整为总共 7 行。我的工作表有可变数量的表格（通常是 2-10 个表格），所以我会尝试使其动态化。

如果您能提供帮助或向我指出类似答案的方向，我们将不胜感激。如果行被隐藏，我的主要困难是创建语句，一旦完成，我就可以进行格式化。非常感谢您的时间和努力。

【问题讨论】：

“隐藏”一行不会调用Worksheet_Change 事件。此外，您的问题不包括任何屏幕截图。
你有机会尝试我的答案吗？

标签： vba excel

【解决方案1】：

如果行被隐藏，我的主要困难是创建语句

其中r 是Range 对象：

If r.EntireRow.Hidden Then
    ' Do something if the row is hidden
Else:
    ' Do something else if the row is not hidden
End If

【讨论】：