Chắc hẳn các bạn đã từng gặp trường hợp cần xử lý dữ liệu không theo ý muốn khi sao chép từ Internet hay phần mềm trong Excel. Vấn đề thường xảy ra đó là các dòng dữ liệu không liền nhau và xen kẽ là các dòng trống xen kẽ.
Trong trường hợp dữ liệu ít thì bạn có thể xóa các dòng trống bằng phương pháp thủ công. Tuy nhiên, nếu gặp trường hợp dữ liệu rất lớn thì phương pháp thủ công không khả thi vì mất rất nhiều thời gian. Cuuhotinhoc.com xin giới thiệu 2 phương pháp đơn giản giúp bạn xóa nhanh các dòng dữ liệu trắng:
1. Sử dụng các chức năng có sẵn
1.1 Cách 1:
- B1: Chọn tất cả dữ liệu cần xóa (Nếu dữ liệu nhiều Excel không thể chọn toàn bộ thì bắt buộc phải chọn từng phần)
- B2: Nhấn tổ hợp phím Ctrl + G, hộp thoại xuất hiện
- B3: Click Special
- B4: Click chọn Blanks
- B5: Chọn Tab Home, click biểu tượng Delete trên thanh Toolbar
- B6: Click chọn Delete Sheet Rows
Như vậy là các dòng trống đã được xóa theo mong muốn.
1.2 Cách 2:
- B1: Chọn tất cả dữ liệu
- B2: Thực hiện vào Tab Data, chọn Filter
- B3: Bỏ chọn (Select All)
- B4: Kéo thanh trượt bên phải xuống dưới
- B5: Click chọn (Blanks) -> OK (lọc tất cả các dòng trống)
- B6: Chọn Tab Home, click biểu tượng Delete trên thanh Toolbar
2. Sử dụng VBA
- B1: Nhấn tổ hợp phím ALT + F11 để chạy Visual Basic Editor.
- B2: Vào menu Insert -> Module
- B3: Trong màn hình soạn thảo Code, nhập tất cả đoạn mã sau:
Sub DeleteBlankRows()
Dim i As Long
If WorksheetFunction.CountA(Selection) = 0 Then
MsgBox “Hien tai chua co vung du lieu nao duoc chon”, vbInformation, “Cuuhotinhoc.com”
Exit Sub
End If
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
- B4: Nhấn tổ hợp Alt + Q để quay lại màn hình làm việc Excel
- B5: Chọn toàn bộ dữ liệu cần xóa bỏ dòng trống
- B6: Thực hiện Tab View -> Macros -> View Macros
- B7: Chọn Macro DeleteBlankRows và click Run
Như vậy là toàn bộ các dòng trống trong vùng dữ liệu đã được chọn sẽ được xóa bỏ tự động.
Trên đây là bài viết Tổng hợp các cách để xóa dòng trống trong Excel 2007, 2010, 2013. Hi vọng giúp ích được cho các bạn!
