Πώς να αντιγράψετε υπερ-σύνδεση μόνο από ένα κελί σε άλλο στο Excel;
Υποθέτοντας ότι έχω μια λίστα τιμών στη στήλη Α και κάθε κελί περιέχει έναν διαφορετικό υπερσύνδεσμο, τώρα, θέλω να αντιγράψω μόνο τους υπερ-συνδέσμους χωρίς κείμενο σε μια άλλη στήλη Ε όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Ίσως να μην υπάρχει άμεσος τρόπος επίλυσης αυτής της εργασίας στο Excel, αλλά εδώ, μπορώ να εισαγάγω έναν κωδικό VBA για την αντιμετώπισή του.
Αντιγράψτε τον υπερσύνδεσμο από το ένα κελί στο άλλο με κωδικό VBA
Αντιγράψτε τον υπερσύνδεσμο από το ένα κελί στο άλλο με κωδικό VBA
Για να αντιγράψετε μόνο τις διευθύνσεις υπερσύνδεσης χωρίς το κείμενο σε άλλα κελιά, ο ακόλουθος κώδικας μπορεί να σας βοηθήσει, παρακαλώ όπως αυτό
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: αντιγραφή υπερσύνδεσης μόνο από ένα κελί σε άλλο:
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. Και στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, θα εμφανιστεί ένα παράθυρο διαλόγου για να σας υπενθυμίσει να επιλέξετε τα κελιά που θέλετε να αντιγράψετε μόνο τους υπερσυνδέσμους, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OKκαι, στη συνέχεια, επιλέξτε τα κελιά που θέλετε να επικολλήσετε τα hyperlins μόνο σε άλλο παράθυρο διαλόγου, δείτε το στιγμιότυπο οθόνης:
5. Και οι διευθύνσεις υπερσύνδεσης έχουν αντιγραφεί από τα αρχικά κελιά στα καθορισμένα κελιά όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:
Note: Αυτός ο κωδικός μπορεί επίσης να σας βοηθήσει να αντιγράψετε τους υπερσυνδέσμους από το ένα φύλλο στο άλλο φύλλο όπως θέλετε.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
