Gộp dữ liệu liệu nhiều sheets vào một sheets theo yêu cầu.

[thanhdo89]

Anh/chị nào xem giúp đoạn code ở dưới cho em với, em muốn xóa các dòng mà cột J (cột hộ ko phải là hộ mẫu). sau đó copy toàn bộ các hộ mẫu được chọn còn lại vào sheet DSHOMAU, nhưng em bấm kiểu gì nó xóa hết của e, e ko biết là sao nữa,
Option Explicit
Sub LAY_DANH_SACH_HO_MAU()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "DSHOMAU"

For J = 3 To Sheets.Count
Sheets(J).Activate
With ActiveSheet.Range("A13").CurrentRegion
.AutoFilter 11, Empty 'COT HO MAU DUOC CHON = 0 THI XOA
.AutoFilter 9, ">0" ' KEM THEM DIEU KIEN COT 9 TONG SO NHAN KHAU > 0
.Offset(1).Resize(, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter

Range("A13").Select
Selection.CurrentRegion.Select
Selection.Offset(8, 0).Resize(Selection.Rows.Count - 1).Select '-1
Selection.Copy Destination:=Sheets(1).Range("A1500").End(xlUp)(2)
End With
Next J
Sheets(1).Activate
End Sub