John có một sổ làm việc có hơn một nghìn URL trong đó, tất cả đều ở cột A. Đây không phải là siêu liên kết; chúng là văn bản thẳng của các URL riêng lẻ. John muốn chuyển đổi các URL thành các siêu liên kết đang hoạt động, nhưng thực hiện chuyển đổi riêng lẻ là một việc cực kỳ tẻ nhạt, đặc biệt là đối với nhiều URL.

Một cách để thực hiện chuyển đổi là sử dụng hàm HYPERLINK. Đặt công thức này vào ô B1 và ​​sao chép nó xuống nhiều ô nếu cần:

=IF(A1="","",HYPERLINK(IF(LEFT(A1,7)="http://","","http://")&A1))

Kết quả là cột B sẽ chứa các siêu liên kết cho mọi thứ trong cột A. Công thức không quá mạnh, vì nó chỉ giải quyết sự hiện diện hoặc thiếu văn bản “http: //” và bạn có thể cần nó để giải quyết với địa chỉ “https”. Có thể điều chỉnh công thức (tức là làm cho nó phức tạp hơn), nhưng bạn cũng có thể muốn xem xét sử dụng macro để thực hiện chuyển đổi.

Để có hiệu quả, macro cần phải đi qua từng ô trong một phạm vi đã chọn và nếu ô không trống, hãy chuyển đổi nội dung thành siêu kết nối. Sau đây sẽ thực hiện thủ thuật:

Sub URL_List()

Dim sTemp As String     Dim sURL As String     Dim cell As Range

For Each cell In Selection         If cell.Value <> "" Then             sTemp = Left(cell.Value, 7)

Macro không phải là hoàn hảo; nó giả định rằng nếu một ô chứa bất kỳ thứ gì thì đó là một URL hợp lệ. Công việc của nó là kiểm tra nội dung ô và nếu nội dung không được mở đầu bằng văn bản “http: //” hoặc “https: /”, thì tiền tố “http: //” sẽ được thêm vào. Siêu liên kết sau đó được tạo dựa trên nội dung ô.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (5825) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: