如何把excel表格里的超链接提取出来?

Question

如题所述

Answer 1

Sub 链接()\x0d\x0aDim rng As Range\x0d\x0aFor Each rng In ActiveSheet.UsedRange\x0d\x0a If rng.Hyperlinks.Count > 0 Then\x0d\x0a rng.Offset(0, 1) = rng.Hyperlinks(1).Address\x0d\x0a End If\x0d\x0aNext\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a如何使用请参照楼上回答