Một trong những công cụ rất hữu ích được cung cấp trong Excel là Tìm và Thay thế, cho phép bạn định vị và thay đổi thông tin được lưu trữ trong các ô. Tuy nhiên, một nơi mà Tìm và Thay thế sẽ không hoạt động là với thông tin được lưu trữ trong đầu trang hoặc chân trang cho trang tính của bạn.

Cách duy nhất để xử lý việc tìm kiếm và thay thế thông tin trong đầu trang hoặc chân trang là sử dụng macro. Một nhiệm vụ khá đơn giản là truy cập những gì được lưu trữ trong các phần khác nhau của đầu trang và chân trang, kiểm tra chúng để tìm những gì bạn muốn tìm, sau đó thay thế nó bằng một số văn bản mới. Macro sau đây cung cấp một ví dụ.

Sub FnR_HF()         Dim sWhat As String, sReplacment As String     Const csTITLE As String = "Find and Replace"



sWhat = InputBox("Replace what", csTITLE)

If Len(sWhat) = 0 Then Exit Sub     sReplacment = InputBox("With what", csTITLE)



With ActiveSheet.PageSetup         ' Substitute Header/Footer values         .LeftHeader = Application.WorksheetFunction.Substitute( _                       .LeftHeader, sWhat, sReplacment)

.CenterHeader = Application.WorksheetFunction.Substitute( _                         .CenterHeader, sWhat, sReplacment)

.RightHeader = Application.WorksheetFunction.Substitute( _                        .RightHeader, sWhat, sReplacment)

.LeftFooter = Application.WorksheetFunction.Substitute( _                       .LeftFooter, sWhat, sReplacment)

.CenterFooter = Application.WorksheetFunction.Substitute( _                         .CenterFooter, sWhat, sReplacment)

.RightFooter = Application.WorksheetFunction.Substitute( _                        .RightFooter, sWhat, sReplacment)

End With End Sub

Lưu ý cách macro thực hiện thay thế trong cả ba phần của đầu trang và cả ba phần ở chân trang.

Nếu bạn không muốn sử dụng macro của riêng mình hoặc nếu bạn muốn Tìm và Thay thế đầy đủ tính năng hơn cho Excel, bạn có thể xem xét bổ trợ FlexFind miễn phí từ Excel MVP Jan Karel Pieterse:

http://www.jkp-ads.com/officemarketplaceff-en.asp

Điều này bổ sung các tìm kiếm thường xuyên, nhưng cũng được tìm kiếm trong nhiều lĩnh vực khác bao gồm đầu trang và chân trang.

_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 (3928) á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: