Trừ DL từ 2 cột

[doanhoanghai]

mình có vấn đề là thế này mình muốn lọc ra những DL không trùng nhau của 2 cột thành một cột mong các bạn giúp đỡ !

 

[ndu96081631]

Thử code này xem:

Sub Loc()
  Dim Rng1 As Range, Rng2 As Range
  Dim Luu As Variant
  Set Rng1 = Range("A2:A" & [A65536].End(xlUp).Row)
  Set Rng2 = Range("B2:B" & [B65536].End(xlUp).Row)
  Luu = Rng1.Value
  [C2:C10000].ClearContents
  For Each Clls In Rng2
    On Error Resume Next
    Rng1(Application.WorksheetFunction.Match(Clls, Rng1, 0)).ClearContents
  Next
  Rng1.SpecialCells(2, 23).Copy Destination:=[C2]
  Rng1.Value = Luu
End Sub

 

[doanhoanghai]

Xóa Khoảng trắng !

Cảm ơn bạn nhé ! mình có vấn đề này muốn hỏi thêm là mình muốn xóa khoảng trắng giúp mình với !

 

[cadafi]

Cảm ơn bạn nhé ! mình có vấn đề này muốn hỏi thêm là mình muốn xóa khoảng trắng giúp mình với !

Bạn làm các bước sau, không cần viết code:
-------------------------------------------------------
1. Chiếu sáng (bôi đen) cột A.
2. Ấn Ctrl+G -->chọn Special --> chọn Blank -->ấn OK
3. Ấn Ctrl+ "-" (dấu trừ)
4. Chọn Entire Row -->OK. Xong.
-------------------------------------------------------

 

[doanhoanghai]

ý của mình là xóa cả dòng cơ bạn ạ !

thank bạn .Ý Mình muốn xóa cả dòng đó mà VD nhé :mình xóa cột mã số thì cột số lượng nhảy lung tung đâu kiểm tra được chứ , và mình bôi đen 2 cột như bạn hướng dẫn thì có Trường hợp nữa là cột số lượng trắng một ô thì sao ?

 

[Po_Pikachu]

Code vậy được không! Code lấy theo cột B.

Sub xoadongtrong() a = Range("B6000").End(xlUp).Row For i = a To 2 Step -1     If Cells(i, 2) = "" Then     Rows(i).Delete     End If Next End Sub

 

[cadafi]

thank bạn .Ý Mình muốn xóa cả dòng đó mà VD nhé :mình xóa cột mã số thì cột số lượng nhảy lung tung đâu kiểm tra được chứ ,

Với cách bên dưới của mình là xóa cả dòng đó bạn!

và mình bôi đen 2 cột như bạn hướng dẫn thì có Trường hợp nữa là cột số lượng trắng một ô thì sao ?

Cái này là vấn đề khác. Trong file của bạn đâu có trường hợp này! Giải quyết trường hợp này thì bạn xem bài tại đây! GPE có rất nhiều bài nói về vấn đề này.

http://www.giaiphapexcel.com/forum/showthread.php?t=10647&page=2
http://www.google.com.vn/custom?dom...a+dòng+trống&sitesearch=www.giaiphapexcel.com

 

[cadafi]

Code vậy được không! Code lấy theo cột B.

Sub xoadongtrong()
a = Range("B6000").End(xlUp).Row
For i = a To 2 Step -1
    If Cells(i, 2) = "" Then
    Rows(i).Delete
    End If
Next
End Sub

Không cần dùng for..next đâu bạn, cái này nhanh hơn:

Sub xoadongtrong()
[B:B].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Ps: học lóm được của anh ndu.

 

[doanhoanghai]

giúp mình với !

mình muốn xóa tất cả các dòng trắng cột mã thôi nhưng cột số lượng cũng phải đi theo chứ , chẳng may cột số lượng = 0 thì sai hết cả à !

 

[Po_Pikachu]

thank bạn .Ý Mình muốn xóa cả dòng đó mà VD nhé :mình xóa cột mã số thì cột số lượng nhảy lung tung đâu kiểm tra được chứ , và mình bôi đen 2 cột như bạn hướng dẫn thì có Trường hợp nữa là cột số lượng trắng một ô thì sao ?

Nếu bạn xóa mất cột Mã số thì lấy gì để chọn đây! Nếu không thì bạn xem code trên và sữa lại như sau là được!

Sub xoadongtrong()  a = Range("A6000").End(xlUp).Row  For i = a To 2 Step -1      If Cells(i, 1) = "" Then      Rows(i).Delete      End If  Next  End Sub

Hoặc theo code của bác Ca_dafi là:

Sub xoadongtrong()  [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub

 

[doanhoanghai]

Thank !!!

Cảm ơn tất cả mọi người nhé !