.Excel中批量添加超链接 🔗excle当前文件夹批量超链接 📁

在日常工作中，我们常常需要在Excel中批量添加超链接，以便快速访问相关文件或网页。手动一个一个地添加超链接不仅耗时，而且容易出错。下面介绍一种简单的方法，帮助大家在Excel中批量添加超链接到当前文件夹中的其他文件。

首先，确保你的Excel表格中有一列包含你想要添加超链接的文件名。接着，按下`Alt + F11`进入VBA编辑器，插入一个新的模块，并输入以下代码：

```vba

Sub AddHyperlinks()

Dim cell As Range

Dim folderPath As String

folderPath = ThisWorkbook.Path & "\"

For Each cell In Selection

If Dir(folderPath & cell.Value) <> "" Then

ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=folderPath & cell.Value, TextToDisplay:=cell.Value

End If

Next cell

End Sub

```

保存并关闭VBA编辑器后，选择你想要添加超链接的单元格区域，再次按下`Alt + F8`运行宏`AddHyperlinks`。这样，所有选定单元格中的文件名就会被自动转换为指向相应文件的超链接。

通过这种方法，我们可以大大提高工作效率，减少重复劳动。🎉