CNKyNguyen
Thành viên mới
- Tham gia
- 1/12/20
- Bài viết
- 2
- Được thích
- 0
Tôi có một số file excel dung lượng rất lớn, tốn rất nhiều thời gian khi copy , dán ...
Sau khi tìm đọc các bài trong diễn đàn và thử nhiều cách thì tôi thấy cách sau có hiệu quả rất tốt .
Vì không nhớ đã copy đoạn code từ bài viết nào và của tác giả nào nên tôi xin phép tác giả chia sẻ lại đoạn code để mọi người có thể sử dụng.
Xin cám ơn rất nhiều ạ.
Mở file Excel, vào sheet cần giảm dung lượng : ALt + F11 rồi vào tab Insert chọn Modul rồi copy đoạn code ở dưới dán vào đó.
rồi nhấn F5 là xong
Sub StyleKill()
Dim StyT As Style
Dim t As Long
On Error Resume Next
For Each StyT In ActiveWorkbook.Styles
If Not StyTButton Then
t = t + 1
If StyT.Name <> "1" Then StyT.Delete
End If
Next StyT
MsgBox t
MsgBox "XONG"
End Sub
nếu bài viết có gì sơ sót , xin mọi người lượng thứ.
Xin cám ơn rất nhiều .
Sau khi tìm đọc các bài trong diễn đàn và thử nhiều cách thì tôi thấy cách sau có hiệu quả rất tốt .
Vì không nhớ đã copy đoạn code từ bài viết nào và của tác giả nào nên tôi xin phép tác giả chia sẻ lại đoạn code để mọi người có thể sử dụng.
Xin cám ơn rất nhiều ạ.
Mở file Excel, vào sheet cần giảm dung lượng : ALt + F11 rồi vào tab Insert chọn Modul rồi copy đoạn code ở dưới dán vào đó.
rồi nhấn F5 là xong
Sub StyleKill()
Dim StyT As Style
Dim t As Long
On Error Resume Next
For Each StyT In ActiveWorkbook.Styles
If Not StyTButton Then
t = t + 1
If StyT.Name <> "1" Then StyT.Delete
End If
Next StyT
MsgBox t
MsgBox "XONG"
End Sub
nếu bài viết có gì sơ sót , xin mọi người lượng thứ.
Xin cám ơn rất nhiều .