Köprüyü yalnızca bir hücreden diğerine Excel'de nasıl kopyalayabilirim?
Diyelim ki, A sütununda bir değerler listesi var ve her hücre farklı bir köprü içeriyor, şimdi, yalnızca aşağıdaki ekran görüntüsü gibi başka bir sütun E'ye metin içermeyen köprüleri kopyalamak istiyorum. Bu işi Excel'de çözmenin doğrudan bir yolu olmayabilir, ancak burada bununla başa çıkmak için bir VBA kodu ekleyebilirim.
Köprüyü bir hücreden diğerine VBA kodu ile kopyalayın
Köprüyü bir hücreden diğerine VBA kodu ile kopyalayın
Metin olmadan yalnızca köprü adreslerini diğer hücrelere kopyalamak için, aşağıdaki kod size bir iyilik yapabilir, lütfen şu şekilde:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: köprüyü yalnızca bir hücreden diğerine kopyalayın:
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. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın, yalnızca köprüleri kopyalamak istediğiniz hücreleri seçmenizi hatırlatmak için bir iletişim kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK, ardından köprüleri yalnızca başka bir iletişim kutusuna yapıştırmak istediğiniz hücreleri seçin, ekran görüntüsüne bakın:
5. Ve köprü adresleri orijinal hücrelerden ihtiyacınız olan hücrelere kopyalandı, ekran görüntüsüne bakın:
not: Bu kod, köprüleri bir sayfadan başka bir sayfaya istediğiniz gibi kopyalamanıza da yardımcı olabilir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!