Đối chiếu 2 bảng dữ liệu bằng ngôn ngữ VBA

Liên hệ QC
T

tdnhandno

Thành viên mới
Tham gia
10/3/16
Bài viết
47
Được thích
1
e muốn đối chiếu 2 bảng dữ liệu Số báo cáo (Sau đây e gọi là bảng A) và Số hệ thống (Sau đây e gọi là bảng B)

cách đối chiếu là:
- lấy từng dòng của bảng A đối chiếu xem có trong bảng B hay không và xuất kết quả là ở cột Kết quả. Nếu không có báo "không có"
- Ngược lại lấy từng dòng của Bảng B đối chiếu so với bảng A và xuất ra kết quả.
Mong mọi người giúp đỡ.
E cám ơn mọi người nhiều ạ
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Cái này chắc không cần VBA đâu, chỉ cần ifferror(vlookup(....),"Không có") là được
 
Upvote 0
tdnhandno đã viết:
e muốn đối chiếu 2 bảng dữ liệu Số báo cáo (Sau đây e gọi là bảng A) và Số hệ thống (Sau đây e gọi là bảng B)

cách đối chiếu là:
- lấy từng dòng của bảng A đối chiếu xem có trong bảng B hay không và xuất kết quả là ở cột Kết quả. Nếu không có báo "không có"
- Ngược lại lấy từng dòng của Bảng B đối chiếu so với bảng A và xuất ra kết quả.
Mong mọi người giúp đỡ.
E cám ơn mọi người nhiều ạ
Nhấp chuột vào đây để mở rộng...
Nếu đơn giản là dò "có hay không" thì CountIfs() cũng xong.
Nhưng nếu bảng A có 1 dòng cùng Ngày và Số tiền, Bảng B có hơn 1 dòng cùng Ngày và Số tiền đó thì sao?
 
Lần chỉnh sửa cuối:
Upvote 0
tdnhandno đã viết:
e muốn đối chiếu 2 bảng dữ liệu Số báo cáo (Sau đây e gọi là bảng A) và Số hệ thống (Sau đây e gọi là bảng B)

cách đối chiếu là:
- lấy từng dòng của bảng A đối chiếu xem có trong bảng B hay không và xuất kết quả là ở cột Kết quả. Nếu không có báo "không có"
- Ngược lại lấy từng dòng của Bảng B đối chiếu so với bảng A và xuất ra kết quả.
Mong mọi người giúp đỡ.
E cám ơn mọi người nhiều ạ
Nhấp chuột vào đây để mở rộng...
Bạn thử cái sub này nhé.
Mã: 
Sub doichieu()
    Dim arr, i As Long, dic As Object, lr As Long, lr1 As Long, arr1, dk As String, dks As String
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A5:C" & lr).Value2
        lr1 = .Range("I" & Rows.Count).End(xlUp).Row
        arr1 = .Range("I5:K" & lr1).Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B1"
            If Not dic.exists(dk) Then
               dic.Add dk, ""
            End If
        Next i
        For i = 1 To UBound(arr, 1)
            dks = arr1(i, 1) & "#" & arr1(i, 2) & "B1"
            dk = arr1(i, 1) & "#" & arr1(i, 2) & "B2"
            dic.Item(dk) = i
            If Not dic.exists(dks) Then
               arr1(i, 3) = "Khong co"
            End If
        Next i
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B2"
            If Not dic.exists(dk) Then
               arr(i, 3) = "khong co"
            End If
        Next i
        .Range("A5:C" & lr).Value = arr
        .Range("I5:K" & lr1).Value = arr1
    End With
End Sub
 
Upvote 0
hpkhuong đã viết:
Muốn chuyên nghiệp thì tự học rồi tự viết và nắm vững công nghệ. Chứ ai đời đi nhờ giúp...xong mai này nó hư hay cần thay đổi gì đó...thì sự chuyên nghiệp lại được đưa lên GPE hả bạn?

