Làm thế nào để loại bỏ các siêu liên kết mà không cần loại bỏ định dạng?
Trong Excel, khi chúng ta xóa các siêu liên kết có một số định dạng, chẳng hạn như màu nền, phông chữ, kích thước, v.v., định dạng sẽ bị xóa cũng như ảnh chụp màn hình sau. Tuy nhiên, đôi khi, chúng ta cần giữ nguyên định dạng ô khi xóa các siêu liên kết. Có cách nào để giúp chúng tôi giải quyết vấn đề khó chịu này?
Xóa siêu liên kết mà không xóa định dạng bằng mã VBA
Xóa siêu liên kết mà không xóa định dạng bằng mã VBA
Trong Excel, không có cách nào trực tiếp để giải quyết tác vụ này, nhưng bạn có thể áp dụng mã VBA sau để giữ nguyên định dạng ô khi xóa siêu liên kết.
1. Giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Xóa siêu liên kết mà không xóa định dạng
Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
Set Rng = xLink.Range
Rng.Copy TempRng
Rng.ClearHyperlinks
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
TempRng.Copy
Rng.PasteSpecial xlPasteFormats
TempRng.Clear
Next
End Sub
3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn chọn các ô chứa siêu liên kết, xem ảnh chụp màn hình:
4. Và sau đó nhấp vào OK để đóng hộp thoại, các siêu liên kết sẽ bị xóa, nhưng định dạng của các siêu liên kết (bao gồm cả phần gạch dưới) vẫn được giữ nguyên.
Các bài liên quan:
Làm cách nào để thay đổi nhiều đường dẫn siêu kết nối cùng một lúc trong Excel?
Làm cách nào để trích xuất địa chỉ thực từ siêu liên kết trong Excel?
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!