vba 修改Excel中网址为可点击

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

    For Each cell In Range("J2:J" & Cells(Rows.Count, 1).End(xlUp).Row)

        If Left(cell, 8) = "https://" Then

            ActiveSheet.Hyperlinks.Add cell, cell.Value

        End If

    Next

    For Each cell In Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row)

        If Left(cell, 8) = "https://" Then

            ActiveSheet.Hyperlinks.Add cell, cell.Value

        End If

    Next

End Sub