如何将超链接添加到 Excel 中的 IP 列表？答案

【问题标题】：How to add hyperlinks to list of IP's in Excel?如何将超链接添加到 Excel 中的 IP 列表？
【发布时间】：2014-02-23 19:01:21
【问题描述】：

Excel 2003 电子表格，“A”列包含 IP 地址列表，每个单元格一个（没有 http://）。如何为这些 IP 添加超链接？（使用 OpenOffice）

【问题讨论】：

请提供输入样本。你的意思是像 64.4.11.42

标签： excel excel-formula openoffice.org vba

【解决方案1】：

使用如下数据：

64.4.11.42

在A1中，在B1中输入：

=HYPERLINK("http://" & A1,A1) 并复制下来。

编辑#1：

要就地转换 IP，请选择单元格并运行这个小宏：

Sub HyperMaker()
    Dim r As Range
    Dq = Chr(34)
    For Each r In Selection
        r.Formula = "=HYPERLINK(" & Dq & "http://" & r.Text & Dq & ";" & Dq & r.Text & Dq & ")"
    Next r
End Sub

这当然假设公式分隔符是 ; 而不是 ,

【讨论】：

是的，输入就像上面的例子。但是公式给出了Err:508，因为它使用了逗号分隔符。应该使用分号而不是逗号：=HYPERLINK("http://" & A1;A1)，然后它可以工作。不过，它提供了一个具有相同数据的额外列。没有额外的列是否可以得到？
OpenOffice 中存在一些错误，当我尝试使用任何宏时，OpenOffice Calc 会产生运行时错误 (BASIC runtime error, Object variable not set)。
尝试用特定范围替换 Selection。
好的，我试过这个：Sub HyperMaker() Dim r As Range Set r = Range("A1:A90") Dq = Chr(34) For Each r In Selection r.Formula = "=HYPERLINK(" & Dq & "http://" & r.Text & Dq & ";" & Dq & r.Text & Dq & ")" Next r End Sub 当尝试从宏选择器窗口运行宏时，它给出了另一个错误："BASIC syntax error. Unknown data type range." 我认为 OpenOffice API 是不同的，并且没有使用“范围”不再是 OpenOffice。
Sub HyperMaker() Dim r As Range Dq = Chr(34) For Each r In Range("A1:A100") r.Formula = "=HYPERLINK(" & Dq & "http:// /" & r.Text & Dq & ";" & Dq & r.Text & Dq & ")" Next r End Sub