Excel中VBA怎么实现自动批量添加超链接?

office教程网 2025-03-05 20:21:07

默认

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要： Excel中VBA怎么实现自动批量添加超链接？Excel表格中想要批量添加超链接，有什么快速添加的方法吗？我们可以使用vba来实现，下面我们就来看看详细的教程，需要的朋...

Excel中VBA怎么实现自动批量添加超链接？Excel表格中想要批量添加超链接，有什么快速添加的方法吗？我们可以使用vba来实现，下面我们就来看看详细的教程，需要的朋友可以参考下

想要使用VBA程序在Excel中批量添加超链接；将Excel其中一个工作表的某列添加另外一个工作表的某列的超链接。下面我们就来看看详细的教程。

1、将Excel的VBA宏安全性改为最低，这样方便运行宏代码

2、在Excel表格任意位置添加【按钮控件】

3、改变按钮控件名称

4、双击按钮控件，打开代码编辑VBA窗口；删除全部显示的代码。

Excel表格混合文本怎么统计数据之和?
Excel表格混合文本怎么统计数据之和？excel表格中有文本有数据，想要同居数据的和，该怎么统计呢？下面我们就来看看详细的教程，需要的朋友可以参考下

5、'复制此步骤所有内容到VBA窗口，包括这句话。

Option Explicit
Public Sub PiLiangChaoLianJie()
'01----批量超链接，将一个工作表中的列作为超链接添加到另外一个工作表中
' 宏由 keke 录制，时间: 2019/9/25
'
Dim S1 As String, S2 As String
Dim SHEET_NAME As String
Dim LINK_CELL As String, Link_S As String, LINK_Name As String
Dim I As Integer
Dim LINK_text As String
Dim Str_i%, End_i%
Str_i = InputBox("请输入起始行", , 1)
End_i = InputBox("请输入结束行", , 50)
SHEET_NAME = InputBox("请输入需要添加超链接的【工作表】名字", , "sheet1")
S2 = InputBox("请输入需要创建连接的【列】名", , "A")
LINK_Name = InputBox("请输入链接到的【工作表】的名字", , "sheet2")
Link_S = InputBox("请输入链接到工作表所在的【列】名", , "A")
For I = Str_i To End_i
    LINK_CELL = LINK_Name & "!" & Link_S & I
    S1 = S2 & I
    Range(S1).Select
    Sheets(SHEET_NAME).Select
    If Worksheets.Application.Range(LINK_CELL).Value = "" Then
    LINK_text = LINK_CELL
    Else
    LINK_text = Worksheets.Application.Range(LINK_CELL).Value
    End If
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LINK_CELL, TextToDisplay:=LINK_text
Next I
End Sub
Private Sub CommandButton1_Click()
PiLiangChaoLianJie
End Sub

上一页 12 下一页阅读全文
上一篇：Excel表格怎么快速计算公司员工的累积加班工时? 下一篇：Excel表格混合文本怎么统计数据之和?

Excel教程 Excel表格下拉列表怎么设置
Excel表格下拉列表怎么设置呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel表格下拉列表怎么设置的回答，希望能够对大家有所帮助。......

2023-01-18
详细阅读
Excel教程 Excel如何打印选定区域
Excel如何打印选定区域呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel如何打印选定区域的回答，希望能够对大家有所帮助。......

2023-01-18
详细阅读
Excel教程 Excel怎么设置英文首字母大写
Excel怎么设置英文首字母大写？Excel中输入英文首字母大写怎么操作？当我们需要将Excel表格中的英文单词，把首字母全部大写，该怎么操作呢，怎么将Excel中英文首字母大写，Excel怎么设置英文首字母大写，下面就和小编一起来看看吧！......

2023-01-18
详细阅读
Excel教程 Excel怎么给所有的数字加10
Excel怎么给所有的数字加10？Excel数字怎么全部加10？怎么全部加1？当我们在使用Excel时，所有的数字都少10，或者1，该怎么给所有的数字都 10、 1呢，Excel怎么给所有的数字加10，EXcel数字怎么全部加10，下面就和小编一起来看看吧！......

2023-01-18
详细阅读
Excel教程 Excel怎么设置日期自动更新
Excel怎么设置日期自动更新？Excel怎么设置日期自动更新？当我们Excel表格中的日期需要实时更新到最新日期，该怎么设置呢，怎么将Excel表格日期自动更新到最新日期，Excel怎么设置日期自动更新，下面就和小编一起来看看吧！......

2023-01-18
详细阅读