Excel VBA实现遍历选中区域单元格并激活超链接

要实现遍历选中区域的每个单元格，模拟手动按下F2再回车激活超链接的操作，可以通过以下VBA代码完成：

Sub ActivateHyperlinksInSelection()
    Dim c As Range
    ' 遍历选中区域的每个单元格
    For Each c In Selection
        c.Select ' 选中当前单元格
        ' 检查单元格是否包含超链接
        If c.Hyperlinks.Count > 0 Then
            ' 激活超链接，NewWindow设为False则在当前窗口打开
            c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Else
            ' 模拟F2回车操作，适配非超链接/空单元格的手动操作逻辑
            SendKeys "{F2}", True
            SendKeys "{ENTER}", True
        End If
        ' 可选：添加短延时避免操作过快导致Excel响应异常
        Application.Wait Now + TimeValue("00:00:01")
    Next c
End Sub

代码说明： #

• 遍历选中区域：通过For Each c In Selection逐个处理选中的单元格
• 选中单元格：c.Select还原手动选中单元格的动作
• 激活超链接：判断c.Hyperlinks.Count > 0，若存在超链接则调用Follow方法打开链接，AddHistory:=True会将链接添加到浏览器历史记录
• 模拟F2回车：针对非超链接或空单元格，用SendKeys模拟手动按下F2再回车的操作，和手动逻辑完全匹配
• 延时设置：Application.Wait为可选配置，防止操作节奏过快导致Excel出现响应问题

注意事项： #

• 使用SendKeys时需确保Excel窗口处于前台，否则按键指令可能发送到其他程序
• 如果不需要模拟F2回车的视觉效果，仅需激活超链接，可直接去掉Else部分的代码
• 空单元格会被Else分支处理，执行F2回车操作，和手动操作逻辑一致

内容的提问来源于stack exchange，提问作者Nick