提取超链接的URL

gengdatouer

同事提供过来的表格里是超链接，没有网页链接，所以找了一个能提取的宏，但是超链接中夹杂着没有超链接的单元格，这时候宏就终止了，想求大家帮忙改进一下，让这个宏能够跳过没有超链接的单元格继续向下执行。

xiangbaoan

Sub test()
On Error Resume Next
For Each cell In Range("A2:A2000")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
Err.Clear
End Sub

lsc900707

On Error Resume Next

gengdatouer

xiangbaoan 发表于 2018-9-17 12:40
Sub test()
On Error Resume Next
For Each cell In Range("A2:A2000")

感谢！解决问题了

gengdatouer

lsc900707 发表于 2018-9-17 12:50
On Error Resume Next

感谢！我太小白了

lsdongjh

不要动不动就 简单的错误处理
Sub test()
    For Each cell In Range("A2:A2000")
        If cell.Hyperlinks.Count > 0 Then cell.Offset(0, 1) = cell.Hyperlinks(1).Address
    Next
End Sub

xiangbaoan

楼主，错误处理也编写VBA的一种必要手段，这里，问题情况单一且已知道产生的原因，在不知如何判断的情况下，用错误处理，不失为一种没方法的方法。
同时，在编写VBA语句时，利用错误，编写较为高效的代码（此语出自宋翔，其代表作《Excel VBA 完全自学手册》）也是一种科学明智的选择、存在就是合理，看人怎么用。
以上，