将单个Excel列拆分为两个单独的列，是否拆分值？

如何拆分其值定义如下的单个Excel列：

=超链接（“http://whatever.com“，“网站名称”）

分为两列，一列带有标题（“网站标题”），另一列带有URL（“http://whatever.com））

有人吗

---

（这是针对Excel 2010的）

如果您愿意使用VBA，这将起作用

Option Explicit

Sub SplitHyperLinkFormula()
    Dim r As Range
    For Each r In Selection
        If InStr(1, r.Formula, "=hyperlink", vbTextCompare) = 1 Then
            r.Offset(0, 1).Value = GetHyperlink(r.Formula) 'Split URL
            r.Offset(0, 2).Value = r.Value                 'Split Title
        End If
    Next r
End Sub

Function GetHyperlink(s As String)
    'Requires =HYPERLINK formula, assumes hyperlink has no commas.
    s = Left(s, InStr(s, ",") - 2)
    GetHyperlink = Right(s, Len(s) - 12)
End Function

只需突出显示需要拆分的内容，然后运行SplitHyperLinkFormula。它会将两个单元格中所需的两个值放在单元格右侧

---

警告：如果由于某种原因，您的超链接中有逗号，这将只返回URL中逗号之前的部分。

如果您愿意使用VBA，这将起作用

Option Explicit

Sub SplitHyperLinkFormula()
    Dim r As Range
    For Each r In Selection
        If InStr(1, r.Formula, "=hyperlink", vbTextCompare) = 1 Then
            r.Offset(0, 1).Value = GetHyperlink(r.Formula) 'Split URL
            r.Offset(0, 2).Value = r.Value                 'Split Title
        End If
    Next r
End Sub

Function GetHyperlink(s As String)
    'Requires =HYPERLINK formula, assumes hyperlink has no commas.
    s = Left(s, InStr(s, ",") - 2)
    GetHyperlink = Right(s, Len(s) - 12)
End Function

只需突出显示需要拆分的内容，然后运行SplitHyperLinkFormula。它会将两个单元格中所需的两个值放在单元格右侧

---

警告：如果由于某种原因，您的超链接中有一个逗号，这将只返回URL中逗号之前的部分。

这里有一个不使用VBA的替代方法

选择范围，使用“查找替换”将=符号更改为其他符号（如#）。这将用类似字符串的字符串替换公式

“#超链接（”http://whatever.com“，“网站名称”）”

使用文本到列，使用“（双引号）作为分隔符，并放弃除URL和网站标题以外的所有列

---

这里有一个不使用VBA的替代方案

选择范围，使用“查找替换”将=符号更改为其他符号（如#）。这将用字符串替换公式

“#超链接（”http://whatever.com“，“网站名称”）”

使用文本到列，使用“（双引号）作为分隔符，并放弃除URL和网站标题以外的所有列