EXCEL中怎样可以迅速使所有的网址都有链接

发布网友 发布时间：2022-04-24 04:59

我来回答

共2个回答

热心网友 时间：2023-10-30 07:57

批量添加链接的方法如下：

在B2单元格中输入HYPERLINK（A2)，回车

向下拖动复制公式即可，结果如下，B列均添加上链接了。

热心网友 时间：2023-10-30 07:57

批量添加链接的方法如下：

在B2单元格中输入HYPERLINK（A2)，回车

向下拖动复制公式即可，结果如下，B列均添加上链接了。

热心网友 时间：2023-10-30 07:57

如果你的内容在A列，那么B1如果公式:
=hyperlink(A1)
向下填充公式就行了

当然,你的内容应该是"http://.....html"
如果不是,那么公式这么写:
=hyperlink("http://"&A1)

或者用宏，下面是代码

Sub Macro1()
Dim i%
For i = 1 To 2
If Cells(i, 1) <> "" Then
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Value, TextToDisplay:=Selection.Value
End If
Next
End Sub

热心网友 时间：2023-10-30 07:57

批量添加链接的方法如下：

在B2单元格中输入HYPERLINK（A2)，回车

向下拖动复制公式即可，结果如下，B列均添加上链接了。

热心网友 时间：2023-10-30 07:57

如果你的内容在A列，那么B1如果公式:
=hyperlink(A1)
向下填充公式就行了

当然,你的内容应该是"http://.....html"
如果不是,那么公式这么写:
=hyperlink("http://"&A1)

或者用宏，下面是代码

Sub Macro1()
Dim i%
For i = 1 To 2
If Cells(i, 1) <> "" Then
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Value, TextToDisplay:=Selection.Value
End If
Next
End Sub

热心网友 时间：2023-10-30 07:57

如果你的内容在A列，那么B1如果公式:
=hyperlink(A1)
向下填充公式就行了

当然,你的内容应该是"http://.....html"
如果不是,那么公式这么写:
=hyperlink("http://"&A1)

或者用宏，下面是代码

Sub Macro1()
Dim i%
For i = 1 To 2
If Cells(i, 1) <> "" Then
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Value, TextToDisplay:=Selection.Value
End If
Next
End Sub

热心网友 时间：2023-10-30 07:57

批量添加链接的方法如下：

在B2单元格中输入HYPERLINK（A2)，回车

向下拖动复制公式即可，结果如下，B列均添加上链接了。

热心网友 时间：2023-10-30 07:57

如果你的内容在A列，那么B1如果公式:
=hyperlink(A1)
向下填充公式就行了

当然,你的内容应该是"http://.....html"
如果不是,那么公式这么写:
=hyperlink("http://"&A1)

或者用宏，下面是代码

Sub Macro1()
Dim i%
For i = 1 To 2
If Cells(i, 1) <> "" Then
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Value, TextToDisplay:=Selection.Value
End If
Next
End Sub