给你一个最稳妥、零风险、一键批量的方案：在原列（B 列）原地把纯文本网址变成可点击链接，显示还是原网址，而且不用循环引用、不用公式、直接用 Excel 内置超链接（比 HYPERLINK 函数更稳）。

方案：VBA 一键批量给 B2:B3370 自身加超链接（推荐）

特点

• 原地生效：B 列还是 B 列，直接变成可点击链接
• 显示不变：单元格显示的还是原来的网址，只是变成可点
• 无公式、无循环引用：纯超链接对象，复制 / 粘贴 / 保存都正常
• 速度极快：3000 + 行秒级完成

操作步骤

1. 打开你的 Excel 文件
2. 按Alt + F11打开 VBA 编辑器
3. 右键左侧你的工作簿 →插入 → 模块
4. 把下面代码完整复制粘贴进去（无需改任何参数，直接适配 B2:B3370）

Sub BatchAddHyperlinks_Self_B2_B3370() ' 批量给 B2:B3370 自身添加超链接，显示不变，原地生效 Dim ws As Worksheet Dim rng As Range, cell As Range Dim url As String ' 用当前活动工作表（如需固定表名，改成 Sheets("Sheet1")） Set ws = ActiveSheet Set rng = ws.Range("B2:B3370") Application.ScreenUpdating = False Application.EnableEvents = False For Each cell In rng url = Trim(cell.Value) ' 只处理非空且以 http/https 开头的网址 If url <> "" And (Left(url, 7) = "http://" Or Left(url, 8) = "https://") Then ' 给单元格自身添加超链接，显示文本不变 ws.Hyperlinks.Add _ Anchor:=cell, _ Address:=url, _ TextToDisplay:=url End If Next cell Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "✅ B2:B3370 已全部添加超链接（原地生效，显示不变）", vbInformation, "完成" End Sub

如果你坚持用 HYPERLINK 函数原地（不推荐，但也给你）

原地公式版（会覆盖原文本，有循环引用提示）

1. 先备份 B 列（复制到其他列）
2. 选中 B2:B3370
3. 输入公式：

   =HYPERLINK(B2)

1. 按Ctrl + Enter一次性填充整列,或者双击单元格右下角加号自动填充
2. 会弹出循环引用警告，忽略即可

⚠️ 缺点：

• 原纯文本被公式覆盖，以后要复制纯链接必须先「选择性粘贴 → 数值」
• 有循环引用提示（不影响使用，但不优雅）
• 改 B 列内容会自动刷新链接（有利有弊）