Bagaimana cara mengekstrak alamat web di excel?

Misalkan Anda menerima buku kerja Excel dari kolega Anda yang berisi daftar hyperlink dalam satu kolom. Sekarang, dari daftar ini, Anda ingin mengekstrak semua URL hyperlink.

Metode manual benar-benar memusingkan, Anda harus menyalin dan menempelkan setiap URL satu per satu. Jadi cara terbaik adalah dengan membuat UDF di VBA . Dan hari ini saya ingin berbagi dengan Anda kode sederhana untuk UDF ini.

Kode VBA untuk mengekstrak URL hyperlink

 Function GiveMeURL(rng As Range) As String On Error Resume Next GiveMeURL = rng.Hyperlinks(1).Address End Function

Cara menggunakan kode ini

Untuk menggunakan UDF ini, Anda harus mengikuti langkah-langkah berikut:

1. Buka Editor Visual Basic dari tab Pengembang atau gunakan pintasan keyboard ALT+F11.
2. Masukkan modul baru, tempelkan kode di atas ke dalamnya dan tutup.
3. Sekarang, di spreadsheet Anda, masukkan fungsi =GiveMeURL(A1) dan tekan Enter.