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 代表分离的行数
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 代表分离的行数