Excel VBA如何从指定范围随机选取超链接并自动打开

直接使用以下修改后的代码即可实现需求：

Sub 随机打开B列超链接()
    Dim Sh As Worksheet
    Dim Rng As Range
    Dim 有效行数 As Long
    Dim 随机行号 As Long
    
    Set Sh = Worksheets("Sheet1")
    
    ' 定位B列所有有内容的单元格范围
    With Sh
        有效行数 = .Cells(.Rows.Count, "B").End(xlUp).Row
        ' 如果B1是表头不需要参与随机，将下方的1修改为2即可
        Set Rng = .Range("B1:B" & 有效行数)
    End With
    
    ' 生成有效范围内的随机行号
    Randomize
    ' 如果修改了表头起始行，下方的两个1需要同步修改为对应的起始行号
    随机行号 = Int((有效行数 - 1 + 1) * Rnd + 1)
    
    ' 兼容两种超链接存储格式，确保正常打开
    If Sh.Cells(随机行号, "B").Hyperlinks.Count > 0 Then
        ThisWorkbook.FollowHyperlink Sh.Cells(随机行号, "B").Hyperlinks(1).Address
    Else
        ThisWorkbook.FollowHyperlink Sh.Cells(随机行号, "B").Value
    End If
End Sub

• 读取范围从原代码的C列改为需求要求的B列，自动识别B列最后一行有内容的行，不需要手动修改范围
• 新增随机数生成逻辑，每次运行都会从有效链接里随机抽取一个打开，如需一次打开多个随机链接，可在随机行号生成部分新增循环逻辑
• 兼容两种超链接存储格式：不管是B列单元格直接输入链接文本，还是给单元格插入的超链接对象，都可以正常识别打开

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