Tìm lọc và xóa hàng có điều kiện

thanhpham100988 · 2/12/16

Mong các bạn giúp đỡ
Mình có file excel, cần xóa các hàng trùng lặp có điều kiện. Giả sử như thế này:
.hangtrai {abc}
.hangtrai a
.hangtrai a {abcd}
.hangtrai ul {ghsk}
.hangphai
.hangphai {cde}
Mình muốn xóa dòng như sau:
Nếu hàng trên có các ký tự trước dấu {} giống hàng dưới, xóa cả hai dòng này.
trong ví dụ trên, mình muốn xóa các dòng:
.hangtrai a
.hangtrai a {abcd}
.hangphai
.hangphai {cde}
Mong các bạn giúp đỡ. Mình xin cảm ơn nhiều.

thinhvd · 2/12/16

thanhpham100988 nói:
Mong các bạn giúp đỡ
Mình có file excel, cần xóa các hàng trùng lặp có điều kiện. Giả sử như thế này:
.hangtrai {abc}
.hangtrai a
.hangtrai a {abcd}
.hangtrai ul {ghsk}
.hangphai
.hangphai {cde}
Mình muốn xóa dòng như sau:
Nếu hàng trên có các ký tự trước dấu {} giống hàng dưới, xóa cả hai dòng này.
trong ví dụ trên, mình muốn xóa các dòng:
.hangtrai a
.hangtrai a {abcd}
.hangphai
.hangphai {cde}
Mong các bạn giúp đỡ. Mình xin cảm ơn nhiều.

Phần này thì chỉ có thể là Viết VBA nhưng code sẽ khá phức tạp. Nếu dữ liệu ít thì nên xóa bằng tay thôi

thanhpham100988 · 2/12/16

thinhvd nói:
Phần này thì chỉ có thể là Viết VBA nhưng code sẽ khá phức tạp. Nếu dữ liệu ít thì nên xóa bằng tay thôi

Dữ liệu khá lớn bác ạ. Em biết là phức tạp nên mới phải nhờ các pro

thinhvd · 2/12/16

thanhpham100988 nói:
Dữ liệu khá lớn bác ạ. Em biết là phức tạp nên mới phải nhờ các pro

Nếu khá lớn thì lại phải dùng mẹo. Phối hợp giữa Conditional Formating và VBA thì mới không chậm được giữ liệu. Phần này có 3 phương án cho bạn.
1. Đi học VBA
2. Thuê người viết code và tư vấn phương án xử lý
3. Chờ đợi

diemtc · 2/12/16

Mọi người cho mình hỏi. M có các dãy kí tự:
01.9723.T.4.1006473.T.800.461.00000.0817.13.000
01.9723.T.4.1006473.T.800.461.00000.0817.14.000
01.9723.T.4.1006473.T.800.462.00000.0817.13.000
m muốn tính tổng của dãy kí tự có số 13 thôi thì dùng hàm gì trong excel 2003

thinhvd · 2/12/16

diemtc nói:
Mọi người cho mình hỏi. M có các dãy kí tự:
01.9723.T.4.1006473.T.800.461.00000.0817.13.000
01.9723.T.4.1006473.T.800.461.00000.0817.14.000
01.9723.T.4.1006473.T.800.462.00000.0817.13.000
m muốn tính tổng của dãy kí tự có số 13 thôi thì dùng hàm gì trong excel 2003

có chữ T làm sao mà tính tổng được.

thanhpham100988 · 2/12/16

Ở đây có code VBA xóa dữ liệu trùng lặp. Các bạn hiểu tùy chỉnh giúp mình chút.

Public Sub DeleteDuplicateRows() ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' DeleteDuplicateRows ' This will delete duplicate records, based on the Active Column. That is, ' if the same value is found more than once in the Active Column, all but ' the first (lowest row number) will be deleted. ' ' To run the macro, select the entire column you wish to scan for ' duplicates, and run this procedure. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim R As Long Dim N As Long Dim V As Variant Dim Rng As Range On Error GoTo EndMacro Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Rng = Application.Intersect(ActiveSheet.UsedRange, _ ActiveSheet.Columns(ActiveCell.Column)) Application.StatusBar = "Processing Row: " & Format(Rng.Row, "#,##0") N = 0 For R = Rng.Rows.Count To 2 Step -1 If R Mod 500 = 0 Then Application.StatusBar = "Processing Row: " & Format(R, "#,##0") End If V = Rng.Cells(R, 1).Value ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Note that COUNTIF works oddly with a Variant that is equal to vbNullString. ' Rather than pass in the variant, you need to pass in vbNullString explicitly. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If V = vbNullString Then If Application.WorksheetFunction.CountIf(Rng.Columns(1), vbNullString) > 1 Then Rng.Rows(R).EntireRow.Delete N = N + 1 End If Else If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then Rng.Rows(R).EntireRow.Delete N = N + 1 End If End If Next R EndMacro: Application.StatusBar = False Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Duplicate Rows Deleted: " & CStr(N) End Sub In the following examples, suppose we have select cells A1:A10 before running the DeleteDuplicateRows macro:
	This illustrates the range before running DeleteDuplicateRows.
		This illustrates the range after running DeleteDuplicateRows.

