VBA小程序--函数调用_批量添加超链接最简单_找到商品的那一列_转换那一列的链接

最新推荐文章于 2024-09-21 11:12:58 发布

原创最新推荐文章于 2024-09-21 11:12:58 发布 · 525 阅读

0 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一种使用VBA批量更新Excel表格中商品链接和图片链接的方法，通过调用Sub函数实现对多个工作表中特定列的链接更新，确保链接的准确性与有效性。

工作需要转换商品链接、图片链接两列，因为有时候会更新商品链接、图片链接，且每个表格这两列所在位置也不一样（另外，因嵌套的公式，链接更新后，点击跳转网页的还是之前的链接，故而需要更新Hyperlinks）

如下图：

Sub 函数调用_批量添加超链接最简单_找到商品的那一列_转换那一列的链接()
    批量添加超链接最简单_找到商品的那一列_转换那一列的链接 ("*商品链接*")
    批量添加超链接最简单_找到商品的那一列_转换那一列的链接 ("*图片链接*")
End Sub
Sub 批量添加超链接最简单_找到商品的那一列_转换那一列的链接(name)
    '忽略错误，可能有#N/A的情况
    On Error Resume Next
    Dim num As Long, h As Long, r_num As Long
    For i = 1 To Worksheets.Count
        Worksheets(i).Activate
        num = Rows(1).Find(name).Column
        r_num = Worksheets(i).UsedRange.Rows.Count
        '防止格式的错误，导致usedRange获取的行数 = 总行数
        if worksheets(i).rows.count - r_num <1001 then r_num = worksheets(i).rows.count - 1001
        '选中单元格之后，再按ctrl + ↑
        Cells(r_num + 1000, num).End(xlUp).Select
        r_num = Selection.Row
        Debug.Print ("工作表：" & Worksheets(i).name & "--行：" & r_num & "--列" & num)
        For h = 2 To r_num
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(h, num), Address:=Cells(h, num).Value
        Next
        '让窗口的第一行位置处在最后一行-3行的位置（ActiveWindow.scrollRow = 1，那么就是在显示在第一行）
        ActiveWindow.ScrollRow = r_num - 3
    Next
    '恢复报错
    On Error GoTo 0
End Sub