Sub editUrl()
For Each cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If Left(cell, 8) = "https://" Then
ActiveSheet.Hyperlinks.Add cell, cell.Value
End If
Next
End Sub
vba Excel中A列网址变为可点击链接
最新推荐文章于 2022-05-25 10:41:21 发布