我认为没有针对此问题的开箱即用的解决方案，这让我惊讶，因为它在查询后会取消隐藏。 但是，您可以利用API AfterRedisplay 可在查询完成后隐藏行。 这类似于EPM/BPC的功能After_Refresh （针对 您中的许多人都喜欢我进行过渡）。

这是针对您的案例的处理方法：

步骤1）使用 Excel的命名范围方法。 如果您有多个报告，请确保在工作表级别命名。 选择类似HeaderRow的 itelligent 。

第2步）在ThisWorkBook MODULE中插入以下代码。 不是Sheet1或Module1或其他任何地方。 如果您这样做，将无法正常工作。 您还可以在此处将要运行的任何其他代码公开（类似于BPC/EPM After_Workbook_Open宏仅必须在特定模块中）。

使用此代码：

公共子工作簿_SAP_Initialize（）
         '注册您的回调
         调用Application.Run（" SAPExecuteCommand"，" RegisterCallback"，" AfterRedisplay"，" Callback_AfterRedisplay"）
         调用Application.Run（" SAPExecuteCommand"，" RegisterCallback"，" BeforePlanDataSave"，" Callback_BeforePlanDataSave"）
         调用Application.Run（" SAPExecuteCommand"，" RegisterCallback"，" BeforePlanDataReset"，" Callback_BeforePlanDataReset"）
         调用Application.Run（" SAPExecuteCommand"，" RegisterCallback"，" BeforeMessageDisplay"，" Callback_BeforeMessageDisplay"）
         调用Application.Run（" SAPExecuteCommand"，" RegisterCallback"，" BeforeFirstPromptsDisplay"，" Callback_BeforeFirstPromptsDisplay"）
    
 结束子
 

步骤3）在模块级别插入以下代码（请参见上面的屏幕截图，仅这次将其粘贴到
模块1）。 确保命名范围与下面引号中的名称匹配。 如果您的名字不同，请在下面的代码中更改引号中的文本。

公共子Callback_AfterRedisplay（）
 Const HeaderRowName As String =" HeaderRow"'确保您的命名范围匹配
 
     Range（HeaderRowName）.EntireRow.Hidden = True
    
    
 "如果要从其他工作表刷新数据，则需要定义
 在下面的宏中，例如Sheets（" MyData"）。Range（" HeaderRow"）。EntireRow.Hidden = True

 结束子
 

第4步）保存工作簿，关闭并重新打开它（直到您重新打开它才起作用）。 请确保另存为XLSM或XLTM或XLSB（对于大数据文件而言，这是一种被低估的格式）。

希望对您有用。

不客气。 感谢您接受答案。

史蒂文嗨，

这正是我想要的，非常感谢您的快速答复。

谢谢

Shane。