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

T

thanhpham100988

Sơ cấp
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.
 
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.
Nhấn để mở rộng...
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 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 :D
Nhấn để mở rộng...
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
 
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
 
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
Nhấn để mở rộng...
có chữ T làm sao mà tính tổng được.
 
Ở đâ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:
DelDupB.gif
This illustrates the range before running DeleteDuplicateRows.
DelDupA.gif
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
 
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:
DelDupB.gif
This illustrates the range before running DeleteDuplicateRows.
DelDupA.gif
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
Nhấn để mở rộng...
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
 
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
Nhấn để mở rộng...
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?
 
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?
Nhấn để mở rộng...
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à
 
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à
Nhấn để mở rộng...
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ả
 
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ả
Nhấn để mở rộng...
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
 
801 462 6001 100
6002100
6003100
802 4626001100
6002100
6003100
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
 
Sửa lần cuối:
diemtc nói:
801 462 6001 100
6002100
6003100
802 4626001100
6002100
6003100
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
Nhấn để mở rộng...
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
 

Đính kèm

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
Nhấn để mở rộng...
cảm ơn bạn.nhưng mà có thể ko dùng cong thuc tính trong mảng dc ko bạn
 
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
Nhấn để mở rộng...
Thanks :v Bây giờ mới biết tới true + true đó pro ạ :)
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Back
Top