vba Excel中A列网址变为可点击链接

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

展开阅读全文

没有更多推荐了,返回首页