如何通过Excel VBA将同一单元格内的每行文本转换为超链接

你现有代码仅支持单元格仅包含一行文本的场景，因为它直接将整个单元格的值作为超链接地址绑定到整格，无法处理多行拆分的需求。
注意：接受所有可行的变通解决方案。

原有参考代码 #

Sub Convert_To_Hyperlinks()
  Dim Rng As Range
  Dim WorkRng As Range
  Dim LastRow As Long
  Dim ws As Worksheet
   
  Set ws = ActiveSheet
  Set WorkRng = ws.Range("N2", ws.Cells(Rows.Count, "N").End(xlUp))

  For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
  Next Rng
End Sub

适配多行单元格的解决方案 #

实现逻辑 #

• 按换行符拆分单个单元格内的所有文本行
• 逐行计算文本在单元格内的字符起止位置
• 为每行文本单独绑定超链接，保留原单元格的文本格式与换行结构

实现代码 #

Sub Convert_MultiLine_To_Hyperlinks()
  Dim ws As Worksheet
  Dim WorkRng As Range
  Dim cell As Range
  Dim lineArr As Variant
  Dim currentPos As Long
  Dim i As Long
  Dim lineLength As Long
  
  Set ws = ActiveSheet
  ' 目标范围和原有逻辑保持一致，为N列从第2行到最后有内容的行
  Set WorkRng = ws.Range("N2", ws.Cells(Rows.Count, "N").End(xlUp))
  
  For Each cell In WorkRng
    ' 清空单元格原有超链接，避免重复绑定
    cell.Hyperlinks.Delete
    
    ' 按换行符拆分单元格内容，兼容Windows/macOS换行符格式
    lineArr = Split(Replace(cell.Value, vbCr, vbLf), vbLf)
    currentPos = 1
    
    For i = LBound(lineArr) To UBound(lineArr)
      lineLength = Len(lineArr(i))
      ' 跳过空行
      If lineLength > 0 Then
        ' 为当前行文本绑定超链接
        ws.Hyperlinks.Add _
          Anchor:=cell, _
          Address:=lineArr(i), _
          Start:=currentPos, _
          Length:=lineLength
      End If
      ' 计算下一行的起始位置，加1是跳过换行符本身的长度
      currentPos = currentPos + lineLength + 1
    Next i
  Next cell
End Sub

注意事项 #

• 单元格内需确保每行都是完整的超链接地址，否则会出现绑定失败的情况
• 如果需要自定义超链接显示文本，可以修改代码中TextToDisplay参数的赋值逻辑
• 该方案兼容Windows、macOS环境下的Excel版本，自动适配不同换行符格式

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