remove hyperlink dari multiple cells

Untuk merekap data pelaporan yang ada di SI-DJP, saya biasanya copy paste dari halaman web SI-DJP langsung ke Ms. Excell. Tapi sayangnya, hyperlink tidak hilang. Untuk mengakalinya, saya gunakan perintah macro yang saya dapat dari forum superuser.

Caranya cukup mudah, antara lain:
1. Pada file excell dan tekan Alt + F11, hingga muncul jendela baru "MIcrosoft Visual Basic- Nama file.xlsx" atau silahkan lihat gambar berikut

silahkan pilih "ThisWorkBook" (angka 1 pada gambar) kemudian copy script berikut  ke dalam kotak code (angka 2 pada gambar)

Sub RemoveHyper()
    Selection.Hyperlinks.Delete
End Sub 

selanjutnya, tutup jendela Microsoft Visual basic dan arahkan kursor/ tandai bagian mana saja dari cell yang akan kita buang hyperlinkya (bisa di blok atau ditandai satu-persatu). Jika sudah, tekan tombol alt +F8, hingga muncul gambar berikut:

pilih "ThisWorkbook.RemoveHyper" (angka 3 pada gambar) dan klik tombol "Run" (angka 4 pada gambar). Secara  otomatis, hyperlink akan hilang.

semoga manfaat