在我的原始数据工作表中，我创建了一个 VBA 脚本，它为一列“A”列中的单元格值创建一个超链接。
运行脚本后“A”列单元格中显示的文本是原始单元格值。这个脚本工作得很好。
然后使用此工作表数据创建数据透视表。当然，超链接在数据透视表中消失了。
我想做的是点击数据透视表中的一个单元格值，让它在原始工作表中查找该值，然后打开超链接。
我使用的是 Excel 2013，数据透视表是经典的数据透视表视图。
【问题讨论】：
解决方案：假设这是您的源表，名为Sheet1：
Sheet1
单元格A2 正在链接到一个网站。第二张表Sheet2 包含Sheet1 中数据的数据透视表：
Sheet2
如果我正确理解您的请求，您希望单击Sheet2 中的“Peter”以打开链接在Sheet1 中包含“Peter”的单元格中的 URL。您可以通过将以下代码添加到Sheet2 来完成此操作（右键单击选项卡行中的Sheet2 并选择“查看代码”）。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count = 1 And Target.Rows.Count = 1 And Target.Column = 1 Then
Dim SourceSheet As Worksheet
Dim SourceRange As Range
Dim HyperlinkAddress As Range
Set SourceSheet = ThisWorkbook.Sheets("Sheet1")
Set SourceRange = SourceSheet.Range("A:A")
' Find cell address in Sheet1
On Error Resume Next
Set HyperlinkAddress = SourceSheet.Range("A" & _
Application.WorksheetFunction.Match(Target.Value, SourceRange, 0))
If HyperlinkAddress.Hyperlinks.Count = 1 Then
' Click hyperlink
ThisWorkbook.FollowHyperlink (HyperlinkAddress.Hyperlinks(1).Address)
End If
End If
End Sub
解释：当您在 Excel 工作表中选择不同的单元格时，会触发事件 Worksheet_SelectionChange。上面的代码将首先检查您是否在 A 列中选择了一个（并且只有 1 个）单元格，如果您选择了，则在 Sheet1 中找到与包含您单击的单元格值的单元格对应的行号。找到后，它会验证单元格是否包含链接地址，如果包含，请单击它。
【讨论】：