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

Question

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

屏幕截图有之前和之后的结果，我正在尝试。因此，在左边，如果隐藏了第13行，则宏将将表2中的第一个子行移动到表1中的最后一行，而表2将调整大小为7行。我的工作表有可变数量的表(通常是2-10个表)，所以我将尝试使其动态化。

如果你能帮助或指点我一个类似的答案，这是非常感谢的。我的主要困难是创建语句，如果行是隐藏的，一旦我完成了，我可以去格式化。非常感谢你的时间和努力。

Answer 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