Khắc phục lỗi mở file excel rất chậm

Cách 1: Xóa các Object không cần thiết

Cách 2: Xóa hết các dòng và cột trống(Dùng code VBA)

– Bước 1(phải cần sự kiên nhẫn): Bạn hãy cố gắng mở file excel đó lên.Bước này bạn có thể sẽ phải đợi lâu.Hoặc nếu được bạn hãy chuyển file excel đang bị lỗi sang một cái máy tính(hoặc laptop) có cấu hình mạnh hơn để mở.

– Bước 2: Sau khi mở được file lên, bạn đừng vội nhấp vào ô nào trong file excel đó(Nếu file excel đó có nhiều Sheet thì bạn chọn lần lượt các Sheet để xử lý) mà nhấn tổ hợp phím Alt + F11 để mở giao diện của VBA.

– Bước 3: Ở giao diện VBA, bạn chọn Insert -> Module. Copy đoạn Code này dán vào và nhấn nút Save. Sau đó bạn đóng cửa sổ VBA.

Sub DeleteEmptyRowsInActiveSheet()
Dim lngI As Long
  For lngI = ActiveCell.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If Application.WorksheetFunction.CountA(ActiveSheet.Rows(lngI)) = 0 Then
      ActiveSheet.Rows(lngI).Delete
    End If
  Next
End Sub

Sub DeleteEmptyColumnsInActiveSheet()
Dim lngI As Long
  For lngI = ActiveCell.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
    If Application.WorksheetFunction.CountA(ActiveSheet.Columns(lngI)) = 0 Then
      ActiveSheet.Columns(lngI).Delete
    End If
  Next  
End Sub

Sub DeleteEmtyRowsAndColumnsInActiveSheet()
  DeleteEmptyRowsInActiveSheet
  DeleteEmptyColumnsInActiveSheet
End Sub

– Bước 4: Quay trở lại cửa sổ đang mở file Excel, bạn nhấn tổ hợp phím Alt + F8 để chạy Đoạn code mới tạo ở bước 3.

Tại đây bạn chọn Macro Name sau đó Chọn Run để thực thi.Thời gian thực thi khoảng 05 – 10s.

Sau đó bạn kiểm tra lại  File Excel thì thấy dung lượng của nó giảm đi rất nhiều và mở lên rất nhanh.Chúc các bạn thành công.