Giúp đỡ-Trích dữ liệu trùng nhau

[phonghuyenao]

Xin chào mọi người. E có file sau. Em muốn trích các ô giống nhau liên tiếp thì chỉ hiện 1 cái thôi rồi nó hiện tiếp cái tiếp theo mà không bị ô trống như hàm e làm sẵn. hoặc mọi người có hàm trích dữ liệu có ô trống xem giữa cho gần nhau lại ạ. Mọi người đừng dùng filter mặc định vì e dùng rồi làm dữ liệu của các dòng nhảy lung tung ạ
Em xin cảm ơn

 

[Hai Lúa Miền Tây]

Xin chào mọi người. E có file sau. Em muốn trích các ô giống nhau liên tiếp thì chỉ hiện 1 cái thôi rồi nó hiện tiếp cái tiếp theo mà không bị ô trống như hàm e làm sẵn. hoặc mọi người có hàm trích dữ liệu có ô trống xem giữa cho gần nhau lại ạ. Mọi người đừng dùng filter mặc định vì e dùng rồi làm dữ liệu của các dòng nhảy lung tung ạ
Em xin cảm ơn

Không dùng filter hay là advanced filter bạn?

 

[Phan Thế Hiệp]

Xin chào mọi người. E có file sau. Em muốn trích các ô giống nhau liên tiếp thì chỉ hiện 1 cái thôi rồi nó hiện tiếp cái tiếp theo mà không bị ô trống như hàm e làm sẵn. hoặc mọi người có hàm trích dữ liệu có ô trống xem giữa cho gần nhau lại ạ. Mọi người đừng dùng filter mặc định vì e dùng rồi làm dữ liệu của các dòng nhảy lung tung ạ
Em xin cảm ơn

Thử:

W3=IFERROR(T(INDEX($U$3:$U$500,MATCH(,INDEX(COUNTIF(W$2:W2,$U$3:$U$500),),))),"")

Enter, fill xuống.

Thân

 

[snow25]

Xin chào mọi người. E có file sau. Em muốn trích các ô giống nhau liên tiếp thì chỉ hiện 1 cái thôi rồi nó hiện tiếp cái tiếp theo mà không bị ô trống như hàm e làm sẵn. hoặc mọi người có hàm trích dữ liệu có ô trống xem giữa cho gần nhau lại ạ. Mọi người đừng dùng filter mặc định vì e dùng rồi làm dữ liệu của các dòng nhảy lung tung ạ
Em xin cảm ơn

Dùng hàm tự tạo nhé.Kết thúc bằng hàm mảng.

Function loaitrung(ByVal mang As Range) As Variant
         Dim arr, i As Long, a As Long, arr1
         arr = mang.Value
         ReDim arr1(1 To UBound(arr, 1), 1 To 1)
         arr1(1, 1) = arr(1, 1): a = 1
         For i = 2 To UBound(arr, 1)
             If UCase(arr(i, 1)) <> UCase(arr(i - 1, 1)) And arr(i, 1) <> "CORN" Then
                a = a + 1
                arr1(a, 1) = arr(i, 1)
              End If
         Next i
         loaitrung = arr1
 End Function

=loaitrung(U3:U258)

Bài đã được tự động gộp: 14/2/19

Thử:

W3=IFERROR(T(INDEX($U$3:$U$500,MATCH(,INDEX(COUNTIF(W$2:W2,$U$3:$U$500),),))),"")

Enter, fill xuống.

Thân

Anh Hiệp ơi chắc là cái gì cũng dùng được hàm excel hết ấy nhỉ..

 

[dazkangel]

Thử:

W3=IFERROR(T(INDEX($U$3:$U$500,MATCH(,INDEX(COUNTIF(W$2:W2,$U$3:$U$500),),))),"")

Enter, fill xuống.

Thân

Em đang làm bên excel 365 insider có mấy hàm hay lắm ví dụ: Sort, filter ..
hi vọng sớm cập nhật cho mọi người

 

[chiendich]

Xin chào mọi người. E có file sau. Em muốn trích các ô giống nhau liên tiếp thì chỉ hiện 1 cái thôi rồi nó hiện tiếp cái tiếp theo mà không bị ô trống như hàm e làm sẵn. hoặc mọi người có hàm trích dữ liệu có ô trống xem giữa cho gần nhau lại ạ. Mọi người đừng dùng filter mặc định vì e dùng rồi làm dữ liệu của các dòng nhảy lung tung ạ
Em xin cảm ơn

