R将多个超链接写入一个excel单元格

Sub AddMultipleHyperlinks()
    Dim rng As Range
    Dim cell As Range
    Dim hyperlinkText As String
    Dim hyperlinkAddress As String
    
    ' 设置要写入超链接的单元格范围
    Set rng = Range("A1")
    
    ' 设置超链接的文本和地址
    hyperlinkText = "链接1"
    hyperlinkAddress = "https://www.example1.com"
    
    ' 添加第一个超链接
    rng.Hyperlinks.Add Anchor:=rng, Address:=hyperlinkAddress, TextToDisplay:=hyperlinkText
    
    ' 设置超链接的文本和地址
    hyperlinkText = "链接2"
    hyperlinkAddress = "https://www.example2.com"
    
    ' 添加第二个超链接
    Set rng = rng.Offset(1, 0) ' 移动到下一个单元格
    rng.Hyperlinks.Add Anchor:=rng, Address:=hyperlinkAddress, TextToDisplay:=hyperlinkText
    
    ' 以此类推，可以继续添加更多的超链接
    
End Sub