Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mengekstrak alamat sebenarnya dari hyperlink di Excel?

Misalkan Anda memiliki berbagai sel yang berisi hyperlink, dan sekarang Anda perlu melihat tujuan sebenarnya dari hyperlink dan mengekstraknya dari hyperlink seperti gambar berikut yang ditampilkan. Adakah cara mudah untuk menyelesaikan masalah ini dengan cepat? Artikel ini akan memandu Anda untuk mengekstrak alamat sebenarnya dari beberapa hyperlink.


panah gelembung kanan biru Ekstrak alamat sebenarnya dari hyperlink dengan fitur Edit Hyperlink

Ini, Sunting Hyperlink fungsi dapat membantu Anda mengekstrak URL yang mendasari untuk masing-masing hyperlink ini dan menempatkan alamat sebenarnya ke dalam sel yang berbeda. Anda dapat melakukan seperti ini:

1. Pilih sel dengan hyperlink dan klik kanan, dari menu konteks, pilih Sunting Hyperlink, lihat tangkapan layar:

2. Dan a Sunting Hyperlink kotak dialog akan muncul, pilih dan salin (Ctrl + C) seluruh URL dari Alamat bidang kotak dialog.

3. Kemudian tutup kotak dialog dan tempelkan alamat sebenarnya ke sel mana pun yang Anda inginkan.

Note: Dengan metode ini, Anda hanya dapat mengekstrak satu alamat hyperlink setiap kali, tetapi jika Anda memiliki beberapa hyperlink yang perlu diekstrak, Anda perlu menerapkan fungsi ini berulang kali.


panah gelembung kanan biru Ekstrak alamat sebenarnya dari hyperlink dengan kode VBA

Untuk banyak hyperlink, metode di atas akan membosankan dan memakan waktu, jadi kode VBA berikut dapat membantu Anda mengekstrak banyak alamat dengan cepat dari hyperlink sekaligus.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode, dan dialog muncul bagi Anda untuk memilih hyperlink yang ingin Anda ekstrak alamat aslinya, lihat tangkapan layar:

4. Lalu klik OK, dan konten sel yang dipilih telah diubah ke alamat hyperlink yang sebenarnya di kisaran aslinya. Lihat tangkapan layar:


panah gelembung kanan biru Ekstrak alamat sebenarnya dari hyperlink dengan Fungsi User Definde

Fungsi Buatan Pengguna berikut juga dapat mengekstrak URl sebenarnya dari hyperlink.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Simpan kode dan tutup jendela, pilih sel kosong untuk mengetik rumus ini = GetURL (A2) (A2 adalah sel tempat hyperlink masuk), dan tekan Enter tombol. Anda dapat melihat alamat hyperlink yang sebenarnya diekstrak.


panah gelembung kanan biru Ekstrak alamat sebenarnya dari hyperlink dengan Kutools for Excel dengan cepat dan mudah

Berikut adalah alat praktis, bernama Kutools untuk Excel, Dengan yang Konversi Hyperlink fitur, Anda dapat dengan cepat menangani operasi berikut:

  • Ekstrak alamat sebenarnya dari hyperlink;
  • Ubah teks url menjadi hyperlink yang dapat diklik.
Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari.

Jika sudah terpasang Kutools untuk Excel, lakukan hal berikut:

1. Pilih rentang yang berisi hyperlink yang perlu diekstrak.

2. Klik Kutools > Link > Konversi Hyperlink, lihat tangkapan layar:

3. di Konversi Hyperlink kotak dialog, pilih Alamat hyperlink menggantikan konten sel opsi, dan klik tombol-doc1 tombol dari Rentang hasil untuk menentukan sel untuk meletakkan hasilnya.

4. Dan kemudian klik OK, alamat sebenarnya telah diekstrak dari hyperlink. Lihat tangkapan layar:

Note: Jika Anda ingin memasukkan alamat sebenarnya ke kisaran asli, harap periksa Ubah rentang sumber.

Klik Konversi Hyperlink untuk mengetahui lebih lanjut tentang fitur ini.

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


panah gelembung kanan biru Demo: Ekstrak alamat sebenarnya dari hyperlink dengan Kutools for Excel

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Artikel terkait:

Bagaimana cara mengubah teks url menjadi hyperlink yang dapat diklik di Excel?


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (44)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. itu sangat membantu saya
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak!!! :D
Komentar ini diminimalkan oleh moderator di situs
Ini baru saja menyelamatkan saya! terima kasih
Komentar ini diminimalkan oleh moderator di situs
thnx Anda membuat pekerjaan saya sangat mudah
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak ini menyelamatkan pantatku dan membuatku terlihat baik. 8)
Komentar ini diminimalkan oleh moderator di situs
Anda adalah yang terbaik, sangat mudah diikuti!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih sobat. Ini benar-benar bekerja dalam hitungan detik.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. itu sangat membantu saya
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak! Sangat membantu namun sederhana dan jelas. Sama seperti yang dimaksud Albert :roll:
Komentar ini diminimalkan oleh moderator di situs
Super! Begitu mudah. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. seperti orang lain di sini. ini sangat membantu dan mudah.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak :lol: Saya menggunakan metode VBA dan itu bekerja seperti pesona di Excel 365 pada OS Windows 8.1
Komentar ini diminimalkan oleh moderator di situs
Ini adalah tip excel berbasis makro pertama yang berhasil untuk saya. Terima kasih banyak telah membuat kehidupan para dummies excel lebih baik.
Komentar ini diminimalkan oleh moderator di situs
terima kasih telah menyelamatkan saya 15 menit
Komentar ini diminimalkan oleh moderator di situs
Hebat! mengurangi pekerjaan saya menjadi kurang dari satu menit.
Komentar ini diminimalkan oleh moderator di situs
Ini menyelamatkan saya banyak waktu! Saya mengekstrak 500 ID profil dari 500+ nama yang ditautkan ke profil mereka. Kode ini bekerja dengan sangat baik dan mudah diikuti. Terima kasih banyak!
Komentar ini diminimalkan oleh moderator di situs
Untuk beberapa alasan ini tidak berhasil untuk saya. Saya membuat fungsi yang ditentukan seperti yang Anda jelaskan, tetapi tidak melakukan apa-apa :\ Saya juga ingin menggabungkannya dengan fungsi Hyperlink, seperti: =HYPERLINK(=getURL(A1), [A1]) Sehingga final result akan menyalin URL A1 dan menampilkannya sebagai string teks A1 (yaitu cukup salin A1 ke sel lain, termasuk teks dan hyperlinknya. Hal sederhana yang tampaknya tidak dapat dilakukan Excel karena beberapa alasan...).
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak! Menghemat waktu saya karena harus melakukan 800+ sel ini!
Komentar ini diminimalkan oleh moderator di situs
Alat yang sangat bagus! Saya mengonversi 16 ribu+ tautan. Alat bekerja cepat dan tanpa cacat.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan