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

Question

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

屏幕截图包含我正在尝试的前后结果。因此，如果隐藏第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