Dùng replace trên tất cả các sheet trong 1 book của excel (1 người xem)

[linhvn_vpc]

Nhờ các bác chỉ giúp có cách nào để dùng replace trên tất cả các sheet của 1 file excel không ạ? Em gặp một file có nhiều sheet dạng biểu mẫu để in (20 sheets). Mặc dù chỉ phải thay có một vài từ trong sheet nhưng cứ phải lần lượt đến từng sheet và dùng replace, nên làm mãi cũng nản. Mong các bác giúp đỡ! Em có file đính kèm ví dụ muốn thay tất cả các từ "giai phap excel" thành "Tôi yêu mọi người" trên 20 sheet trong file.

 

[hungpecc1]

Nhờ các bác chỉ giúp có cách nào để dùng replace trên tất cả các sheet của 1 file excel không ạ? Em gặp một file có nhiều sheet dạng biểu mẫu để in (20 sheets). Mặc dù chỉ phải thay có một vài từ trong sheet nhưng cứ phải lần lượt đến từng sheet và dùng replace, nên làm mãi cũng nản. Mong các bác giúp đỡ! Em có file đính kèm ví dụ muốn thay tất cả các từ "giai phap excel" thành "Tôi yêu mọi người" trên 20 sheet trong file.

Dùng Marco là gọn nhất --> bạn vào view--> marco --> copy đoạn code này vào rồi chạy

[GPECODE=vb]
Sub Del()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Cells.Replace "giai phap excel", "I love you"
Next
End Sub


[/GPECODE]

 

[xuan.nguyen82]

Bạn Ctrl +F, trong mục Within chọn Work book. Các thao tác khác bình thường