[TBODY] [/TBODY]

Mình muốn xóa tất cả các dữ liệu trùng lặp, ko giữ lại hàng trùng lặp. Như trên, mình muốn xóa hết, cột A chỉ giữ lại hàng 10. Cảm ơn các bạn

thinhvd · 2/12/16

thanhpham100988 nói:
Ở đây có code VBA xóa dữ liệu trùng lặp. Các bạn hiểu tùy chỉnh giúp mình chút.

Public Sub DeleteDuplicateRows()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' DeleteDuplicateRows
' This will delete duplicate records, based on the Active Column. That is,
' if the same value is found more than once in the Active Column, all but
' the first (lowest row number) will be deleted.
'
' To run the macro, select the entire column you wish to scan for
' duplicates, and run this procedure.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim R As Long
Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set Rng = Application.Intersect(ActiveSheet.UsedRange, _
ActiveSheet.Columns(ActiveCell.Column))

Application.StatusBar = "Processing Row: " & Format(Rng.Row, "#,##0")

N = 0
For R = Rng.Rows.Count To 2 Step -1
If R Mod 500 = 0 Then
Application.StatusBar = "Processing Row: " & Format(R, "#,##0")
End If

V = Rng.Cells(R, 1).Value
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Note that COUNTIF works oddly with a Variant that is equal to vbNullString.
' Rather than pass in the variant, you need to pass in vbNullString explicitly.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If V = vbNullString Then
If Application.WorksheetFunction.CountIf(Rng.Columns(1), vbNullString) > 1 Then
Rng.Rows(R).EntireRow.Delete
N = N + 1
End If
Else
If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
Rng.Rows(R).EntireRow.Delete
N = N + 1
End If
End If
Next R

EndMacro:

Application.StatusBar = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "Duplicate Rows Deleted: " & CStr(N)

End Sub

In the following examples, suppose we have select cells A1:A10 before running the DeleteDuplicateRows macro:

This illustrates the range before running DeleteDuplicateRows.

This illustrates the range after running DeleteDuplicateRows.
[TBODY] [/TBODY]
Mình muốn xóa tất cả các dữ liệu trùng lặp, ko giữ lại hàng trùng lặp. Như trên, mình muốn xóa hết, cột A chỉ giữ lại hàng 10. Cảm ơn các bạn

Code này là lấy giá trị duy nhất rồi. Còn đây của bạn khác hơn nhiều

Trương Lan · 2/12/16

Lọc, xóa tay, cũng nhanh thôi,

thanhpham100988 · 2/12/16

thinhvd nói:
Code này là lấy giá trị duy nhất rồi. Còn đây của bạn khác hơn nhiều

Mình biết, nhưng mình có thể lọc giá trị trong {} sang cột B. Các giá trị trước dấu {} trong cột A. Vậy mình chỉ cần xóa hết các mảng trùng lặp trong cột A là được. Bạn giúp mình tùy chỉnh code chút được ko?

thinhvd · 2/12/16

thanhpham100988 nói:
Mình biết, nhưng mình có thể lọc giá trị trong {} sang cột B. Các giá trị trước dấu {} trong cột A. Vậy mình chỉ cần xóa hết các mảng trùng lặp trong cột A là được. Bạn giúp mình tùy chỉnh code chút được ko?

Thế thì dùng luôn chức năng Remove Duplicate của Excel cho nhanh. Vì bạn đã tách cột được rồi mà

thanhpham100988 · 2/12/16

thinhvd nói:
Thế thì dùng luôn chức năng Remove Duplicate của Excel cho nhanh. Vì bạn đã tách cột được rồi mà

Cái này ko được. Các giá trị trong {} là khác nhau. Hơn nữa, chức năng Remove Duplicate là tìm kiếm các giá trị giống nhau cho các hàng, xóa nhưng vẫn giữ lại 1 giá trị. Mình muốn là xóa tất cả các hàng giống nhau cơ, ko giữ lại hàng nào cả

thinhvd · 2/12/16

thanhpham100988 nói:
Cái này ko được. Các giá trị trong {} là khác nhau. Hơn nữa, chức năng Remove Duplicate là tìm kiếm các giá trị giống nhau cho các hàng, xóa nhưng vẫn giữ lại 1 giá trị. Mình muốn là xóa tất cả các hàng giống nhau cơ, ko giữ lại hàng nào cả

