Xóa giùm em các dòng đc đánh dấu.

[win4u]

Các bác kiểm tra code giùm em, đồng thời xem cho em làm cách nào xóa đi những dòng đã dc đánh dấu sau khi chạy macro.

Nếu còn cách nào nhanh so sánh, copy nhanh hơn nữa thì các bác chỉ giùm em nhá.

 

[ndu96081631]

Các bác kiểm tra code giùm em, đồng thời xem cho em làm cách nào xóa đi những dòng đã dc đánh dấu sau khi chạy macro.

Nếu còn cách nào nhanh so sánh, copy nhanh hơn nữa thì các bác chỉ giùm em nhá.

Ai cha... code đâu mà dài thế, xem hỏng nổi... nhưng chạy code xong thì có thể đoán được ý bạn là: "Xét các cell trong cột A tại sheet1, cái nào giống với cột A sheet2 thì copy hết sang sheet3" <--- Đúng không?
Nếu thế thì khi dùng For duyệt các cell, nhân tiện xóa luôn là được rồi!
Code gợi ý của tôi là:

Sub Copy_Sosanh()
  Dim Data As Range, Sosanh As Range
  Dim i As Long, j As Long
  Set Data = Sheet1.[A1].CurrentRegion
  Set Sosanh = Sheet2.[A1].CurrentRegion
  j = Data.Count
  For i = j To 1 Step -1
    If WorksheetFunction.CountIf(Sosanh, Data(i)) Then
      Sheet3.Cells(j, "A") = Data(i): j = j - 1
      Data(i).EntireRow.Delete
    End If
  Next
  Sheet3.[A1].SpecialCells(4).Delete Shift:=xlUp
End Sub

Xem file

 

[anhtuan1066]

Cái này dùng Advanced Filter là nhanh nhất (khỏi vòng lập luôn)
- Insert 1 cell tại A1 ở cả 2 sheet (sheet1 và sheet2) và gõ vào 1 tiêu đề nào đó
- Dùng Advanced Filter với Source Data là cột A của sheet1, điều kiện lọc là cột A của sheet2... Lọc tại chổ (không copy sang nơi khác)
- Copy Visible cell tại cột A sheet1 sang cell A1 của Sheet3
- Xóa luôn Visible cell tại cột A sheet1 rồi ShowAll Data
- Sau khi lọc xong có thể xóa dòng tiêu đề (đã thêm vào) hay giữ nguyên (tùy ý)
-Lưu ý: Sau khi lọc, copy và xóa Visible cell thì tiêu đề chỉ còn tồn tại ở sheet2 và sheet3 (sheet1 đã bị xóa mất) nên nếu muốn xóa tiêu đề đã thêm vào thì chỉ cần chú ý sheet2 và 3 mà thôi
Cách này bảo đãm cực nhanh, nếu không nói là NHANH NHẤT
Thử xem!