GIúp code xóa các tên mặt hàng trùng nhau, chỉ chừa lại tên cho dòng trên cùng (1 người xem)

[Văn Toàn 1996]

Chào tất cả mọi người ! em cần 1 đoạn code để xóa các dòng trùng tên ( xuất hiện 2 lần trở lên ), chỉ xóa các dòng ở dưới ( chừa lại dòng trên cùng ) như ảnh mô tả bên dưới. Nhờ mọi người giúp code. em Xin chân thành cảm ơn ạ !

 

[BuiQuangThuan]

Dùng cột phụ đếm. Xong lọc rồi xóa toẹt cái là được mà

 

[VetMini]

Dùng cột phụ đếm. Xong lọc rồi xóa toẹt cái là được mà

Hổng được đâu. Làm vậy dài hơn một nốt nhạc.

 

[Phan Thế Hiệp]

Hổng được đâu. Làm vậy dài hơn một nốt nhạc.

Vui quá! Học lập trình cũng có phần về âm nhạc nữa.

Cho em thắc mắc: nốt nhạc đề cập đến là nốt nào?

 

[tle2003]

Chào bạn,
Code chỉ áp dụng sheet1, cột B , như hình của bạn đó

 

[Phuocam]

Chào tất cả mọi người ! em cần 1 đoạn code để xóa các dòng trùng tên ( xuất hiện 2 lần trở lên ), chỉ xóa các dòng ở dưới ( chừa lại dòng trên cùng ) như ảnh mô tả bên dưới. Nhờ mọi người giúp code. em Xin chân thành cảm ơn ạ !

Trường hợp dữ liệu như trong hình thì kết quả là gì?

.

 

[VetMini]

Trường hợp dữ liệu như trong hình thì kết quả là gì

Bạn thử test 1 tháng chưa?
Mà không sao, có code rồi bạn ạ. Nên chờ một nốt nhạc thì tốt hơn.

 

[tle2003]

Trường hợp dữ liệu như trong hình thì kết quả là gì?

.View attachment 300912

Kết quả không đúng với vấn đề của chủ thớt chứ gì ta (?)

 

[Phuocam]

Kết quả không đúng với vấn đề của chủ thớt chứ gì ta (?)

Xem lại bài #1 vả bài #5 của chủ đề này rồi sẽ hiểu.(Cột số thứ tự)

Giúp công thức cộng tổng cột SỐ lượng theo cột STT nếu trùng lấy dòng nằm trên

Chào tất cả mọi người GPE ! Mình cần công thức, hoặc Hàm VBA để cộng tổng cột số lượng theo cột STT, nếu trùng STT thì lấy dòng trên cùng ( dòng tô màu đỏ ) . Xin cảm ơn

giaiphapexcel.com

 

[Phan Thế Hiệp]

Dùng cột phụ đếm. Xong lọc rồi xóa toẹt cái là được mà

Thấy tiêu đề thớt năn nỉ "giúp" nghe tha thiết quá, tội! cũng ngứa tay tính xáng vài cái... công thức, nhưng ngó kỹ lại thấy đề "giúp code" trong mục "Lập trình với Excel" nên thôi vậy.

Thấy em dùng cột phụ tức phải dùng công thức, làm anh bị liệu theo.

 

[VetMini]

Thấy tiêu đề thớt năn nỉ "giúp" nghe tha thiết quá, tội! ...

Bài #1 bao giờ cũng vậy. Tại bạn chưa có profile của chủ thớt thôi.
Mà cũng lạ, hôm nay vẫn chưa thấy trả lời. Chắc cái máy đếm nhịp (metronome) bị hư.

 

[Phan Thế Hiệp]

Tại bạn chưa có profile của chủ thớt thôi

Dạ, chắc em phải chờ 'cúng dường' mới được cái profile 'quý quá' đó.

Anh biết rồi mà! Cái tật em hay thương bậy, xáng bậy mấy người thấy 'tội', nên mới gọi là 'Phan'(g) Thế vậy mà.

 

[SA_DQ]

Dùng cột phụ đếm. Xong lọc rồi xóa toẹt cái là được mà

Phải in ra giấy mới TOẸT được nha bạn;
Trên trang tính muốn xóa phải áp dụng hành vi khác, như chuột, búa, đục, chàng,. . . .

 

[Văn Toàn 1996]

Chào bạn,
Code chỉ áp dụng sheet1, cột B , như hình của bạn đó

Góp Vui Tí

Sub ThichMinhTUE()
    Dim rng As Range
    Dim cell As Range
    Dim name As String
    Set rng = Range("A1:A100")
    For Each cell In rng
        name = cell.Value
        If Application.WorksheetFunction.CountIf(rng, name) > 1 Then
            If rng.Find(name).Address <> cell.Address Then
                cell.ClearContents
            End If
        End If
    Next cell
End Sub

 

[tle2003]

Góp Vui Tí

Sub ThichMinhTUE()
    Dim rng As Range
    Dim cell As Range
    Dim name As String
    Set rng = Range("A1:A100")
    For Each cell In rng
        name = cell.Value
        If Application.WorksheetFunction.CountIf(rng, name) > 1 Then
            If rng.Find(name).Address <> cell.Address Then
                cell.ClearContents
            End If
        End If
    Next cell
End Sub

Bạn đưa ra câu hỏi , rồi có thể giải quyết được là tốt, chúc mừng bạn nhé.
Có điều hình của bài# 1, vấn đề ở cột B, mà code của bạn lại giải quyết vấn đề nằm cột A (và giới hạn A1:A100)

 

[VetMini]

Sáng nay mất hết trên 1 giờ soạn đĩa trái cây cúng thần đoán mò của mình còn linh hiển (phải chi đoán đề được như vậy thì mình cũng ráng bán nhà liều một chuyến):

Nhắc lại bài #12" có đoán rằng cái máy đếm nhịp bị hư.

Chắc chắn cái máy đếm nhịp (metronome) bị hư rồi. Thớt không thể đem nó ra đo 1 nốt nhạc được nữa.