Giúp mình gỡ bỏ Merged Styles

[Account112]

Chào Các Anh&Chị,

Các Anh&Chị giúp đỡ mình gỡ bỏ Merged Styles bởi vì thỉnh thoảng Mình đang thao tác bảng tính bị "đứng máy" rất lâu sau khi kiểm tra thì mình phát hiện nguyên nhân Customs Merge Styles và Mình đã tìm kiếm rất nhiều câu lệnh VBA trên các diễn đàn khác nhau đều gỡ bỏ không hoàn toàn được .
Mình đã chọn trực tiếp từng Styles delete nhưng cũng không được
Các Anh & Chị giúp mình gỡ bỏ
Các Anh & Chị rất nhiều.

 

[huuthang_bd]

Cái hình không thì sao gỡ bạn, phải đưa file lên chứ.

 

[Account112]

Cái hình không thì sao gỡ bạn, phải đưa file lên chứ.

 

[huuthang_bd]

.

 

[be_09]

Cũng may trong 2 sheet chỉ có 9 cái hình ẩn, nếu vài ngàn chắc đơ máy.

 

[Account112]

Chào Anh,
Có cách nào gỡ bỏ mấy Merged Style bị lỗi đó ko .

 

[be_09]

Chào Anh,
Có cách nào gỡ bỏ mấy Merged Style bị lỗi đó ko .

Cách đơn giản nhất là làm thế này:
Di chuyển đến 1 Sheet rồi nhấn Ctrl + G, cửa sổ Go to hiện ra thì nhấn nút Special...
Khi cửa sổ Go to Special hiện ra thì tìm và chọn vào Objects rồi nhấn nút OK.
Nó sẽ đóng cửa sổ Go to Special và trên sheet nó sẽ chọn các hình ảnh hoặc các Shapes ẩn, bây giờ chỉ cần nhất nút Delete là xong.
Nếu có hàng chục ngàn cái hình ảnh hoặc các Shapes thì phải sử dụng code vì làm thủ công nó sẽ treo máy.

 

[Account112]

Chào Bạn;
Cám ơn Bạn rất nhiều Mình đã làm được rồi.
Còn Merged Styles thì có cách nào delete nó đc ko

 

[huuthang_bd]

Còn Merged Styles thì có cách nào delete nó đc ko

1. Rename your Excel workbook from .xlsx or .xlsm to .zip
2. Open the workbook with WinZip and navigate to xl folder
3. Right click on styles.xml and choose Open With Notepad
4. Hit Ctrl F to search for "<cellstyles"
5. Replace everything between "<cellStyleXfs" and "/cellStyleXfs>" with the following XML code:
<cellStyleXfs count="1"><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/></cellStyleXfs>
6. Save the Notepad and exit Notepad. WinZip should now ask you whether to update the file. Select Update Zip file with changes. Hit OK and close out WinZip.
7. Rename the workbook zip file back to .xlsx or .xlsm