Xóa hàng rỗng trong bảng tính excel

[rosy84]

Bài này em post để giúp bác dinhhong04 vì em thấy anh ấy cũng có một yêu cầu là xóa hàng rỗng trong dữ liệu anh gủi. dưới đây là code, tuy chưa tối ưu nhưng sử dụng ngon và chạy tốt theo yêu cầu của anh.

Sub XoaDongCoDK()
Dim dem As Integer
dem = 0
For iRow = [B65000].End(xlUp).Row To 4 Step -1 'To [B4].End(xlDown).Row
For iCol = 3 To [C3].End(xlToRight).Column
If Cells(iRow, iCol).Value > 0 And Cells(iRow, iCol).Value <> "x" Then
dem = 0
Else
dem = dem + 1
End If
If dem >= [C3].End(xlToRight).Column - 2 Then

ActiveSheet.Cells(iRow, iCol).EntireRow.Delete
End If
Next iCol
dem = 0
Next iRow

End Sub

 

[rosy84]

à em còn một đề nghị nữa là khi xóa xong dòng rồi thì bác nào có thể nhóm các cột "N" và "D" riêng ra một sheet cùng với mà LOT của nó. để giúp anh ấy luôn. em nghĩ rồi nhưng mói chỉ viết được thế này thôi.

Sub nhom()
iRow = [b3].Row
For iCol = 3 To [C3].End(xlToRight).Column
If Cells(iRow, iCol).Value = "D" Then

' chọn được cột "D" rồi nhưng em không biết dùng lệnh gì để copy hay cut cột này sang sheet khác, thế mới chán chứ.

Else

' chọn được cột "N " rồi nhưng em không biết dùng lệnh gì để copy hay cut cột này sang sheet khác, thế mới chán chứ.


End If
Next iCol


End Sub

các bác giúp dùng nha.
Thân.!!!