在 Excel 中单击超链接时，工作表会自动滚动到目标单元格，但该单元格通常会随机出现在屏幕上的某个位置。如果您希望目标单元格始终显示在可见区域的最顶部（与第一行可见行对齐），本文将为您展示如何通过一段简单的 VBA 代码轻松实现这一效果。

使用 VBA 代码将超链接结果显示在页面顶部

使用 VBA 代码将超链接结果显示在页面顶部

您可使用以下 VBA 代码，将超链接结果显示在页面顶部。

1. 右键单击当前工作表选项卡，然后从右键菜单中选择查看代码。

2. 在 Microsoft Visual Basic for Applications 窗口中，将以下代码复制并粘贴到模块窗口内。

VBA：将超链接结果显示在页面顶部

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

3. 同时按下 Alt+Q 键，即可关闭 Microsoft Visual Basic for Applications 窗口。

现在，当您单击 A1 单元格中链接到 H200 的超链接时，第 200 行将自动定位至可见工作表区域的顶部。（如下方截图所示，首行已被冻结，因此滚动时仍可看到包含超链接的单元格。）