Ngộ nhỉ???
Nhấp chuột vào đây để mở rộng...
Chắc là bạn đó muốn xin code xong học theo code để viết vào bài của mình.Vì em thấy dữ liệu đưa lên vào cùng 1 sheets như thế này là file mẫu rồi.Chứ nếu mà file thực tế nó khác với dữ liệu nhiều nên không muốn dùng công thức.Hihi.Đây là ý kiến riêng em nhé.
 
Upvote 0
snow25 đã viết:
Chắc là bạn đó muốn xin code xong học theo code để viết vào bài của mình.Vì em thấy dữ liệu đưa lên vào cùng 1 sheets như thế này là file mẫu rồi.Chứ nếu mà file thực tế nó khác với dữ liệu nhiều nên không muốn dùng công thức.Hihi.Đây là ý kiến riêng em nhé.
Nhấp chuột vào đây để mở rộng...
e chỉ đang học về ngôn ngữ VBA và muốn hiểu thêm thôi ạ. Chứ ko phải là e đi lấy code này code kia về để sử dụng gì đâu. e cũng chạy được 1 chiều là bảng A so với bảng B, muốn ngược lại thì 2 chuyển qua Sheet khác. nên e muốn làm 1 sheet cho ngắn gọn. nên viết bài hỏi, và so sánh xem như thế nào thôi. Cám ơn mọi người đã góp ý
 
Upvote 0
tdnhandno đã viết:
e chỉ đang học về ngôn ngữ VBA và muốn hiểu thêm thôi ạ. Chứ ko phải là e đi lấy code này code kia về để sử dụng gì đâu. e cũng chạy được 1 chiều là bảng A so với bảng B, muốn ngược lại thì 2 chuyển qua Sheet khác. nên e muốn làm 1 sheet cho ngắn gọn. nên viết bài hỏi, và so sánh xem như thế nào thôi. Cám ơn mọi người đã góp ý
Nhấp chuột vào đây để mở rộng...
Vậy bạn xem code bài 4 đó.
 
Upvote 0
snow25 đã viết:
Bạn thử cái sub này nhé.
Mã: 
Sub doichieu()
    Dim arr, i As Long, dic As Object, lr As Long, lr1 As Long, arr1, dk As String, dks As String
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A5:C" & lr).Value2
        lr1 = .Range("I" & Rows.Count).End(xlUp).Row
        arr1 = .Range("I5:K" & lr1).Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B1"
            If Not dic.exists(dk) Then
               dic.Add dk, ""
            End If
        Next i
        For i = 1 To UBound(arr, 1)
            dks = arr1(i, 1) & "#" & arr1(i, 2) & "B1"
            dk = arr1(i, 1) & "#" & arr1(i, 2) & "B2"
            dic.Item(dk) = i
            If Not dic.exists(dks) Then
               arr1(i, 3) = "Khong co"
            End If
        Next i
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B2"
            If Not dic.exists(dk) Then
               arr(i, 3) = "khong co"
            End If
        Next i
        .Range("A5:C" & lr).Value = arr
        .Range("I5:K" & lr1).Value = arr1
    End With
End Sub
Nhấp chuột vào đây để mở rộng...

cám ơn a rất nhiều ạ. e đã làm được rồi. cám ơn a lần nữa ^_^
Bài đã được tự động gộp:

snow25 đã viết:
Vậy bạn xem code bài 4 đó.
Nhấp chuột vào đây để mở rộng...
dạ, e đã xem và thực hiện thành công rồi ạ.
 
Upvote 0
snow25 đã viết:
Bạn thử cái sub này nhé.
Mã: 
Sub doichieu()
    Dim arr, i As Long, dic As Object, lr As Long, lr1 As Long, arr1, dk As String, dks As String
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A5:C" & lr).Value2
        lr1 = .Range("I" & Rows.Count).End(xlUp).Row
        arr1 = .Range("I5:K" & lr1).Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B1"
            If Not dic.exists(dk) Then
               dic.Add dk, ""
            End If
        Next i
        For i = 1 To UBound(arr, 1)
            dks = arr1(i, 1) & "#" & arr1(i, 2) & "B1"
            dk = arr1(i, 1) & "#" & arr1(i, 2) & "B2"
            dic.Item(dk) = i
            If Not dic.exists(dks) Then
               arr1(i, 3) = "Khong co"
            End If
        Next i
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B2"
            If Not dic.exists(dk) Then
               arr(i, 3) = "khong co"
            End If
        Next i
        .Range("A5:C" & lr).Value = arr
        .Range("I5:K" & lr1).Value = arr1
    End With
