作者:乔山办公网日期:
返回目录:excel表格制作
假设超链接在百A列,同时按Alt和F11进入度宏界面,点菜单的插入,模知块,粘道贴如下代码:回
Sub test()
Dim i As Integer
For i = 1 To Range("A9999").End(xlUp).Row
If Range("A" & i).Hyperlinks.Count > 0 Then Range("B" & i) = Range("A" & i).Hyperlinks(1).Address
Next i
End Sub
在此界面直接按F5运行此宏答,完成。
方法如下|:
第一步如图:
第二步选中按确定,如图:
第三步将相关经验网页的文字和连接复copy制到excel工作表格中,如图:
第四步我们要录制一个新宏,宏的名称叫做jinagyan。路径:菜单栏知--工具--宏--录制新宏,如图:
第五步录制新宏后编辑一下,点击菜单栏--工具--宏--宏,找到选择刚才录制的新宏,点击编辑,道然后在弹出来的新窗口,将以下代码插入到里面,然后保存,如下图。
Sub jingyan()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
最后一步,点击菜单栏--工具--宏--宏。找到录制的新宏jingyan,然后点击运行,连接全部会显示在表格的右边。
一个工作薄中有许多工作表如何快速整理出一个目录工作表,方法如下:
1、用宏7a686964616fe59b9ee7ad943363.0取出各工作表的名称,方法:
Ctrl+F3出现自定义名称对话框,取名为X,在“引用位置”框中输入:
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
点"确定 "。
2、用HYPERLINK函数批量插入连接,方法:
在目录工作表(一般为第一个sheet)的A2单元格输入公式:
=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充,直到出错为止,目录就生成了一个工作薄中有许多工作表如何快速整理出一个目录工作表,方法如下:
1、用宏3.0取出各工作表的名称,方法:
Ctrl+F3出现自定义名称对话框,取名为X,在“引用位置”框中输入:
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
点"确定 "。
2、用HYPERLINK函数批量插入连接,方法:
在目录工作表(一般为第一个sheet)的A2单元格输入公式:
=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充,直到出错为止,目录就生成
Sub 链接百()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.Hyperlinks.Count > 0 Then
rng.Offset(0, 1) = rng.Hyperlinks(1).Address
End If
Next
End Sub
如何使用度请参照专楼上回属答