tigertiger
Coming back ...
- Tham gia
- 25/1/07
- Bài viết
- 1,938
- Được thích
- 1,905
Ngắn gọn hơn chỉ cần:
Trích:
=A1*NOT(COUNTIF($B:$B,A1)>0)
thế thì A1 có giá trị =0 thì không dùng được,
Ngắn gọn hơn chỉ cần:
Trích:
=A1*NOT(COUNTIF($B:$B,A1)>0)
Sorry! Mình nhầm cú pháp. Hôm qua vào thấy câu hỏi đơn giản nên reply luôn không text trên Excel nên bị nhầm.Hình như cái này ngược rồi! Phải như thế này mới được:
Mà làm sao làm được Countif(A1,$B$1:$B) nhỉ?Mã:=if(Countif($B:$B,A1)>0,"",A1)
Trong các cột 'C' & 'D' ta có khoảng 100.000 số khác nhau;Chắc cái này trong E2007 rồi, phải tránh thôi, vì mình chưa có xài qua!
Option Explicit
Sub XoaTrung()
Dim lRow As Long, Ww As Long
Dim dRng As Range
Columns("A:A").Select: Selection.Insert Shift:=xlToRight
[A1] = "TT": lRow = Cells(Rows.Count, "B").End(xlUp).Row
For Ww = 2 To lRow
Cells(Ww, "A") = Ww - 1
Next Ww
Sort2Column [H2], [a2]
For Ww = 3 To lRow
With Cells(Ww, "H")
If .Value = .Offset(-1) And .Offset(, 1) = .Offset(-1, 1) _
And .Offset(, -5) = .Offset(-1, -5) Then
If dRng Is Nothing Then
Set dRng = .Offset()
Else
Set dRng = Union(dRng, .Offset())
End If
End If
End With
Next Ww
'MsgBox dRng.Address'
dRng.EntireRow.Select: Selection.Delete
Sort2Column [a2], [H2]
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
End Sub
[B]Sub Sort2Column(Rng1 As Range, rng2 As Range)[/B]
Columns("A:N").Select
Selection.Sort Key1:=Rng1, Order1:=xlAscending, Key2:=rng2 _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1
[B]End Sub[/B]
Sub AdvancedFilter()
cc = Cells(1, 1).End(xlToRight).Column
rdt = Cells(1, 1).End(xlDown).Row
Set data = Range(Cells(1, 1), Cells(rdt, cc))
Range(Cells(1, cc + 2), Cells(Cells.Rows.Count, Cells.Columns.Count)).ClearContents
data.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(1, cc + 2), Unique:=True
rfl = Cells(1, cc + 2).End(xlDown).Row
Range(Cells(1, cc + 2), Cells(rdt, cc * 2 + 1)).Copy Cells(1, 1)
Range(Cells(1, cc + 2), Cells(rdt, cc * 2 + 1)).ClearContents
Set data = Nothing
End Sub
Bạn hãy đến đây:trích lọc không trùng nhau trong một cột , cứu cứu !
Các bác, anh chị, các cao thủ giúp em. Em có một cột (3635 row)chứa các số điện thoại nhưng trong đó có những số trùng nhaum vậy làm cách nào để trích ra các số "không trùng nhau, các số trùng nhau thì lấy 1 lần thôi !
xin giúp em ! thanks!
trích lọc không trùng nhau trong một cột , cứu cứu !
Các bác, anh chị, các cao thủ giúp em. Em có một cột (3635 row)chứa các số điện thoại nhưng trong đó có những số trùng nhaum vậy làm cách nào để trích ra các số "không trùng nhau, các số trùng nhau thì lấy 1 lần thôi !
xin giúp em ! thanks!
Ví dụ dữ liệu là vùng $A$1:$M$24. Lọc bằng Advance Filter với các mục chọn:
+ Copy to another location
+ List range: $A$1:$M$24
+ Criteria range: bỏ trống
+ Copy to: $O$1
+ Unique records only
Nó sẽ lọc các dòng dữ liệu không trùng sang ô O1.