End Sub
Nhấp chuột vào đây để mở rộng...

nếu mà 2 bảng dữ liệu A và B ko cần bằng, tức là 1 trong 2 bảng có nhiều hơn số dòng. thì mình làm như thế nào hả a. e đã test thử trường hợp ko cân bằng. Nó báo lỗi " Run-time error 9..."
 
Upvote 0
tdnhandno đã viết:
nếu mà 2 bảng dữ liệu A và B ko cần bằng, tức là 1 trong 2 bảng có nhiều hơn số dòng. thì mình làm như thế nào hả a. e đã test thử trường hợp ko cân bằng. Nó báo lỗi " Run-time error 9..."
Nhấp chuột vào đây để mở rộng...
Bạn sửa lại nhé.Mình bị lỗi 1 chỗ.
Mã: 
Sub doichieu()
    Dim arr, i As Long, dic As Object, lr As Long, lr1 As Long, arr1, dk As String, dks As String
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A5:C" & lr).Value2
        lr1 = .Range("I" & Rows.Count).End(xlUp).Row
        arr1 = .Range("I5:K" & lr1).Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B1"
            If Not dic.exists(dk) Then
               dic.Add dk, ""
            End If
        Next i
        For i = 1 To UBound(arr1, 1)
            dks = arr1(i, 1) & "#" & arr1(i, 2) & "B1"
            dk = arr1(i, 1) & "#" & arr1(i, 2) & "B2"
            dic.Item(dk) = i
            If Not dic.exists(dks) Then
               arr1(i, 3) = "Khong co"
            End If
        Next i
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B2"
            If Not dic.exists(dk) Then
               arr(i, 3) = "khong co"
            End If
        Next i
        .Range("A5:C" & lr).Value = arr
        .Range("I5:K" & lr1).Value = arr1
    End With
End Sub
 
Upvote 0
snow25 đã viết:
Bạn sửa lại nhé.Mình bị lỗi 1 chỗ.
Mã: 
Sub doichieu()
    Dim arr, i As Long, dic As Object, lr As Long, lr1 As Long, arr1, dk As String, dks As String
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A5:C" & lr).Value2
        lr1 = .Range("I" & Rows.Count).End(xlUp).Row
        arr1 = .Range("I5:K" & lr1).Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B1"
            If Not dic.exists(dk) Then
               dic.Add dk, ""
            End If
        Next i
        For i = 1 To UBound(arr1, 1)
            dks = arr1(i, 1) & "#" & arr1(i, 2) & "B1"
            dk = arr1(i, 1) & "#" & arr1(i, 2) & "B2"
            dic.Item(dk) = i
            If Not dic.exists(dks) Then
               arr1(i, 3) = "Khong co"
            End If
        Next i
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B2"
            If Not dic.exists(dk) Then
               arr(i, 3) = "khong co"
            End If
        Next i
        .Range("A5:C" & lr).Value = arr
        .Range("I5:K" & lr1).Value = arr1
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ, e cám ơn a rất nhiều ạ. e đã test thử chưa phát hiện ra lỗi j thêm hihi. Cám ơn a 1 lần nữa ạ ^_^
 
