如何修改VBA宏使其作用于A列A7至最后有值单元格而非单个单元格

你只需要调整主过程，遍历A列从A7到最后有值的单元格，同时利用已有的SheetExists函数判断目标工作表是否存在，避免无效超链接。修改后的完整代码如下：

Sub CreateHyperlinkToSheet()
    Dim targetRange As Range
    Dim cell As Range
    
    ' 定义目标区域：A7到A列最后一个非空单元格
    Set targetRange = Range("A7", Range("A" & Rows.Count).End(xlUp))
    
    ' 遍历区域内的每个单元格
    For Each cell In targetRange
        ' 跳过空单元格，且仅当对应工作表存在时添加超链接
        If cell.Value <> "" And SheetExists(cell.Value) Then
            cell.Hyperlinks.Add _
                Anchor:=cell, _
                Address:="#'" & cell.Value & "'!A1", _
                TextToDisplay:=cell.Value
        End If
    Next cell
End Sub

Function SheetExists(sheetName As String) As Boolean
    On Error Resume Next
    SheetExists = (Len(Sheets(sheetName).Name) > 0)
    On Error GoTo 0
End Function

关键修改说明： #

• 目标区域定位：Range("A7", Range("A" & Rows.Count).End(xlUp))会自动找到A列从A7开始的最后一个有内容的单元格，无需手动指定结束行。
• 遍历处理：用For Each...Next循环逐个处理区域内的单元格，实现批量操作。
• 错误规避：加入空值判断和SheetExists校验，只对存在对应工作表的非空单元格创建超链接，避免运行时错误。

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