【自定义函数】删除B列数据的超链接

WANGL2

Sub 删除超链接()

For Each Rng In Range("B3:B" & [B65536].End(xlUp).Row)

Sheet1.Range(Rng.Address).Hyperlinks.Delete

Next

End Sub

yanyongxia

努力学习中，每天都有进步。