Cho tớ hỏi về cách lọc ra hai số giống nhau liên tiếp trong excel

  • Thread starter mipug
  • Ngày gửi
M

mipug

Guest
18/10/06
2
0
0
Ha Noi
Tớ đang đang làm tính doanh thu của các tháng... tuy nhiên trong giai đoán mò mẫm làm có một vấn đề như thế này.
VD:

A. HD003605
B. HD003605
C.HD003606
D.HD003606
E.HD003607
F.HD003608
(Hix tớ ko đc quyền đính kèm file nên phải gõ tạm VD ra như thế này :wall:)
Cả một trang excel của tớ dài lắm.. VD ngắn gọn như thế trc. Bây giờ có công thức nào để so sánh hai số liên tiếp -- dòng A và B giống nhau thì đúng (cùng là HD003605) còn đến dòng E và F khác nhau thì sai.... và làm thế nào lọc ra những dòng có số lệch nhau... Rất mong sự giúp đỡ của mọi người...:1luvu:
 
Khóa học Quản trị dòng tiền
C

cao manh son

Sơ cấp
25/10/05
34
0
8
TX HungYen
theo mình ban có thể thêm vào 1 cột phụ sau đó dùng công thức Sumproduct(--($A1$:A1=A1)),bạn sẽ được các giá trị 1,2,1,2,1,1....
sau đó mình lọc các giá trị 1
chúc bạn thành công
 
H

hoangdanh282vn

Trung cấp
31/3/07
75
6
0
TP.HCM
nếu tìm hai cell liên tiếp trùng nhau thì dùng hàm if là được rồi. ta sẽ dùng một cột phụ.giả sử vùng dữ liệu của bạn là A1:A10.tại cell B2 :
=if(a1=a2,1,0). bạn dùng autofillter để lọc ra những ô có trị là 1.
nếu dò tìm chính xác (kể cả in hoa) thì dùng hàm exact
=exact(a1,a2). lọc ra ô có trị là true
 
S

sweetdream

Guest
21/2/08
2
0
0
TPHCM
thì bạn quét khối hàng ngang dòng tiêu đề đó : vd la stt, mã hàng ... sau đó bấm vào chữ data rồi bấm tiếp vào chữ fiter sau do chon chữ autofiter sẽ thấy chỗ mã hàng hiện lên mũi tên, bấm vào mũi tên đó và chọn HD003605 là xong mà.
 
S

SA_DQ

Thành viên Cố vấn - Webketoan Mentors
29/6/05
567
99
28
66
HCM city
Thêm 1 tham khảo bằng VBA

(xem thêm theo file đính kèm.)
Option Explicit
Sub ToMauTrung()
On Error Resume Next
Dim lRow As Long, jZ As Long
Dim SoCot As Byte, SoMau As Byte, SDem As Byte
Dim MaHg As String, Rng As Range

Sheets("S1").Select: SoMau = 34
Application.ScreenUpdating = False
GPEFilter Range("B2"), Range("A2")
lRow = Range("B65432").End(xlUp).Row
For jZ = 2 To lRow
If jZ = 2 Then
MaHg = Cells(2, 2)
Else
If Cells(jZ, 2) = MaHg Then

If SoCot < 5 And SoMau <= 40 Then
SoCot = 1 + SoCot
ElseIf SoCot = 5 And SoMau < 40 Then
SoMau = 1 + SoMau
ElseIf SoCot = 5 And SoMau = 40 Then
SoCot = 1: SDem = 1 + SDem
SoMau = 34 + SDem
End If
Set Rng = Union(Cells(jZ - 1, 1), Cells(jZ, 1)).Resize(2, SoCot)
Rng.Interior.ColorIndex = SoMau
Else
MaHg = Cells(jZ, 2)
End If
End If
Next jZ
GPEFilter Range("A2"), Range("B2")
End Sub
Sub GPEFilter(Rng1 As Range, Rng2 As Range)
Columns("A:E").Select
'B2-A2 ; A2-B2
Selection.Sort Key1:=Rng1, Order1:=xlAscending, Key2:=Rng2 _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal

End Sub
Xanh.jpg
 

Đính kèm

  • Sa_DQ.rar
    12.3 KB · Lượt xem: 272

Xem nhiều

Webketoan Zalo OA