Khi bạn làm việc với những người khác sử dụng Excel, không có gì lạ khi sao chép trang tính từ sổ làm việc của họ vào sổ làm việc của riêng bạn. Khi bạn làm như vậy, trang tính không phải là thứ duy nhất được sao chép — Excel cũng sao chép kiểu định dạng của chúng vào sổ làm việc của bạn. Việc xóa các kiểu không mong muốn theo cách thủ công có thể gây rắc rối, tùy thuộc vào số lượng kiểu. Tuy nhiên, việc xóa kiểu do người dùng xác định là rất dễ dàng nếu bạn sử dụng macro. Macro sau sẽ nhanh chóng xóa các kiểu không mong muốn:

Sub StyleKill()

Dim styT As Style     Dim intRet As Integer

For Each styT In ActiveWorkbook.Styles         If Not styT.BuiltIn Then             intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)

If intRet = vbYes Then styT.Delete         End If     Next styT End Sub

Macro chỉ cần một chút đầu vào của người dùng. Bất cứ khi nào macro phát hiện kiểu do người dùng xác định, bạn sẽ được hỏi có muốn xóa kiểu đó không. Nhấp vào nút Có sẽ xóa kiểu khỏi sổ làm việc.

Bạn nên biết những hạn chế của cách tiếp cận vĩ mô như thế này.

Hạn chế lớn nhất là nếu sổ làm việc của bạn bị hỏng theo bất kỳ cách nào (và, vâng, rất có thể có lỗi trong các kiểu trong sổ làm việc), macro này sẽ không khắc phục được lỗi đó. Thay vào đó, bạn có thể muốn xem xét một giải pháp tiện dụng của bên thứ ba (XLStylesTool) có thể làm việc kỳ diệu nếu bạn cần làm sạch phong cách của mình một cách toàn diện hơn. Bạn có thể tìm thêm thông tin về XLStylesTool tại đây:

https://sergeig888.wordpress.com/2011/03/21/net4-0-version-of-the-xlstylestool-is-now-available/

_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 (12259) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.