EXCEL 单元格与电脑上的 同名文件夹批量做超链接

假设文件夹都在电脑的D盘。

在Excel中，文件夹列表是这样的形式：

左列是父文件夹，右列是子文件夹

在单元格C1，输入公式

=HYPERLINK("D:/"&A1&"/"&B1&"/")

然后公式往下拉即可。

用VBA，我测试过了，可以
Sub AddHyperlink()
Dim ParentPath As String
For i = 1 To Range("A1").End(xlDown).Row
If Cells(i, 1).Font.Color = vbRed Then
ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="D:\" & Cells(i, 1).Text
ParentPath = Cells(i, 1).Text
Cells(i, 1).Font.Color = vbRed
ElseIf Cells(i,1).Font.Color = vbBlack Then
ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="D:\" & ParentPath & "\" & Cells(i, 1).Text
Cells(i, 1).Font.Color = vbBlack
End If
Next
End Sub