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

Bagaimana cara menyalin hyperlink hanya dari satu sel ke sel lainnya di Excel?

Misalkan, saya memiliki daftar nilai di kolom A dan setiap sel berisi hyperlink yang berbeda, sekarang, saya hanya ingin menyalin hyperlink tanpa teks ke kolom E lain seperti gambar berikut. Mungkin tidak ada cara langsung untuk menyelesaikan pekerjaan ini di Excel, tetapi di sini, saya dapat memperkenalkan kode VBA untuk mengatasinya.

doc salin hyperlink ke sel lain 1

Salin hyperlink dari satu sel ke sel lain dengan kode VBA


panah gelembung kanan biru Salin hyperlink dari satu sel ke sel lain dengan kode VBA

Untuk hanya menyalin alamat hyperlink tanpa teks ke sel lain, kode berikut dapat membantu Anda, harap seperti ini:

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

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

Kode VBA: salin hyperlink hanya dari satu sel ke sel lainnya:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, sebuah kotak dialog akan muncul untuk mengingatkan Anda untuk memilih sel yang ingin Anda salin hyperlink saja, lihat tangkapan layar:

doc salin hyperlink ke sel lain 02

4. Dan kemudian klik OK, lalu pilih sel yang ingin Anda tempelkan hyperlins hanya di kotak dialog lain, lihat tangkapan layar:

doc salin hyperlink ke sel lain 03

5. Dan alamat hyperlink telah disalin dari sel asli ke sel yang Anda butuhkan, lihat tangkapan layar:

doc salin hyperlink ke sel lain 04

Note: Kode ini juga dapat membantu Anda menyalin hyperlink dari satu lembar ke lembar lain sesuai keinginan Anda.


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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah

 

Urutkan komentar berdasarkan
komentar (13)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, bagaimana jika saya ingin menyalin hyperlink saya dari lembar A sel A5 ke lembar B sel A5?
Komentar ini diminimalkan oleh moderator di situs
Halo, Arpit:

Saya telah memperbarui kode VBA, sekarang, Anda dapat menerapkannya di dua lembar kerja sesuai kebutuhan. Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menyalin tautan dalam beberapa lembar dari satu file ke file lain
Komentar ini diminimalkan oleh moderator di situs
halo.. bagaimana jika saya ingin menyalin hyperlink melalui vlookup? saya sudah punya rumusnya tapi ketika saya klik hyperlinknya akan muncul "cannot open specied file".

Tolong bantu aku
Komentar ini diminimalkan oleh moderator di situs
Tidak bekerja.
Komentar ini diminimalkan oleh moderator di situs
Suka. Terima kasih banyakoooo.
Cinta Dari Republik Dominika :)
Komentar ini diminimalkan oleh moderator di situs
Tidak bekerja.
Komentar ini diminimalkan oleh moderator di situs
Katakanlah di sel A1 Anda adalah hyperlink, jadi untuk mendapatkan jalur hyperlink cukup buat rumus seperti di bawah ini:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Komentar ini diminimalkan oleh moderator di situs
Ini juga tidak berhasil untuk saya.
Komentar ini diminimalkan oleh moderator di situs
Ini luar biasa dan berhasil. Saya suka copy&paste kode orang lain :D
Komentar ini diminimalkan oleh moderator di situs
Tidak bekerja untuk saya; apakah fakta bahwa saya masih menggunakan Excel 2007 penting?
Komentar ini diminimalkan oleh moderator di situs
OK, jadi Anda tidak akan mempublikasikan komentar saya - itu wajar. Tetapi jika Anda ingin saya mendaftar dan masuk, maka Anda perlu menunjukkan kepada saya solusi yang berhasil, karena (berdasarkan satu contoh yang tidak berfungsi) saya tidak melihat apa pun yang meyakinkan saya bahwa ada nilai dalam mendaftar.
Komentar ini diminimalkan oleh moderator di situs
Saya melakukan pengeditan berikut agar berfungsi untuk kasus penggunaan saya:
Sub SalinHyperlink()
'Uodateby Extendoffice
Redupkan xSRg Sebagai Rentang
Redupkan xDRg Sebagai Rentang
Redupkan Aku Sebagai Bilangan Bulat
Redupkan xAlamat Sebagai String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Silakan pilih rentang asli yang ingin Anda salin hyperlink:", "KuTools For Excel", xAddress, , , , , 8)
Jika xSRg Bukan Apa-apa Kemudian Keluar dari Sub
Set xDRg = Application.InputBox("Silakan pilih rentang baru yang ingin Anda tempel hyperlink saja", "KuTools For Excel", , , , , , 8)
Jika xDRg Bukan Apa-apa Kemudian Keluar dari Sub
Tetapkan xDRg = xDRg(1)
Untuk I = 1 Untuk xSRg.Count
If xSRg(I).Hyperlink(1).Address <> "" Atau xSRg(I).Hyperlink(1).SubAddress <> "" Kemudian
Jika xSRg(I).Hyperlinks.Count = 1 Maka
xDRg(I).Hyperlink.Tambahkan Jangkar:=xDRg(I), _
Alamat:=xSRg(I).Hyperlink(1).Alamat, _
SubAddress:=xSRg(I).Hyperlink(1).SubAddress
'Tips Layar:=xSRg(I).Hyperlink(1).Tips Layar, _
'TextToDisplay:=xSRg(I).Hyperlink(1).TextToDisplay
End If
End If
Next
End Sub
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL