vba 修改Excel中網(wǎng)址為可點(diǎn)擊

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
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容