Sub 链接()Dim rng As RangeFor Each rng In ActiveSheet.UsedRange If rng.Hyperlinks.Count > 0 Then rng.Offset(0, 1) = rng.Hyperlinks(1).Address End IfNextEnd Sub如何使用请参照楼上回答
