Làm cách nào để loại bỏ hàng nghìn cột trống trong excel?

Nếu bạn đã từng dán dữ liệu vào bảng tính Excel từ một nguồn bên ngoài, thì có lẽ bạn đã phải đối mặt với sự thất vọng về các hàng và cột trống không cần thiết. Bất kể lý do cho các ô trống của bạn là gì, chúng có thể ảnh hưởng đến khả năng tính toán và sắp xếp/lọc chính xác của bạn

Có thể xóa riêng lẻ từng hàng hoặc cột trống, nhưng sẽ cực kỳ tốn thời gian nếu bạn có nhiều hơn một vài. Thay vào đó, hãy làm theo các hướng dẫn nhanh này để loại bỏ không đau

1. Từ tab Trang chủ, nhấp vào nút Tìm & Chọn trong phần Chỉnh sửa
2. Chọn Chuyển đến Đặc biệt
3. Nhấp vào nút radio cho Khoảng trống và nhấp vào OK

Bây giờ, với các ô trống được đánh dấu, hãy nhấp vào Xóa trong phần Ô của tab Trang chủ và chọn Xóa các Hàng của Trang tính. [Nếu cần xóa cột trống chọn Delete Sheet Columns. ]

Nếu dữ liệu Excel của bạn có nhiều hàng và/hoặc cột trống, hãy xem Cách xóa hàng trống và Cách xóa cột trống để giúp dọn sạch dữ liệu

Đôi khi, một trang tính Excel có thể có các hàng hoặc cột trống “giả” không bị xóa khi bạn sử dụng các phương pháp được liên kết ở trên. Ví dụ, điều này có thể xảy ra khi dữ liệu được nhập từ một nguồn khác vào Excel. Sự tồn tại của các khoảng trống giả có thể làm tăng kích thước của tệp, khiến tệp kém hiệu quả hơn. Đọc tiếp để biết cách xử lý các hàng hoặc cột thừa vô hạn có thể đến từ các khoảng trống giả

Đôi khi bạn nhập dữ liệu vào Microsoft Excel từ một số nguồn, chẳng hạn như trang web, CSV, văn bản, v.v. , có thể có nhiều cột trống với nó. Phải mất thời gian để xóa từng cột trống một. Do đó, một số người trong chúng ta tìm kiếm những cách dễ dàng để giải quyết vấn đề này. Bài viết này sưu tầm một số mẹo nhỏ giúp bạn xóa nhiều cột trống nhanh chóng

Xóa nhiều cột trống trong bảng tính bằng công thức

Trong Excel, bạn có thể áp dụng một công thức để xác định xem các cột có trống hay không, sau đó sử dụng tính năng Sắp xếp để sắp xếp tất cả các cột trống lại với nhau, rồi xóa chúng cùng một lúc. Hãy làm như thế này

1. Thêm một hàng mới ở đầu phạm vi dữ liệu của bạn, xem ảnh chụp màn hình

2. Sau đó, nhập công thức bên dưới vào ô A1, rồi kéo núm điều khiển điền sang bên phải để áp dụng công thức này cho các ô khác, TRUE sẽ được hiển thị nếu cột trống, nếu không, FALSE sẽ được hiển thị, xem ảnh chụp màn hình

=COUNTA[A2. A1048576]=0

3. Sau đó, chọn phạm vi dữ liệu bao gồm hàng trợ giúp rồi nhấp vào Dữ liệu > Sắp xếp, xem ảnh chụp màn hình

4. Trong hộp thoại Sắp xếp bật ra, nhấp vào nút Tùy chọn, trong hộp thoại Tùy chọn Sắp xếp sau, chọn tùy chọn Sắp xếp từ trái sang phải, xem ảnh chụp màn hình

5. Nhấp vào nút OK để trả về hộp thoại Sắp xếp, sau đó chọn Hàng 1 từ danh sách Sắp xếp theo thả xuống và chọn Giá trị ô từ phần Sắp xếp, chọn Lớn nhất đến Nhỏ nhất từ ​​phần Thứ tự, xem ảnh chụp màn hình

6. Sau đó, tất cả các cột trống đã được sắp xếp ở bên trái dữ liệu của bạn, và bây giờ, bạn chỉ cần chọn tất cả các cột rồi nhấp chuột phải, chọn Delete để xóa cùng lúc các cột trống này, xem ảnh chụp màn hình

Xóa nhiều cột trống trong bảng tính bằng mã VBA

Nếu bạn muốn sử dụng macro VBA, mọi thứ sẽ dễ dàng hơn nhiều. Mã VBA sau đây có thể giúp bạn, vui lòng làm như thế này

1. Giữ phím Alt + F11 trong Excel và nó sẽ mở cửa sổ Microsoft Visual Basic for Applications

2. Nhấp vào Chèn > Mô-đun và dán macro sau vào Cửa sổ Mô-đun

mã VBA. Xóa nhiều cột trống trong vùng chọn

Sub DeleteEmptyColumns[]
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox["Range :", xTitleId, InputRng.Address, Type:=8]
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
    Set rng = InputRng.Cells[1, i].EntireColumn
    If Application.WorksheetFunction.CountA[rng] = 0 Then
        rng.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Nhấn phím F5 để chạy macro này, chọn phạm vi công việc bạn cần trong hộp thoại bật ra. Xem ảnh chụp màn hình

4. Bấm OK, sau đó tất cả các cột trống trong vùng chọn sẽ bị xóa. Xem ảnh chụp màn hình

Xóa nhiều cột trống trong vùng chọn / trang tính đang hoạt động / toàn bộ sổ làm việc bằng một tính năng hữu ích

Tiện ích Xóa Hàng & Cột Ẩn [Hiển thị] của Kutools cho Excel có thể giúp bạn nhanh chóng xóa nhiều hàng hoặc cột trống cùng một lúc

Mẹo. Để áp dụng tính năng Xóa Hàng & Cột Ẩn [Hiển thị] này, trước tiên, bạn nên tải xuống Kutools cho Excel, sau đó áp dụng tính năng này một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau

1. Nhấp chuột Kutools > Xóa > Xóa Hàng & Cột Ẩn [Hiển thị], xem ảnh chụp màn hình

2. Trong hộp thoại Xóa Hàng & Cột Ẩn [Hiển thị], chỉ định phạm vi mà bạn muốn áp dụng thao tác từ danh sách thả xuống Tìm trong. [Nếu bạn chọn In Selected Range, bạn phải chọn một phạm vi mà bạn muốn sử dụng trước. ] Và sau đó kiểm tra Cột trong Loại xóa. Và chọn Cột trống từ Loại chi tiết. Xem ảnh chụp màn hình

3. Sau đó bấm OK. Và các cột trống đã bị xóa khỏi phạm vi đã chọn. Xem ảnh chụp màn hình

Xóa nhiều cột trống có tiêu đề bằng cách sử dụng mã VBA

Đôi khi, bạn có thể muốn xóa tất cả các cột trống chỉ chứa tiêu đề trong trang tính, mã VBA sau đây có thể giúp bạn, vui lòng thực hiện theo các bước sau

1. Giữ phím Alt + F11 trong Excel và nó sẽ mở cửa sổ Microsoft Visual Basic for Applications

2. Nhấp vào Chèn > Mô-đun và dán macro sau vào Cửa sổ Mô-đun

mã VBA. Xóa tất cả các cột trống có tiêu đề

Sub deleteblankcolwithheader[]
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find["*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious].Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA[Columns[I]]