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.
Salin hyperlink dari satu sel ke sel lain dengan kode VBA
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:
4. Dan kemudian klik OK, lalu pilih sel yang ingin Anda tempelkan hyperlins hanya di kotak dialog lain, lihat tangkapan layar:
5. Dan alamat hyperlink telah disalin dari sel asli ke sel yang Anda butuhkan, lihat tangkapan layar:
Note: Kode ini juga dapat membantu Anda menyalin hyperlink dari satu lembar ke lembar lain sesuai keinginan Anda.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!
