Excel: konversi kolom dengan hyperlink untuk hanya menampilkan tautannya


21

Di Excel, saya memiliki kolom tautan yang menampilkan teks alih-alih tautan yang sebenarnya.

Saya benar-benar membutuhkan tautan, apakah ada cara untuk mengonversi seluruh kolom secara massal sehingga tautannya terbuka? Kalau tidak, saya harus mengklik setiap tautan, membukanya di peramban, dan menyalin dan menempelkan alamat ...

Juga, saya di Excel 2008 untuk Mac sehingga sepertinya saya tidak bisa melakukan makro ...

Jawaban:


37

Jawaban singkat: Anda tidak dapat mengotomatiskan ini tanpa VBA.

Manual

Ini ada di komputer Windows 7; ganti saja pintasan dengan rekanan Mac yang sesuai.

  1. Sorot sel dengan hyperlink.
  2. Tekan CTRL+ K. Ini membuka kotak dialog hyperlink (lihat gambar di bawah). Setelah terbuka, Anda akan menemukan bahwa kursor Anda sudah ada di bidang Alamat.
  3. Tekan CTRL+ Auntuk menyorot seluruh URL.
  4. Tekan CTRL+ Cuntuk menyalinnya.
  5. Tekan ESCatau Enteruntuk menutup kotak dialog Hyperlink.
  6. Rekatkan URL di suatu tempat melalui CTRL+ V.

masukkan deskripsi gambar di sini

VBA

Inilah solusi VBA bagi mereka yang dapat menggunakannya.

Buat modul VBA dengan kode berikut:

Public Function GetURL(c As Range) As String
    On Error Resume Next
    GetURL = c.Hyperlinks(1).Address
End Function

Untuk menggunakan, masukkan yang berikut ini ke sel apa saja:

=GetURL(A1)

di mana A1 berisi hyperlink.

Fungsi di tempat kerja:

masukkan deskripsi gambar di sini


9
Itu cuplikan yang bagus. Bagi mereka yang bertanya-tanya bagaimana cara menambahkan kode ini ke lembar kerja mereka ... Tekan Alt + F11 untuk menampilkan Editor Visual Basic. Kemudian klik "Sisipkan -> Modul". Rekatkan kode Ellesa yang disediakan ke area teks dan Anda kemudian dapat menutup VBE dan mulai menggunakan fungsi.
BA_Webimax

Saya membutuhkan alasan untuk belajar kembali menambahkan fungsi pengguna ke Excel. Daftar 4060 tautan aktif (tertanam) adalah alasannya. Posting (Ellesa) ini adalah jawabannya. Dan @BA_Webimax, Anda bahkan menyelamatkan saya dari keharusan mengingat BAGAIMANA menambahkannya. Saya butuh waktu lebih lama untuk menulis komentar ini daripada menambahkan fungsi dan memperbaiki XLS.
Marc

+30, inilah yang membuat situs ini luar biasa (:
jwd

6

Ini mungkin terdengar seperti metode brute force, tapi itu cara terbaik yang saya buat. (Saya menemukan halaman ini ketika saya memiliki pertanyaan yang sama sendiri satu jam yang lalu ... Anda bisa menghabiskan sepanjang hari mencari, tetapi kadang-kadang lebih mudah untuk melakukannya dan dilakukan dengan itu.)

1) Salin dan tempel hanya sel yang berisi hyperlink ke spreadsheet baru.

2) Ekspor spreadsheet, klik "Ubah Jenis File," pilih "Simpan Sebagai Jenis File Lain" dan simpan sebagai halaman web (alias file HTML).

3) Buka halaman web di browser Anda dan lihat sumbernya.

4) Salin dan tempel sumber ke editor teks.

5) Dengan menggunakan fungsi Temukan / Ganti editor teks, hapus teks depan dan belakang dari setiap hyperlink. (Dengan kata lain, ganti teks tersebut dengan kata lain: "") Perhatikan bahwa teks ini harus sama untuk setiap hyperlink.

6) Sekarang Anda seharusnya memiliki file teks dengan hyperlink. Salin dan tempel sesuai kebutuhan kembali ke spreadsheet asli Anda atau gunakan bagaimanapun / di manapun Anda inginkan.

Diedit untuk menyatakan bahwa Anda sebenarnya dapat mengekspor ke file terpisah yaitu HTM. Tutup file dan buka kembali di Excel lagi dan itu akan menyelesaikan masalah. Rumus = Hyperlink hilang dan tautannya dikonversi menjadi tautan biasa. Metode ini menyelamatkan saya berjam-jam dan sangat sederhana dan saya tidak harus berurusan dengan skrip atau formula atau VBA atau Macro.


5

Saya menggunakan mac dan ini berfungsi untuk saya: sorot kolom yang perlu Anda konversi, pada menu Insert, buka "Hyperlink". Hapus teks apa pun yang muncul di kotak Display. Itu akan mengatakan "[beberapa sel dipilih]" jika teks tampilan Anda berbeda antar sel. Setelah Anda mengklik OK, hanya tautan yang akan muncul di lembar kerja Anda. Jika Anda perlu mengonversi sel individual alih-alih seluruh kolom, sorot semua sel yang perlu Anda konversi, klik kanan, pilih "edit hyperlink" dan ikuti langkah-langkah yang sama untuk menghapus teks dalam kotak Display.


Cemerlang. Jauh lebih mudah daripada VBA!
Tom Auger

ini tip yang bagus !!!
FFrewin

1
Sayangnya ini sepertinya tidak berhasil untuk saya di Windows (10), Excel (2016).
Kenny LJ

0

Saya yakin ada dengan VBA namun dalam waktu yang tepat klik kanan, H, dan salin dan tempel alamat ke layar untuk menampilkan kotak


0

Pada tahun-tahun sejak pertanyaan ini diajukan, Excel menambahkan =GetURL(cell)fungsi sehingga Anda dapat melakukan ini tanpa menjatuhkan VBA Anda sendiri.

Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.