Question

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

举个例子，如图，红字（视频，图片，歌曲）文件夹存在电脑D盘，然后这三个文件夹里 分别有"红字"下面的 "黑字"命名的文件夹，
这只是个简单的例子，实际操作中有20多个"红字"单元格，每个"红字"单元格下面有500多个黑字单元格，
同时电脑里也有20多个"红字"命名的文件夹，每个"红字"文件夹里有500多个文件夹 文件名与"黑字"单元格内容相同。个别"黑字"单元格对应的文件夹不存在。
图中的EXCEL文档已经建好，现在要将"黑字"单元格 分别与对应的同名文件夹 做超链接，比如点击“美国”，就打开"红字（视频）" 文件夹里的“美国”文件夹，当然极少数可能“美国”文件夹不存在，可以不做超链接，这样我就知道需要补充“美国”的文件夹资料。
非常感谢！

Answer 1

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

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

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

在单元格C1，输入公式

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

然后公式往下拉即可。

Answer 2

用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

追问

弄好了
现在 电脑里有极少数一些文件夹不存在的 但是我也不知道是哪些不存在 但是这些单元格也做了超链接
能不能自动检查无效的超链接 然后自动删除超链接