Sub 提取超链() For Each cell In Range("A2:A16") cell.Offset(0, 1)=cell.Hyperlinks(1).Address Next End Sub
6,216
社区成员
23,066
社区内容
加载中
试试用AI创作助手写篇文章吧