Cách Xóa Style, Delete Styles, Xóa Formating Style Cứng Đầu Trong Excel

Các bạn tải file Excel trên mạng sẽ rất nhiều khi gặp phải trường hợp trong Formating Style có rất nhiều Style không mong muốn. Vì vậy các bạn muốn xóa Style nhưng có nhiều Formating Style cứng đầu không thể xóa được.

Cách 1: Xóa Style thủ công

Cách này chỉ áp dụng cho số lượng Style cần xóa nhỏ, các bạn thực hiện như sau:

Xuất hiện các Formating Style, các bạn muốn xóa Style nào thì nhấn chuột phải vào Style đó và chọn Delete.

Cách 2: Xóa Style sử dụng code VBA

Với file Excel có nhiều Formating Style thì cách này sẽ giúp các bạn xóa tự động tất cả các Style trên file Excel, các bạn thực hiện như sau:

Visual Basic. Sub StyleKill() Dim styT As Style Dim intRet As Integer On Error Resume Next For Each styT In ActiveWorkbook.Styles If Not styT.BuiltIn Then End If Next styT End Sub

Bước 5: Nhấp đúp chuột trái vào StyleKill để chạy Module xóa Formating Style.

Cách 3: Xóa Style bằng cách xóa trên file Style.xml

Xuất hiện hộp thoại Folders Options các bạn chọn thẻ View, trong phần Advanced settings các bạn bỏ chọn trong ô vuông trước dòng Hide extensions for known file types và nhấn OK.

Bước 1: Mở file Excel .xlsx (hoặc .xls) sau đó các bạn nhấn phím F12 để mở cửa sổ Save As, lưu thành bản mới với định dạng .xlsm như hình dưới.

Bước 2: Vào thư mục chứa file .xlsm mà bạn vừa lưu, sửa định dạng .xlsm thành định dạng .zip. Xuất hiện thông báo Rename các bạn chọn Yes.

Bước 3: Nhấp đúp chuột để mở file zip, tiếp theo chọn thư mục xl.

Bước 4: Mở file chúng tôi bằng Notepad.

Bước 7: Ngay khi các bạn lưu và đóng file chúng tôi thì trên thư mục winrar của file Excel mà bạn đang mở sẽ xuất hiện thông báo file chúng tôi đã sửa đổi, các bạn chọn Yes và đóng file .zip.

Bước 8: Đổi lại file từ định dạng .zip thành .xlsm

Các bạn mở file Excel, xuất hiện thông báo We found a problem with some content… các bạn chọn Yes. Như vậy các bạn hãy xem kết quả, sau đó lưu lại định dạng .xlsx hoặc .xls tùy ý.

Delete All Custom Cell Styles Excel

Asked

Is it possible to delete ALL the custom/created cell styles in a workbook ? Just leaving the default styles.

Without having to delete them all one by one

PeterH PeterH

6,412 16 16 gold badges 40 40 silver badges 74 74 bronze badges

Try this small VBA macro:

Sub StyleKiller() Dim N As Long, i As Long With ActiveWorkbook N = .Styles.Count For i = N To 1 Step -1 If Not .Styles(i).BuiltIn Then .Styles(i).Delete Next i End With End Sub

This resolves the Builtin vs Custom issue. Note we run the loop backwards to avoid corrupting the loop index.

To simply remove all without using INDEX, try the below:

Sub StyleKiller() Dim st As Style On Error Resume Next For Each st In ActiveWorkbook.Styles If Not st.BuiltIn Then st.Delete End If Next On Error GoTo 0 End Sub

Ok, this wasn’t as hard to do as I first thought.

Bit messy as I don’t often use vba; but this code will roll back to just the default styles:

Sub DefaultStyles() Dim MyBook As Workbook Dim tempBook As Workbook Dim CurStyle As Style Set MyBook = ActiveWorkbook On Error Resume Next For Each CurStyle In MyBook.Styles Select Case chúng tôi Case "20% - Accent1", "20% - Accent2", _ "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _ "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _ "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _ "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _ "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _ "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _ "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _ "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _ "Note", "Output", "Percent", "Title", "Total", "Warning Text" Case Else CurStyle.Delete End Select Next CurStyle Set tempBook = chúng tôi Application.DisplayAlerts = False MyBook.Styles.Merge Workbook:=tempBook Application.DisplayAlerts = True tempBook.Close End Sub

The issue of custom styles is also discussed in http://support.microsoft.com/kb/213904

I found that installing the free “XLStyles Tool” from MS Store as suggested in the KB article was a very convenient way to delete the custom styles.

Super User works best with JavaScript enabled

Cách Xóa Các Định Dạng Thiết Kế Rác (Delete Styles) Trong Excel Phiên Bản 2010, 2013, 2024

