你遇到的核心问题是原VBA代码频繁使用Select操作导致性能低下，而且手动输入超链接公式需要F2回车才能生效。下面给你两种高效的解决方案：

方案一：优化VBA代码（大幅提升速度） #

原代码慢的根源是每次循环都调用Select，这会触发Excel的界面刷新，严重拖慢效率。我们可以直接操作单元格对象，避免界面交互，同时批量处理整列数据：

Sub AddHyperlinksFast()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    Dim col As Variant
    
    Set ws = ThisWorkbook.Worksheets("Report")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 关闭屏幕刷新和事件，进一步提速
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 处理电话列（第11、12、13列）
    For Each col In Array(11, 12, 13)
        Set rng = ws.Range(ws.Cells(4, col), ws.Cells(lastRow, col))
        For Each cell In rng
            If Len(cell.Value) > 0 Then
                ws.Hyperlinks.Add Anchor:=cell, Address:="tel:" & CStr(cell.Value), TextToDisplay:=CStr(cell.Value)
            End If
        Next cell
    Next col
    
    ' 处理邮件列（第14、15列）
    For Each col In Array(14, 15)
        Set rng = ws.Range(ws.Cells(4, col), ws.Cells(lastRow, col))
        For Each cell In rng
            If Len(cell.Value) > 0 Then
                ws.Hyperlinks.Add Anchor:=cell, Address:="mailto:" & CStr(cell.Value), TextToDisplay:=CStr(cell.Value)
            End If
        Next cell
    Next col
    
    ' 恢复屏幕刷新和事件
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    MsgBox "超链接批量添加完成！"
End Sub

优化点说明： #

• 去掉所有Select操作，直接引用单元格对象，减少界面交互开销
• 关闭ScreenUpdating和EnableEvents，避免不必要的刷新和事件触发
• 按列批量遍历，逻辑更清晰，也比逐行处理略高效

方案二：用公式批量生成超链接（无需VBA） #

如果你不想用VBA，可以用HYPERLINK公式批量填充，解决公式显示纯文本的问题：

1. 选中需要生成电话超链接的单元格（比如第11列从第4行开始）
2. 在编辑栏输入公式：=HYPERLINK("tel:"&K4, K4)（这里K4是当前选中区域的第一个单元格，Excel会自动适配其他单元格的引用）
3. 按Ctrl+Enter批量填充所有选中的单元格
4. 如果公式仍显示纯文本，按Ctrl+A全选单元格，再按Ctrl+Shift+~（波浪键）切换到常规格式，最后按F9强制计算

批量转成值（可选）： #

如果担心后续公式变动，填充完公式后可以：

• 选中所有公式单元格
• 按Ctrl+C复制
• 右键选择粘贴为值，保留超链接效果但去掉公式

为什么原公式需要F2回车才生效？ #

这是因为Excel默认不会自动识别手动输入的公式（尤其是从外部粘贴或批量输入时），F2+回车相当于告诉Excel“这是一个公式，需要计算”。用Ctrl+Enter批量填充或者VBA写入公式的方式，可以避免这个问题。

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