Làm cách nào để chỉ sao chép siêu kết nối từ ô này sang ô khác trong Excel?
Giả sử, tôi có một danh sách các giá trị trong cột A và mỗi ô chứa một siêu liên kết khác nhau, bây giờ, tôi muốn chỉ sao chép các siêu liên kết mà không có văn bản sang một cột E khác như ảnh chụp màn hình sau. Có thể không có cách nào trực tiếp để giải quyết công việc này trong Excel, nhưng ở đây, tôi có thể giới thiệu một mã VBA để giải quyết nó.
Sao chép siêu liên kết từ ô này sang ô khác bằng mã VBA
Sao chép siêu liên kết từ ô này sang ô khác bằng mã VBA
Để chỉ sao chép các địa chỉ siêu liên kết mà không có văn bản sang các ô khác, mã sau có thể giúp bạn, vui lòng như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: chỉ sao chép siêu liên kết từ ô này sang ô khác:
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. Và sau đó nhấn F5 để chạy mã này, một hộp thoại sẽ bật ra để nhắc bạn chọn các ô mà bạn chỉ muốn sao chép các siêu liên kết, xem ảnh chụp màn hình:
4. Và sau đó nhấp vào OK, sau đó chọn các ô mà bạn chỉ muốn dán siêu liên kết vào một hộp thoại khác, xem ảnh chụp màn hình:
5. Và các địa chỉ siêu liên kết đã được sao chép từ các ô gốc sang các ô được chỉ định khi bạn cần, xem ảnh chụp màn hình:
Chú thích: Mã này cũng có thể giúp bạn sao chép các siêu liên kết từ trang tính này sang trang tính khác theo ý muốn.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!