Tuyệt đỉnh Excel – Trở thành bậc thầy Excel trong 16 giờ

Một số styles (định dạng) rác, lạ hay thừa bạn có thể gặp như sau:

Xóa thủ công bằng thao tác ”Delete”

Thao tác này phải làm thủ công, chỉ có thể xóa từng styles một, gây mất thời gian và không tối ưu nếu bạn có một lượng lớn styles cần phải xóa

Xóa toàn bộ bằng lệnh VBA phục hồi style (định dạng) mặc định trong Excel

Phương án này đòi hỏi người dùng phải biết sử dụng Macro trong VBA

Sub RebuildDefaultStyles() 'The purpose of this macro is to remove all styles in the active 'workbook and rebuild the default styles. 'It rebuilds the default styles by merging them from a new workbook. 'Dimension variables. Dim MyBook As Workbook Dim tempBook As Workbook Dim CurStyle As Style 'Set MyBook to the active workbook. Set MyBook = ActiveWorkbook On Error Resume Next 'Delete all the styles in the workbook. For Each CurStyle In MyBook.Styles Select Case CurStyle.Name Case "20% - Accent1", "20% - Accent2", _ "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _ "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _ "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _ "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _ "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _ "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _ "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _ "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _ "Note", "Output", "Percent", "Title", "Total", "Warning Text" 'Do nothing, these are the default styles Case Else CurStyle.Delete End Select Next CurStyle 'Open a new workbook. Set tempBook = Workbooks.Add 'Disable alerts so you may merge changes to the Normal style 'from the new workbook. Application.DisplayAlerts = False 'Merge styles from the new workbook into the existing workbook. MyBook.Styles.Merge Workbook:=tempBook 'Enable alerts. Application.DisplayAlerts = True 'Close the new workbook. tempBook.Close End Sub

Kết quả hiện thị: File Excel của chúng ta đã hoàn toàn được loại bỏ các styles ( định dạng) lạ, rác hay thừa, đồng thời khôi phục đúng mặc định ban đầu của trang tính Excel.

Qua bài viết trên, Gitiho mong muốn cung cấp cho các bạn dân văn phòng (đặc biệt là người hay phải sử dụng Excel trong quá trình làm việc) một giải pháp tối ưu cả về mặt thời gian lẫn thao tác, khiến cho công việc xử lý hay thiết kế các bảng biểu, dữ liệu được trau chuốt, đồng nhất và đẹp mắt hơn.

Với sứ mệnh: ” Mang cơ hội phát triển kỹ năng, phát triển nghề nghiệp tới hàng triệu người “, đội ngũ phát triển chúng tôi đã và đang làm việc với những học viện, trung tâm đào tạo, các chuyên gia đầu ngành để nghiên cứu và xây dựng lên các chương trình đào tạo từ cơ bản đến chuyên sâu xung quanh các lĩnh vực: Tin học văn phòng, Phân tích dữ liệu, Thiết kế, Công nghệ thông tin, Kinh doanh, Marketing, Quản lý dự án…

Gitiho tự hào khi được đồng hành cùng:

50+ khách hàng doanh nghiệp lớn trong nhiều lĩnh vực như: Vietinbank, Vietcombank, BIDV, VP Bank, TH True Milk, VNPT, FPT Software, Samsung SDIV, Ajinomoto Việt Nam, Messer,…

Nếu bạn quan tâm đến các khóa tin học văn phòng của Gitiho, với mong muốn giỏi tin học để tăng năng suất làm việc lên gấp 5 lần, hãy truy cập ngay



How To Quickly Delete All Autoshapes In Excel?

How to quickly delete all autoshapes in Excel?

Reuse Anything: Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.

More than 20 text features: Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.

Merge Tools: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.

Split Tools: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.

Paste Skipping Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.

More than 300 powerful features; Works with Office 2007-2024 and 365; Supports all languages; Easy deploying in your enterprise or organization.

Delete all autoshapes in active worksheet with Go To function in Excel

If there are only one kind of objects-autoshapes in a worksheet, you can delete all autoshapes with Go To function.

Note: Objects contain autoshapes, pictures, clip arts and so on. Applying this method will remove other objects besides auto shapes if there are not only autoshapes object in the worksheet.

Delete all autoshapes in active worksheet with VBA

Using VBA macro can help you delete all auto shapes in active worksheet quickly.

Step 1: Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

VBA: delete all shapes in active worksheet.

Step 3: Press the F5 key to run this macro.

Then you will see all shapes in active worksheet are deleted quickly.

Notes:

1. This VBA macro can only delete all shapes in active worksheet.

2. This VBA macro can delete all kinds of shapes in active worksheet, including pictures, ClipArt, Shapes, SmartArt, charts, Text boxes, etc.

Delete all autoshapes in worksheet or workbook with Kutools for Excel