Thử cái này xem sao?

 

[Phan Thế Hiệp]

Anh Hiệp ơi chắc là cái gì cũng dùng được hàm excel hết ấy nhỉ..

Đâu dám!

Tùy yêu cầu và tình trạng của dữ liệu, mới dám xen chân "múa may tí" cho vui nhà vui cửa!

Hàm, các công cụ, hoặc VBA phải nên ứng biến tùy nghi sử dụng cho phù hợp. Đâu dám đem dao mổ gà để "giết trâu" hay ngược lại!

Chúc anh em một ngày vui.

 

[HieuCD]

Thử:

W3=IFERROR(T(INDEX($U$3:$U$500,MATCH(,INDEX(COUNTIF(W$2:W2,$U$3:$U$500),),))),"")

Enter, fill xuống.

Thân

Hiểu nhầm rồi, không giống kết quả mong muốn.

Xin chào mọi người. E có file sau. Em muốn trích các ô giống nhau liên tiếp thì chỉ hiện 1 cái thôi rồi nó hiện tiếp cái tiếp theo mà không bị ô trống như hàm e làm sẵn. hoặc mọi người có hàm trích dữ liệu có ô trống xem giữa cho gần nhau lại ạ. Mọi người đừng dùng filter mặc định vì e dùng rồi làm dữ liệu của các dòng nhảy lung tung ạ
Em xin cảm ơn

=IFERROR(INDEX($U$1:$U$501,SMALL(IF(($U$2:$U$500<>$U$3:$U$501)*($U$3:$U$501<>"CORN")*($U$3:$U$501<>""),ROW($U$3:$U$501),""),ROWS($1:1)),),"")
Nhấn Ctrl+Shift+Enter

 

[phonghuyenao]

Không dùng filter hay là advanced filter bạn?

Filter thôi a ạ.

Bài đã được tự động gộp: 14/2/19

Thử:

W3=IFERROR(T(INDEX($U$3:$U$500,MATCH(,INDEX(COUNTIF(W$2:W2,$U$3:$U$500),),))),"")

Enter, fill xuống.

Thân

e thử rồi a. làm như vậy nó xóa hết các ô tận bên dưới lận a.
Ví dụ: hàng đầu là ban đầu hàng 2 là mong muốn của e a ạ
a a
a b
a c
b a
b c
c
c
a
a
c

Bài đã được tự động gộp: 14/2/19

Dùng hàm tự tạo nhé.Kết thúc bằng hàm mảng.

Function loaitrung(ByVal mang As Range) As Variant
         Dim arr, i As Long, a As Long, arr1
         arr = mang.Value
         ReDim arr1(1 To UBound(arr, 1), 1 To 1)
         arr1(1, 1) = arr(1, 1): a = 1
         For i = 2 To UBound(arr, 1)
             If UCase(arr(i, 1)) <> UCase(arr(i - 1, 1)) And arr(i, 1) <> "CORN" Then
                a = a + 1
                arr1(a, 1) = arr(i, 1)
              End If
         Next i
         loaitrung = arr1
End Function

=loaitrung(U3:U258)

Bài đã được tự động gộp: 14/2/19

Anh Hiệp ơi chắc là cái gì cũng dùng được hàm excel hết ấy nhỉ..

A ơi. e không biết làm theo cách của a. a chèn vô file e gửi được không a?

 

[phonghuyenao]

Thử cái này xem sao?

A ơi. cái của a cũng xóa hết tất cả cái trùng luôn a. e chỉ muốn xóa cái trùng gần nhau thôi a còn cái xa xa k vẫn giữ a ạ.
Ví dụ: hàng đầu là ban đầu - hàng 2 là mong muốn của e a ạ
a a
a b
a c
b a
b c
c
c
a
a
c

 

[phonghuyenao]

Hiểu nhầm rồi, không giống kết quả mong muốn.

=IFERROR(INDEX($U$1:$U$501,SMALL(IF(($U$2:$U$500<>$U$3:$U$501)*($U$3:$U$501<>"CORN")*($U$3:$U$501<>""),ROW($U$3:$U$501),""),ROWS($1:1)),),"")
Nhấn Ctrl+Shift+Enter

thanks a. đúng cái e cần luôn ạ. e cảm ơn ạ