Sub splitlink() On Error Resume Next For Each cell In Range("K109:k154") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub
K109:k154 代表分离的行数
本文介绍了一段VBA代码,该代码用于从Excel中指定范围的单元格(K109到K154)中提取超链接地址,并将其存储在相邻的单元格中。这段代码通过遍历指定范围内的每个单元格,利用Offset和Hyperlinks属性实现了超链接地址的读取和写入。
Sub splitlink() On Error Resume Next For Each cell In Range("K109:k154") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub
K109:k154 代表分离的行数

被折叠的 条评论
为什么被折叠?