Xóa siêu liên kết - Ví dụ về mã VBA

Xóa tất cả các siêu liên kết khỏi một trang tính

Đoạn mã sau sẽ xóa tất cả các Siêu liên kết khỏi Sheet1:

12345 Sub DeleteHyperLinks ()Sheet1.Hyperlinks.DeleteKết thúc Sub

Và nếu bạn không cần quy trình Sub có thể tái sử dụng, thay vì sửa một lần, hãy sử dụng Cửa sổ ngay lập tức:

1. Chọn Trang tính để xóa Siêu liên kết khỏi

2. Nhấn Alt + F11 để mở VBE

3. Trên Menu chính VBE, chọn Xem-> Cửa sổ ngay lập tức

4. Trong Cửa sổ ngay lập tức, dán mã sau rồi nhấn Enter

1 ActiveSheet.Hyperlinks.Delete

wave wave wave wave wave