Як скопіювати гіперпосилання лише з однієї комірки в іншу в Excel?
Припустимо, у мене є список значень у стовпці A, і кожна клітинка містить різне гіперпосилання, тепер я хочу скопіювати лише гіперпосилання без тексту в інший стовпець E, як показано на наступному знімку екрана. Можливо, прямого способу вирішити цю роботу в Excel немає, але тут я можу ввести код VBA для роботи з нею.
Скопіюйте гіперпосилання з однієї комірки в іншу за допомогою коду VBA
Скопіюйте гіперпосилання з однієї комірки в іншу за допомогою коду VBA
Щоб скопіювати лише адреси гіперпосилань без тексту в інші комірки, такий код може зробити вам послугу, будь ласка, як це:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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, потім виділіть комірки, до яких ви хочете вставити гіперлінії, лише в іншому діалоговому вікні, див. знімок екрана:
5. А адреси гіперпосилань скопійовані з вихідних комірок до вказаних комірок, як вам потрібно, див. Знімок екрана:
примітки: Цей код також може допомогти вам скопіювати гіперпосилання з одного аркуша на інший аркуш як завгодно.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