Step 2: In Delete Tools dialog box, please check Auto shapes option, and check one of option in look in section. See the following screen shot:

If you check the Active sheet option, it will delete all auto shapes in active worksheet;

If you check the Selected sheets option, it will delete all auto shapes in selected worksheets;

If you check the All sheets option, it will delete all auto shapes in the whole workbook.

Relative articles:

Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails…

More than 300 powerful features. Supports Office/Excel 2007-2024 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.

Open and create multiple documents in new tabs of the same window, rather than in new windows.

Sử Dụng Style Trong Word 2024, 2013, 2010, 2007, 2003

Sử dụng Style trong Word, một trong những tính năng cơ bản giúp người dùng Word có thể thay đổi cỡ chữ, kích thước chữ nhanh chóng và ngoài ra việc sử dụng Style trong Word còn làm thay đổi vị trí của chữ nhanh chóng.

Để thay đổi nhanh một kiểu chữ nhanh thì sử dụng Style trong Word là điều không thể thiếu. Tính năng này được Microsoft hỗ trợ chăm chút rất tốt nhưng không phải ai cũng biết cách để sử dụng và phát huy toàn phần nó. Vậy làm thế nào để có thể sử dụng Style trong Word hiệu quả ?

Để sử dụng Style trong Word hiệu quả thì tất nhiên chúng ta cần phải biết rõ công dụng của các style trong Word này là gì, mục đích sử dụng nó là gì trước. Chúng ta cso thể sử dụng Style để định dạng Heading trong Word nhanh, tạo các Body độc và lạ theo một form nào đó nhanh chóng. Nếu như bạn mệt mỏi trong việc định dạng Heading trong Word hay nhiều đoạn văn bản cần có nhiều style khác nhau thì bài viết sử dụng Style trong Word 2024, 2013, 2010, 2007 này sẽ giúp ích được cho bạn rất nhiều.

Hướng dẫn sử dụng Style trong Word 2024, 2013, 2010, 2007

Bài viết này sẽ giúp bạn sử dụng Style trong Word 2024, 2013, 2010, 2007, tính năng này ở 4 phiên bản này hoàn toàn giống nhau nên bạn có thể áp dụng cách sử dụng Style trong Word 2024 được biết trong bài hướng dẫn này và áp dụng cho các phiên bản trước đó.

Bước 1: Để có thể sử dụng Style trong Word đầu tiên bạn phải tìm hiểu về nó, nhấn vào biểu tượng mũi tên để xem đầy đủ danh sách các Style.

Bước 2: Ở đây bạn có thể thấy với mỗi style có sẵn đều dành cho 1 vị trí nhất định như Heading (đầu bài ), Normal (bình thường), Strong (im đậm) hoặc No Space (không khoảng cách) và tùy vào mục đích sẽ sử dụng Style trong Word riêng.

Thực chất dạng dọc này cũng chỉ là một cách hiển thị khác của phần Style ở dạng ngang mà bước 2 bạn mở ra mà thôi.

Bước 5: Tại đây có các thông số mà bạn cần phải chú ý để sử dụng Style trong Word riêng cho mình.

– Name: Đặt tên cho style trong Word.

– Style based on: Lựa chọn vị trí trong văn bản cho style đó.

– Style for following paragraph: Tương tự như trên nhưng áp dụng cho toàn đoạn văn bản.

– Formatting: Phần chỉnh sửa font chữ, cỡ chữ, kiểu chữ trong style.

– Add to the Styles gallery: Thêm vào style vào danh sách hiển thị.

– Automacically update: Tự động update nếu có chỉnh sửa.

– Only in this document: Chỉ áp dụng cho văn bản này.

– New documents based on this tempalte: Áp dụng cho toàn bộ các văn bản sau này.

Bước 6: Và để sử dụng Style trong Word thay đổi chữ bạn chỉ cần chọn chữ rồi nhấn vào đó là được.

Bước 3: Đặt tên cho style đó, việc này là tùy thuộc vào bạn.

– Name: Đặt tên cho style trong Word.

– Style based on: Lựa chọn vị trí trong văn bản cho style đó.

– Style for following paragraph: Tương tự như trên nhưng áp dụng cho toàn đoạn văn bản.

– Formatting: Phần chỉnh sửa font chữ, cỡ chữ, kiểu chữ trong style.

– Add to the Styles gallery: Thêm vào style vào danh sách hiển thị.

– Automacically update: Tự động update nếu có chỉnh sửa.

– Only in this document: Chỉ áp dụng cho văn bản này.

– New documents based on this tempalte: Áp dụng cho toàn bộ các văn bản sau này.

Một lưu ý nữa chính là phần Format để kết hợp thêm khi sử dụng Style trong Word, phần này chúng tôi sẽ hướng dẫn kỹ hơn cho bạn trong các bài viết sắp tới.