如何为B列值为Blue的A列单元格添加VBA超链接？

你只需要在循环里加入条件判断语句，检查当前单元格所在行的B列对应值是否为"Blue"，只有满足条件时才添加超链接。

修改后的完整代码：

Sub AddBlueInvoiceHyperlinks()
    Dim cell As Range
    ' 遍历A列从第5行开始到最后一行的单元格
    For Each cell In Range(Range("A5"), Range("A5").End(xlDown))
        ' 判断同一行的B列单元格值是否为"Blue"
        If cell.Offset(0, 1).Value = "Blue" Then
            ' 满足条件时添加超链接
            ActiveSheet.Hyperlinks.Add cell, "L:\Supplier Invoices\Blue Invoices\" & cell.Value & ".pdf"
        End If
    Next cell
End Sub

关键说明： #

• cell.Offset(0, 1) 表示当前A列单元格右侧偏移1列的单元格（即同一行的B列单元格）
• 仅当B列对应值严格等于"Blue"时，才会执行添加超链接的操作
• 补充了路径末尾的\，避免文件名与路径拼接后出现无效路径问题

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