Bạn tham khảo code này nhé

PHP:

Sub DeleteDuplicate()
Dim i As Long
Dim j As Long
Dim ws As Worksheet
Dim a() As String
Dim d As Long
Set ws = ThisWorkbook.Sheets("sheet1")
For i = 1 To ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    If Application.WorksheetFunction.CountIf(ws.Range(Cells(1, 1), Cells(ws.Range("A" & ws.Rows.Count).End(xlUp).Row, 1)), ws.Cells(i, 1)) > 1 Then
       d = d + 1
       ReDim Preserve a(d)
        a(d) = ws.Cells(i, 1).Address
    End If
Next i
For j = 1 To d
    ws.Range(a(j)).EntireRow.Delete
Next j
End Sub

diemtc · 12/12/16

801 462	6001	100
	6002	100
	6003	100
802 462	6001	100
	6002	100
	6003	100
803 461	6001	100

[TBODY] [/TBODY]

mọi người cho mình hỏi, mình muốn tính tổng của 6001 của dòng 462 của cả 801 và 802 thì phải làm thế nào,mình ko rành về excel lam.Mong mọi người giúp đỡ.Thanhks

thinhvd · 12/12/16

diemtc nói:
801 462 6001 100
6002 100
6003 100
802 462 6001 100
6002 100
6003 100
803 461 6001 100
[TBODY] [/TBODY]
mọi người cho mình hỏi, mình muốn tính tổng của 6001 của dòng 462 của cả 801 và 802 thì phải làm thế nào,mình ko rành về excel lam.Mong mọi người giúp đỡ.Thanhks

Gửi bạn file trả lời trong tệp đính kèm nhé.
công thức ở ô màu vàng như sau: =SUM(IF(((LEFT(A1:A7,3)="801")+(LEFT(A1:A7,3)="802"))*(RIGHT(A1:A7,3)="462")*(B1:B7=6001),C1:C7,0))
Lưu ý cái này dùng mảng nên phải dùng Ctrl Shift Enter

diemtc · 12/12/16

thinhvd nói:
Gửi bạn file trả lời trong tệp đính kèm nhé.
công thức ở ô màu vàng như sau: =SUM(IF(((LEFT(A1:A7,3)="801")+(LEFT(A1:A7,3)="802"))*(RIGHT(A1:A7,3)="462")*(B1:B7=6001),C1:C7,0))
Lưu ý cái này dùng mảng nên phải dùng Ctrl Shift Enter

cảm ơn bạn.nhưng mà có thể ko dùng cong thuc tính trong mảng dc ko bạn

mrtoanzaizai · 12/12/16

thinhvd nói:
Gửi bạn file trả lời trong tệp đính kèm nhé.
công thức ở ô màu vàng như sau: =SUM(IF(((LEFT(A1:A7,3)="801")+(LEFT(A1:A7,3)="802"))*(RIGHT(A1:A7,3)="462")*(B1:B7=6001),C1:C7,0))
Lưu ý cái này dùng mảng nên phải dùng Ctrl Shift Enter

Thanks :v Bây giờ mới biết tới true + true đó pro ạ

thinhvd · 12/12/16

mrtoanzaizai nói:
Thanks :v Bây giờ mới biết tới true + true đó pro ạ

Thế thì like nhiệt tình vào khi biết kiến thức mới

thinhvd · 12/12/16

diemtc nói:
cảm ơn bạn.nhưng mà có thể ko dùng cong thuc tính trong mảng dc ko bạn

không dùng mảng thì dùng sumifs rất phức tạp. Công thức còn khủng bố và dễ nhầm lẫn hơn nhiều

mrtoanzaizai · 12/12/16

thinhvd nói:
Thế thì like nhiệt tình vào khi biết kiến thức mới

Tôi like cho ông cho tỉ lệ like/cmt cao vót nhé !

Tìm lọc và xóa hàng có điều kiện

thanhpham100988

Guest

thinhvd

Cao cấp

thanhpham100988

Guest

thinhvd

Cao cấp

diemtc

Guest

thinhvd

Cao cấp

thanhpham100988

Guest

thinhvd

Cao cấp

Trương Lan

Thành viên Cố vấn - Webketoan Mentors

thanhpham100988

Guest

thinhvd

Cao cấp

thanhpham100988

Guest

thinhvd

Cao cấp

diemtc

Guest

thinhvd

Cao cấp

Đính kèm

diemtc

Guest

mrtoanzaizai

Trung cấp

thinhvd

Cao cấp

thinhvd

Cao cấp

mrtoanzaizai

Trung cấp

Similar threads

Xem nhiều

Liên kết

Chia sẻ trang