[已解决]怎样用excel批量处理含有超级链接的数据（excel2003）高手进来施展一下

shelang

图1是含有超级链接的数据（只有一列）
要求达到图2效果：提取出a列的超级链接放在b列。



超级链接.rar (1.76 KB, 下载次数: 26)

2012-3-7 15:18 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

windimi007

2012-3-7 15:39

请测试！

1. Option Explicit
   
2. Sub aa()
   
3.     Dim rw As Long, i As Long
   
4.     Application.ScreenUpdating = False
   
5.     rw = Cells(Rows.Count, 1).End(3).Row
   
6.     Columns(2).ClearContents
   
7.     For i = 1 To rw
   
8.         Cells(i, 2) = Cells(i, 1).Hyperlinks(1).Address
   
9.     Next i
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

跳转到最佳答案楼层

windimi007

请测试！

1. Option Explicit
   
2. Sub aa()
   
3.     Dim rw As Long, i As Long
   
4.     Application.ScreenUpdating = False
   
5.     rw = Cells(Rows.Count, 1).End(3).Row
   
6.     Columns(2).ClearContents
   
7.     For i = 1 To rw
   
8.         Cells(i, 2) = Cells(i, 1).Hyperlinks(1).Address
   
9.     Next i
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

hrpotter

用VBA，alt+F11,插入模块，把下面的代码拷进去，运行下就行

1. Sub test()
   
2.     Dim i As Integer, irow As Integer
   
3.     Dim h
   
4.     irow = Range("a65536").End(xlUp).Row
   
5.     For Each h In Range("a1:a" & irow).Hyperlinks
   
6.         i = i + 1
   
7.         Cells(i, 2) = h.Name
   
8.         Cells(i, 1).Hyperlinks.Delete
   
9.     Next
   
10. End Sub

复制代码

shelang

windimi007 发表于 2012-3-7 15:39
请测试！

偶已经了解了，感谢！
如果倒过来：把b列的超级链接插入到a列的数据里，放在c列，该如何做？请教了。

windimi007

shelang 发表于 2012-3-7 15:46
偶已经了解了，感谢！
如果倒过来：把b列的超级链接插入到a列的数据里，放在c列，该如何做？请教了。
...

请测试按钮2，并保证A、B列有数据。

1. Sub bb()
   
2.     Dim rw As Long, i As Long
   
3.     Application.ScreenUpdating = False
   
4.     rw = Cells(Rows.Count, 1).End(3).Row
   
5.     Columns(3).ClearContents
   
6.     For i = 1 To rw
   
7.         Cells(i, 3).Hyperlinks.Add Cells(i, 3), Cells(i, 1).Value, , Cells(i, 2).Value
   
8.     Next i
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

shelang

windimi007 发表于 2012-3-7 16:05
请测试按钮2，并保证A、B列有数据。

确实好使，高手果然不同凡响，谢谢。受教了！

shelang

windimi007 发表于 2012-3-7 15:39
请测试！

你好，昨天你给的代码在实际运行时出现“下标超限”，能不能修改一下？O(∩_∩)O谢谢。

windimi007

shelang 发表于 2012-3-8 14:42
你好，昨天你给的代码在实际运行时出现“下标超限”，能不能修改一下？O(∩_∩)O谢谢。

请上传测试文件！

shelang

windimi007 发表于 2012-3-8 15:17
请上传测试文件！

刚好还有一个问题，就是原先的是一个Word表格，要把它复制到excel里进行编辑。但是我复制的时候，第一列含有超级链接的数据只有后半部分有超级链接数据，前面的没有。我也不知道为什么。也请帮忙解决一下。
请你把第一列复制到excel的a列，然后把a列的超级链接提取到b列。空格可以去掉，但是数据的排列顺序不要变。
测试文件.rar (160.44 KB, 下载次数: 7)

2012-3-8 16:17 上传

点击文件名下载附件

shelang

windimi007 发表于 2012-3-7 16:05
请测试按钮2，并保证A、B列有数据。

也请顺便测试一下这个代码。