Upvote 0
snow25 đã viết:
Bạn sửa lại nhé.Mình bị lỗi 1 chỗ.
Mã: 
Sub doichieu()
    Dim arr, i As Long, dic As Object, lr As Long, lr1 As Long, arr1, dk As String, dks As String
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A5:C" & lr).Value2
        lr1 = .Range("I" & Rows.Count).End(xlUp).Row
        arr1 = .Range("I5:K" & lr1).Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B1"
            If Not dic.exists(dk) Then
               dic.Add dk, ""
            End If
        Next i
        For i = 1 To UBound(arr1, 1)
            dks = arr1(i, 1) & "#" & arr1(i, 2) & "B1"
            dk = arr1(i, 1) & "#" & arr1(i, 2) & "B2"
            dic.Item(dk) = i
            If Not dic.exists(dks) Then
               arr1(i, 3) = "Khong co"
            End If
        Next i
        For i = 1 To UBound(arr)
            dk = arr(i, 1) & "#" & arr(i, 2) & "B2"
            If Not dic.exists(dk) Then
               arr(i, 3) = "khong co"
            End If
        Next i
        .Range("A5:C" & lr).Value = arr
        .Range("I5:K" & lr1).Value = arr1
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Nếu e muốn xuất hàng báo không có qua 1 sheet khác (gọi là sheet tổng hợp đi ạ), thì mình làm như thế nào ngoài cách Advanced Filter vậy hả a. tại làm cách Advanced nó không tự động, mà mỗi lần xuất phải làm thủ công lại 1 lần ạ
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

tramcannt
Các bác cho hỏi làm cách nào để thu nhỏ thanh công thức này với ạ. Em cảm ơn.
Trả lời
0
Đọc
9
tramcannt
tramcannt
S
  • Question Question
Điều chỉnh kích thước dòng tự động theo trang in
Trả lời
5
Đọc
103
HUONGHCKT
H
A
Tạo vé Loto bằng Excel
2
Trả lời
20
Đọc
23K
Tuấn tata
Tuấn tata
T
File quản lý thiết bị trong trường học!
Trả lời
3
Đọc
72
SA_DQ
SA_DQ
Nauduong
Cách chuyển định dạng từ PDF sang Image
Trả lời
9
Đọc
224
Châu Bá Thông
Châu Bá Thông
minhduongct
  • Question Question
Viết code VBA thay cho dùng hàm vlookup
Trả lời
6
Đọc
1K
VetMini
V
N
Thử viết code lập trình đa luồng bằng TwinBasic và khả năng ứng dụng vào COM add-in chạy trong Excel
    • Thích
Trả lời
0
Đọc
90
nguyendang95
N
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
1
Đọc
49
tranhungdao12a3
T
Thanh271188
Tìm giá trị xuất hiện bất kì (không phải giá trị đầu, cuối) trong excel
    • Cười
Trả lời
4
Đọc
207
Duy Tùng 9x
Duy Tùng 9x
H
Xin viết dùng mã vba thay thế cho hàm vlookup
    • Thích
12 13 14
Trả lời
264
Đọc
79K
VetMini
V
SA_DQ
  • Question Question
[Bài tập VBA cho người rỗi rảnh] Hãy viết 1 macro tìm ra 3 số nguyên tố liên tiếp
2
Trả lời
35
Đọc
732
VetMini
V
P
Các Bác cho e hỏi làm thế nào để ẩn công thức trên GOOGLE SHEET với ạ?
2
Trả lời
22
Đọc
18K
yeudoi
yeudoi
T
Định dạng cột dữ liệu trong sql
Trả lời
5
Đọc
129
ptm0412
ptm0412
L
  • Question Question
[Hlep] Xóa ảnh theo tên và kích thước
Trả lời
8
Đọc
188
Luong24
L
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
0
Đọc
90
Xoainon3005
Xoainon3005
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
308
Đọc
22K
CheezeTube
CheezeTube
HeSanbi
  • Đã giải quyết
LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3 4
Trả lời
74
Đọc
10K
vn72259
V
H
Vì sao trong khi cộng và khi sum lại hiển thị sai
Trả lời
15
Đọc
57K
hieung99
hieung99
T
Nhờ hỗ trợ hàm SUMIF không phân biệt được các ký tự "0" trước một số trong chuỗi
Trả lời
3
Đọc
212
tan10ckn
T
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2 3
Trả lời
46
Đọc
14K
tuantran203
T
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom