10/05/2018, 23:21
Xóa dòng trống trắng trong Excel bằng VBA Marco 2007 2010 2013
Marco là 1 chức năng cao cấp trong Excel giúp bạn có thể xử lý văn bản mạnh mẽ hơn, sử dụng chức năng này các bạn làm như sau: Nhấn Ctrl + F11 để hiển thị Microsoft Visual basic for application --> Insert --> Module Copy và dòng các hàm marco dưới đây vào, sau đó chọn Sheet văn bản mà ...
Marco là 1 chức năng cao cấp trong Excel giúp bạn có thể xử lý văn bản mạnh mẽ hơn, sử dụng chức năng này các bạn làm như sau:
Nhấn Ctrl + F11 để hiển thị Microsoft Visual basic for application --> Insert --> Module
Copy và dòng các hàm marco dưới đây vào, sau đó chọn Sheet văn bản mà bạn muốn xử lý --> Click vào nút Play màu xanh trên thanh công cụ --> Chọn Run --> Xong
Hàm Marco xóa tất cả những dòng trống trong Excel bằng cách sử dụng Marco.
Sub DeleteBlankRows1()
Dim i As Long
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
Dim i As Long
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
