Excel VBA批量设置超链接求助：实现单元格遍历循环配置

直接使用逐行循环的VBA代码即可实现需求，以下是可运行的完整代码：

Sub UpdateHyperlinks()
    Dim ws As Worksheet
    Dim i As Long
    Dim lastRow As Long
    
    ' 指定目标工作表，替换为你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 自动获取G列数据的最后一行，适配数据量变化
    lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    
    ' 逐行处理每个单元格
    For i = 2 To lastRow
        ' 删除当前单元格原有超链接
        ws.Range("G" & i).Hyperlinks.Delete
        ' 添加对应行的新超链接
        ws.Hyperlinks.Add _
            Anchor:=ws.Range("G" & i), _
            Address:=ws.Range("S" & i).Value, _
            TextToDisplay:=ws.Range("V" & i).Value
    Next i
End Sub

代码说明 #

• 用ws对象指定工作表，避免依赖ActiveSheet引发的操作错误，记得把Sheet1改成你实际的工作表名称。
• lastRow自动获取数据范围的最后一行，不用固定写死1054，适配数据新增或减少的情况。
• 循环从第2行开始（假设第1行是表头），逐行为G列单元格设置超链接：
  • 先删除旧超链接，避免重复叠加。
  • 锚点定位到当前行的G列单元格，地址取同S行的URL，显示文本取同V行的内容，完美对应每行的动态数据。

原代码问题分析 #

你之前的代码直接选中整个区域批量设置，Hyperlinks.Add无法自动将区域内的每行地址、文本一一对应，必须通过逐行循环才能实现每个单元格的超链接与本行的地址、显示文本匹配。

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