我有一个数字列表，馈送到url的我想热链接。 例如，我有一个列A的问题编号(即，2595692,135171)，我想把这些问题编号转换为热链接，并只显示问题编号。

因此，我建立了一个指向列a的纯文本超链接，并将其复制下来用于我所有的问题编号:

=“=超链接（”&“”“http”&“”&“”/stackoverflow.com/questions/“&”&“”&A1&“）”

然后我复制粘贴值这一列的文本超链接到另一列。

你最终会得到如下所示的一列文本:

=超链接（“http”&“：”&“//stackoverflow.com/questions/2595692”，2595692）

然后我选择这些粘贴的项目，并运行F2Entry宏如下:

Sub F2Enter()
Dim cell As Range
Application.Calculation = xlCalculationManual
For Each cell In Selection
    cell.Activate
    cell = Trim(cell)
Next cell
Application.Calculation = xlCalculationAutomatic
EndSub

然后我删除了文本输入列和列A。

我最终得到了一列热链接的问题数字:

2595692

135171

etc.

干杯

有一个非常简单的方法。创建一个超链接，然后使用格式绘制器复制格式。它将为每个项目创建一个超链接。

我很惊讶Excel没有自动做这个，所以这是我的解决方案，我希望对其他人有用，

将整个列复制到剪贴板 在Chrome或Firefox上打开这个

data：text/html，<button onclick=“document.write（document.body.querySelector（'textarea'）.value.split（'\n'）.map（x => '<a href=</a>\'' + x + '\'>' + x + ''）.join（''））<br>”>Linkify</button><br><textarea></textarea>

将该栏粘贴到刚刚在浏览器上打开的页面上，然后按“链接”键 将结果从选项卡复制到Excel的列中

代替第二步，您可以使用下面的页面，首先，单击“运行代码片段”，然后将列粘贴在上面 <按钮onclick = " document . write (document.body.querySelector(文本区域).value.split(“\ n”)。地图(x = > < a href = \”+ x + '\'>' + x + < / >) . join(“< br >”))按钮“>其内< / > < br > < textarea > < / >文本区域

如果你不想做一个宏，只要你不介意额外的列，那么就在你的url列旁边创建一个新列。

在公式中的新列类型=HYPERLINK(A1)中(将A1替换为您感兴趣的单元格)。然后将公式复制到剩下的200个条目中。

注意:如果单元格A1包含的字符串长度超过255个字符，则此解决方案不起作用。它的结果是#VALUE!错误

谢谢仙后座的代码。我更改了他的代码，使其与本地地址一起工作，并对他的条件做了一些更改。我删除了以下条件:

将http:/修改为file:/// 删除了所有类型的空白条件 改变10k单元格范围条件为100k

Sub HyperAddForLocalLinks()
Dim CellsWithSpaces As String
    'Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
            If InStr(xCell.Formula, "file:///") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "file:///" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        i = i + 1
        If i = 100000 Then Exit Sub
Nextxcell:
      Next xCell
    Application.ScreenUpdating = True
End Sub

在Mac上，一个非常简单的方法就是在Excel中选择整个电子表格，复制，启动Numbers，粘贴，然后全选，复制，粘贴回Excel中。