Gerry có một sổ làm việc chứa 22 trang tính. Mỗi trang tính có khoảng 20 nhận xét. Một số ý kiến ​​liên quan đến một bộ phận công ty.

Anh ta muốn thực hiện tìm kiếm hàng loạt và thay thế các nhận xét để tìm từng tham chiếu (ví dụ: “Bộ phận ABC”) và thay thế nó bằng một thứ khác (ví dụ: “Công ty con XYZ”).

Không có cách nào để làm điều này mà không sử dụng macro. Khả năng Tìm và Thay thế thông thường trong Excel không cho phép bạn tìm văn bản trong các nhận xét, nhưng bạn có thể sử dụng các lệnh macro. Sau đây là một macro đơn giản để thực hiện việc thay thế:

Sub ReplaceComments()

Dim cmt As Comment     Dim wks As Worksheet     Dim sFind As String     Dim sReplace As String     Dim sCmt As String

sFind = "ABC Division"

sReplace = "XYZ subidiary"



For Each wks In ActiveWorkbook.Worksheets         For Each cmt In wks.Comments             sCmt = cmt.Text             If InStr(sCmt, sFind) <> 0 Then                 sCmt = Application.WorksheetFunction. _                   Substitute(sCmt, sFind, sReplace)

cmt.Text Text:=sCmt             End If         Next     Next     Set wks = Nothing     Set cmt = Nothing End Sub

Các dòng chính ở đây là những dòng thiết lập các biến sFind và sReplace.

Bạn nên đặt chúng để phản ánh những gì bạn đang tìm kiếm và những gì bạn muốn nó được thay thế tương ứng. Macro bước qua từng nhận xét trong mỗi trang tính của sổ làm việc hiện tại và thực hiện các thay đổi ở bất kỳ vị trí nào của chúng.

_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 (3534) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: