Sub XoaNA()
On Error Resume Next
Dim D As Range
For Each D In Range("C:C") 'cột có giá trị #N/A
If D = "#N/A" Then
Rows(D.Row).Delete
End If
Next
End Sub
Option Explicit
Sub DelErrCells()
Dim Rng As Range, Clls As Range, DelRng As Range, eRng As Range
On Error Resume Next
Set Rng = Selection.CurrentRegion
Set eRng = Selection.SpecialCells(xlCellTypeFormulas, 16)
If eRng Is Nothing Then Exit Sub
For Each Clls In eRng
If DelRng Is Nothing Then
Set DelRng = Clls.EntireRow
Else
Set DelRng = Union(DelRng, Clls.EntireRow)
End If
Next Clls
DelRng.Delete
Set DelRng = Nothing
End Sub
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireRow.Delete Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.DeleteNếu AnhTuấn phải cắt cổ 3 con gà đang ở 3 tầng lầu, thì AnhTuấn gôm chúng xuống cắt 1 lần hay đến đâu cắt ở đó?!anhtuan1066 đã viết:
AnhTuấn hoàn toàn có thể thử chút chơi mà! Chú í trước khi thử nên tô màu nền nhạt các ô xung quanh những ô muốn xóa, xem sao?!
Union() là 1 phương thức với Ranges hay cells , nó luôn song hành với phương thức Intersect(); Dùng nó để kết nối (gộp) 2 hay nhiều vùng thành 1 vùng. Trong đoạn mã trên thì hễ trong dòng có ô chứa lỗi thì nối (tất cả các ô trong) hàng đó vô biến DelRng mà ta đã khai báo trước.
Anh Sa ơi, em nghĩ anh dùng Union trong bài này là vì anh muốn "gôm" các cell cùng điều kiện vào làm 1, có đúng ko?SA_DQ đã viết:
Mình nói rồi, chẳng qua như tiêu đề mình nói: cho nó lê thê 1 chút;
nhiều khi ta không kiểm soát được & bị rơi rớt không chừng! Đề phòng vô ấy náy!
