Danh mục

Tạo Macro để xóa những dòng trống trong Excel

Macro dưới đây có tác dụng xóa những Dòng ( Row ) không chứa bất kì nội dung nào
 

Macro dưới đây có tác dụng xóa những Dòng ( Row ) không chứa bất kì nội dung nào

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
 
Khi sử dụng Macro này bạn nhớ đánh dấu những vùng cần xóa sau đó mới chạy Macro .
 
\"\"\"\" 

Các tin khác

Excel : Đổi chữ cái đầu tiên thành viết hoa giữ nguyên những phần còn lại

Excel : Tìm giá trị lớn nhất với nhiều điều kiện

Excel : Chèn số trang vào một ô

Cộng một loạt những ô trong đó có chứa cả lỗi

Excel không tự động tính toán sau khi thay đổi số liệu

Excel : Xóa những số 0 ở đầu ô

Excel : Lặp lại số liên tiếp

Excel : Tìm kiếm nhiều giá trị trả về theo hàng ngang

Excel : Gỡ bỏ những kí tự đặc biệt không phải chữ cái

Xóa toàn bộ công thức chỉ để lại giá trị trong tất cả các Sheet

Copyright 2016 Infocom - Tư vấn tin học toàn quốc - 23 Láng Hạ - 04.35141.375. All Rights Reserved. nothing