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 |