Giúp em tìm những mã sách giống nhau, còn lại những mã sách còn thiếu...

[maket116]

Em làm việc trong thư viện trường , bây giờ trường yêu cầu thống kê xem thư viện còn bao nhiêu sách . tổng số sách của trường được tính theo mã vạch và khoảng hơn 18.000 quyển , em đã có tất cả mã vạch của các quyển đang còn trong thư viện . Bây giờ em nhập 1 bảng Excel gồm 1 Sheet bao gồm toàn bộ số mã vạch của các quyển còn lại đó và mã vạch cơ sở ( mã vạch chuẩn của tất cả các quyển sách ban đầu của thư viện đã giao ) , có nghĩa là 1 bảng từ A1--> DU18230 , trong này có khoảng hơn 18000 mã vạch giống nhau . Các bác có cách nào giúp em để tìm những mã vạch giống nhau rồi chuyển nó về 0 , còn lại chỉ là mã vạch của những quyển đang thiếu không ? Hướng dẫn cụ thể hộ em được chứ ? Cảm ơn các bác nhiều ..

 

[PhanTuHuong]

Thử gửi file mẫu lên, con macro chắc là làm ngon đấy.

 

[Mr Okebab]

Hoặc dùng công thức cũng giải quyết được. Bạn up file đi.

 

[maket116]

nó dài lắm các bác ạ , em chưa tìm đc host để bung lên . Các bác hướng dẫn em phương pháp đi . Ví dụ như thế này nhá : các bác có 1 khung 10x10 , trong khung đó có các chữ a1->a55 nhưng sắp xếp ko thứ tự , chỗ có 2 cái giống nhau từ a1 đến a50 và từ a51 đến a55 là cô đơn lẻ bóng , bây giờ các bác tìm cách nào đó để tự tìm các số từ a1 đến a50 , những cái nào giống nhau tự chúng nó biến thành số 0 , còn lại những cái nào "đơn côi lẻ bóng" thì đứng yên đó em vào điểm danh . nôm na là như thế , các bác hộ em với .........

 

[Đào Việt Cường]

Dear maket116,
--------------
Có thể bạn nói "bóng cái bẩy" quá thành ra mọi người không hiểu được.
Có phải bạn muốn lấy ra một danh sách duy nhất với các đầu sách (ký hiệu bằng mã - bộ mã mà bạn gọi là "bộ mã cơ sở"?, thực ra mã vạch sẽ dựa vào bộ mã này) không trùng lặp?
Theo mình trên Excel có rất nhiều cách để làm việc này, nếu chỉ làm 1 lần (không có tính lặp lại hay thực hiện lần sau) thì bạn nên sử dụng các chức năng, công cụ có sẵn của Excel.
Bạn sử dụng các công cụ cơ bản sau:
- Find (All); Replace (All)
- Sort
- Filter: Auto Filter; Advanced Filter
Các hàm:
- COUNTIF()
- SUMPRODUCT()
- VLOOKUP()
Tự tìm hiểu về công cụ và các hàm này, kiến thức Excel của bạn sẽ tăng dần lên!
Để cho nhanh, bạn có thể gửi file lên (Ấn vào nút "Đổi sang khung lớn", ấn nút "Tải File từ máy" bên dưới) hoặc gửi cho Mod điều hành nhờ hỗ trợ!

 

[Son2006]

Định nhờ mọi người làm hết hay sao mà phải tìm hótể up cả file lớn lên? Chỉ cần trích 1 đoạn thôi là đủ

 

[nvson]

nó dài lắm các bác ạ , em chưa tìm đc host để bung lên . Các bác hướng dẫn em phương pháp đi . Ví dụ như thế này nhá : các bác có 1 khung 10x10 , trong khung đó có các chữ a1->a55 nhưng sắp xếp ko thứ tự , chỗ có 2 cái giống nhau từ a1 đến a50 và từ a51 đến a55 là cô đơn lẻ bóng , bây giờ các bác tìm cách nào đó để tự tìm các số từ a1 đến a50 , những cái nào giống nhau tự chúng nó biến thành số 0 , còn lại những cái nào "đơn côi lẻ bóng" thì đứng yên đó em vào điểm danh . nôm na là như thế , các bác hộ em với .........

Bạn thử sử dụng code sau xem sao:

Public Sub Loai_Trungnhau()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
'
Dim rngData As Range
Set rngData = Selection
Dim i As Long, j As Long, k As Long, m As Long, n As Long
For i = 1 To rngData.Columns.Count
    For j = 1 To rngData.Rows.Count
        For k = j + 1 To rngData.Rows.Count
            If rngData.Cells(k, i) = rngData.Cells(j, i) Then rngData.Cells(k, i).Clear
        Next k
        For m = i + 1 To rngData.Columns.Count
            For n = 1 To rngData.Rows.Count
                If rngData.Cells(n, m) = rngData.Cells(j, i) Then rngData.Cells(n, m).Clear
            Next n
        Next m
    Next j
Next i
'
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Cách sử dụng:
Vào VBA, Insert Module, rồi thêm đoạn code trên
Trở về Excel, chọn vùng chứa các dữ liệu trùng.
Nhấn Alt+F8, chạy Macro trên

 

[tsf]

Không biết hàm hiết gì hết, thì dùng consolidation gom lại 1 phát.