Chào các bạn.
Mình có một bài toán không thể tự mình giải được nên mình đưa lên đây để nhờ các bạn giúp đỡ mình.
Về yêu cầu của bài toán mình đã ghi rất rõ ở trong file excel đính kèm, các bạn xem rồi giúp mình nhé.
Cảm ơn các bạn nhiều
Sub SoSanh()
Dim Arr1, Arr2, Res
Dim iR1 As Long, iR2 As Long, jC1 As Long, jC2 As Long, Dem As Long
Arr1 = [B4:P6]
Arr2 = [R4:AB9]
ReDim Res(1 To UBound(Arr1, 1), 1 To UBound(Arr2, 1))
For iR1 = 1 To UBound(Arr1, 1)
For iR2 = 1 To UBound(Arr2, 1)
For jC1 = 1 To UBound(Arr1, 2)
For jC2 = 1 To UBound(Arr2, 2)
If Arr1(iR1, jC1) = Arr2(iR2, jC2) Then
Dem = Dem + 1
End If
Next
Next
Res(iR1, iR2) = Dem
Dem = 0
Next
Next
Range("AK4").Resize(UBound(Arr1, 1), UBound(Arr2, 1)) = Res
End Sub
Sub SoSanh()
Dim Arr1, Arr2, Res
Dim iR1 As Long, iR2 As Long, jC1 As Long, jC2 As Long, Dem As Long
Arr1 = [B4:P6]
Arr2 = [R4:AB9]
ReDim Res(1 To UBound(Arr1, 1), 1 To UBound(Arr2, 1))
For iR1 = 1 To UBound(Arr1, 1)
For iR2 = 1 To UBound(Arr2, 1)
For jC1 = 1 To UBound(Arr1, 2)
For jC2 = 1 To UBound(Arr2, 2)
If Arr1(iR1, jC1) = Arr2(iR2, jC2) Then
Dem = Dem + 1
End If
Next
Next
Res(iR1, iR2) = Dem
Dem = 0
Next
Next
Range("AK4").Resize(UBound(Arr1, 1), UBound(Arr2, 1)) = Res
End Sub
Híc, không phải "thấy chưa hay" hay "giúp mình tối ưu thêm nhé" cóc khô gì cả, chỉ là một bài toán thường có nhiều cách giải, thích kiểu nào thì chơi kiểu nấy Bài này mình thấy làm bằng công thức cũng đơn giản thôi, nếu viết code thì viết theo kiểu dùng công thức cũng là một cách viết
Mà đã "tối ưu" thì sao lại "giúp mình tối ưu thêm nhé" được nhỉ ?. Híc, ngộ
Thân
Mã:
Public Sub SanhSo()
Dim VungA, VungB, Mg, I, J, Wf
Set Wf = Application.WorksheetFunction
Set VungA = Range([B4], [B4].End(xlDown)).Resize(, 15)
Set VungB = Range([R4], [R4].End(xlDown)).Resize(, 11)
ReDim Mg(1 To VungA.Rows.Count, 1 To VungB.Rows.Count)
For I = 1 To VungA.Rows.Count
For J = 1 To VungB.Rows.Count
Mg(I, J) = Wf.SumProduct(Wf.CountIf(VungB.Rows(J), VungA.Rows(I)))
Next J
Next I
[AD10].Resize(VungA.Rows.Count, VungB.Rows.Count) = Mg
End Sub
Híc, không phải "thấy chưa hay" hay "giúp mình tối ưu thêm nhé" cóc khô gì cả, chỉ là một bài toán thường có nhiều cách giải, thích kiểu nào thì chơi kiểu nấy Bài này mình thấy làm bằng công thức cũng đơn giản thôi, nếu viết code thì viết theo kiểu dùng công thức cũng là một cách viết
Mà đã "tối ưu" thì sao lại "giúp mình tối ưu thêm nhé" được nhỉ ?. Híc, ngộ
Thân
Mã:
Public Sub SanhSo()
Dim VungA, VungB, Mg, I, J, Wf
Set Wf = Application.WorksheetFunction
Set VungA = Range([B4], [B4].End(xlDown)).Resize(, 15)
Set VungB = Range([R4], [R4].End(xlDown)).Resize(, 11)
ReDim Mg(1 To VungA.Rows.Count, 1 To VungB.Rows.Count)
For I = 1 To VungA.Rows.Count
For J = 1 To VungB.Rows.Count
Mg(I, J) = Wf.SumProduct(Wf.CountIf(VungB.Rows(J), VungA.Rows(I)))
Next J
Next I
[AD10].Resize(VungA.Rows.Count, VungB.Rows.Count) = Mg
End Sub
Cảm ơn bạn. Vì bài này mình chạy với một dữ liệu lớn nên mình cần tối ưu để chạy được nhanh nhất. Tối ưu ở đây là cách viết code sao cho chương trình chạy nhanh nhất
Cảm ơn bạn. Vì bài này mình chạy với một dữ liệu lớn nên mình cần tối ưu để chạy được nhanh nhất. Tối ưu ở đây là cách viết code sao cho chương trình chạy nhanh nhất
Chẳng biết chương trình của bạn có số lượng dữ liệu nhiều như thế nào mà cần tốc độ nhanh đến vậy khoảng độ dưới 1 chục giây đáp ứng được yêu cầu thì bạn cứ dùng đi.
Bài #3 mà dùng biến tạm thay cho mấy cái Ubound chắc cũng giảm kha khá thời gian. Chủ yếu nghĩ bạn đang mày mò thuật toán...
Chào các bạn.
Mình có một bài toán không thể tự mình giải được nên mình đưa lên đây để nhờ các bạn giúp đỡ mình.
Về yêu cầu của bài toán mình đã ghi rất rõ ở trong file excel đính kèm, các bạn xem rồi giúp mình nhé.
Cảm ơn các bạn nhiều
Cũng như trong Toán một định lý đúng trong 1 tỷ trường hợp cụ thể chưa chắc là một định lý luôn đúng.
Bạn không miêu tả mà chỉ ví dụ thì cũng có nguy hiểm là khi gõ ví dụ mà đếm sdai và gõ sai thì người đọc sẽ không tìm ra "quy luật". Tôi cho ví dụ. Theo cách hiểu của bạn thì có lẽ AF6 = 2? Vì 63 và 65 đều xuất hiện trong 2 mảng. Nhưng bạn có AF6 = 1.
Bạn nói: "Lấy mảng B44 so sánh với mảng R7:AB7 xem có bao nhieu kết quả trùng rồi ghi ra AG4( như bài trên có 3 giá trị là 74,74,74 "- 74 xuất hiện 3 lần-")"
Tôi nhìn thấy là 74 xuất hiện trong mảng 1 chỉ duy nhất 1 lần nhưng xuất hiện trong mảng 2 tới 3 lần.
1. Thế nếu 74 xuất hiện trong mảng 1 tới 3 lần nhưng chỉ 1 lần trong mảng 2 thì kết quả lấy là 1 hay 3?
2. Thế nếu 74 xuất hiến trong 1 tới 3 lần nhưng trong mảng 2 chỉ 2 lần thì kết quả là 2 hay 3?
... Vì bài này mình chạy với một dữ liệu lớn nên mình cần tối ưu để chạy được nhanh nhất. Tối ưu ở đây là cách viết code sao cho chương trình chạy nhanh nhất
Tôi nhắc nho nhỏ cho bạn chủ code về kỹ thuật code thôi. Chuyện "tối ưu để chạy được nhanh nhất" đối với tôi là thứ yếu.
Khi viết code, tôi chỉ quan trọng viết sao cho dễ hiểu (càng sát với tiêu chuẩn thì người khác càng dễ hiểu), cho dễ giám sát (càng sát với thiết kế yêu cầu thì càng dễ giám sát, xác định chỗ đúng sai), cho dễ chỉnh sửa (càng bao rộng thì càng dễ chỉnh sửa). Ba điều trên có khi mâu chọi nhau một chút cho nên phải thêm điều thứ tư là cho đạt quân bình giữa ba điều kia.
Chỉ khi nào code cần hoạt động trong tình trạng giờ thực tế (realtime) tôi mới tính đến chuyện nhanh chậm. Bởi vì khi ấy nếu không ra kết quả đúng lúc thì sử lý kế tiếp có thể sai.
Người viết code chuyên nghiệp rồi thì tự động nó có mức hiệu quả tối thiểu, nếu không phải là tối ưu thì cũng rất gần rồi, không cần thiết phải chú tâm quá. Nói thẳng ra, bạn nào có cho tôi làm phách thì cũng là ý kiến của bạn ấy.
tb. Mấy cô cậu đưa bài lên có tật hay nêu vấn đề "dữ liệu nhiều... triệu dòng...". Thật ra, đối với dân chuyên về dữ liệu thì dữ liệu nhiều phải học cách sắp xếp cho nó dễ sử lý trước khi học cách dùng hàm cho hiệu quả. Quản lý một cái kho lớn thì phải học cách chất hàng trước khi học lái xe nâng.
Cũng như trong Toán một định lý đúng trong 1 tỷ trường hợp cụ thể chưa chắc là một định lý luôn đúng.
Bạn không miêu tả mà chỉ ví dụ thì cũng có nguy hiểm là khi gõ ví dụ mà đếm sdai và gõ sai thì người đọc sẽ không tìm ra "quy luật". Tôi cho ví dụ. Theo cách hiểu của bạn thì có lẽ AF6 = 2? Vì 63 và 65 đều xuất hiện trong 2 mảng. Nhưng bạn có AF6 = 1.
Bạn nói: "Lấy mảng B44 so sánh với mảng R7:AB7 xem có bao nhieu kết quả trùng rồi ghi ra AG4( như bài trên có 3 giá trị là 74,74,74 "- 74 xuất hiện 3 lần-")"
Tôi nhìn thấy là 74 xuất hiện trong mảng 1 chỉ duy nhất 1 lần nhưng xuất hiện trong mảng 2 tới 3 lần.
1. Thế nếu 74 xuất hiện trong mảng 1 tới 3 lần nhưng chỉ 1 lần trong mảng 2 thì kết quả lấy là 1 hay 3?
2. Thế nếu 74 xuất hiến trong 1 tới 3 lần nhưng trong mảng 2 chỉ 2 lần thì kết quả là 2 hay 3?
Mình rất cảm ơn bạn vì đã chỉ rõ ra những sai sót của mình .
Mình thấy bạn đã xem bài của mình rất kỹ, mình xin trả lời bạn như sau:
A. "Tôi cho ví dụ. Theo cách hiểu của bạn thì có lẽ AF6 = 2? Vì 63 và 65 đều xuất hiện trong 2 mảng. Nhưng bạn có AF6 = 1." Cái này phải là 2 chứ không phải 1.
B."Bạn nói: "Lấy mảng B44 so sánh với mảng R7:AB7 xem có bao nhieu kết quả trùng rồi ghi ra AG4( như bài trên có 3 giá trị là 74,74,74 "- 74 xuất hiện 3 lần-")"
Tôi nhìn thấy là 74 xuất hiện trong mảng 1 chỉ duy nhất 1 lần nhưng xuất hiện trong mảng 2 tới 3 lần.
1. Thế nếu 74 xuất hiện trong mảng 1 tới 3 lần nhưng chỉ 1 lần trong mảng 2 thì kết quả lấy là 1 hay 3?
2. Thế nếu 74 xuất hiến trong 1 tới 3 lần nhưng trong mảng 2 chỉ 2 lần thì kết quả là 2 hay 3?
Từ dòng đỏ đỏ tôi có câu hỏi: "Nếu có k số x1, x2, ..., xk đều có trong 2 mảng, với k >= 1, thì kết quả trả về thế nào?"". Nếu 74 xuất hiện trong mảng 1 chỉ duy nhất 1 lần nhưng xuất hiện trong mảng 2 tới 3 lần thì kết quả là 3 lần, 74 xuất hiện trong mảng 1 là 2 lần nhưng xuất hiện trong mảng 2 tới 3 lần thì kết quả vẫn là 3 lần. Kết quả là max của số lần xuất hiện ở mảng 2.
C."Từ dòng đỏ đỏ tôi có câu hỏi: "Nếu có k số x1, x2, ..., xk đều có trong 2 mảng, với k >= 1, thì kết quả trả về thế nào?"". Nếu thế thì kết quả trả về là k, là k+n nếu có n -1 số x trùng nhau ở mảng 2.
D."Thực ra theo tôi bài toán chỉ có ý nghĩa khi mà ta tìm SỐ CÁC SỐxuất hiện đồng thời trong 2 mảng. Tức với 2 mảng 4, 2, 3, 3, 3, 3, 3, 3, 3, 3 và 1, 3, 3, 2, 2, 2, 2, 2 thì kết quả lấy là 2 do có 2 số cùng xuất hiện trong 2 mảng là 2 và 3. Theo tôi đã nói "có bao nhieu kết quả trùng" hay đúng hơn là "có bao nhieu SỐ trùng" thì phải hiểu theo cách này. Tức trả về con số 2. Không phải là 8 (8 con số 3) mà cũng không phải là "5 - 8" (5 con số 2 và 8 con số 3). "Có bao nhiêu SỐ trùng" mà rõ ràng chỉ có 2 số đều xuất hiện trong 2 mảng. Khái niệm phải chính xác. Nếu muốn một khái niệm "xung đột" với cách hiểu lô gíc thì phải định nghĩa rõ. Thế thôi. Hoặc dùng từ chính xác.". Cái này nếu theo ý của mình thì kết quả là 7, đúng là mình diễn giải chưa rõ.
Bạn viết Code đã chạy được đúng với ý mình mong muốn
Có chắc chắn đúng với ý bạn không? Hay là bạn không biết bạn muốn gì?
Tôi cho ví dụ.
Ví dụ 1. Bạn viết
Lấy mảng B44 so sánh với mảng R7:AB7 xem có bao nhieu kết quả trùng rồi ghi ra AG4(như bài trên có 3 giá trị là 74,74,74 "- 74 xuất hiện 3 lần-")
Và theo đó bạn có AG4 = 3 (74 xuất hiện 3 lần). Code của dhn46 trả về AN4 = 0. Bạn biết tại sao không? Vì điều kiện đỏ đỏ trong
Code:
If Arr1(iR1, jC1) = Arr2(iR2, jC2) Then
Dem = Dem + 1
End If
không thỏa. Vì sao? Vì dữ liệu của bạn có 74 là số trong mảng 1 và là chuỗi trong mảng 2.
Nghe "ngồ ngộ" thế nào ấy nhỉ.". Đúng như bạn nói code này chưa đúng với ý mình, đêm qua mình test lại mới thấy có vấn đề ở chỗ 74, sáng nay định hỏi lại bạn dhn46 . Bạn có thể sửa lại đoạn này giúp mình không?
Chốt lại mình đã có nhiều thiếu sót khi đưa ra bài toán, rất mong các bạn thông cảm mình là người mới trong môn này có gì các bạn góp ý thẳng cho mình như bạn siwtom nhé
Híc, không phải "thấy chưa hay" hay "giúp mình tối ưu thêm nhé" cóc khô gì cả, chỉ là một bài toán thường có nhiều cách giải, thích kiểu nào thì chơi kiểu nấy Bài này mình thấy làm bằng công thức cũng đơn giản thôi, nếu viết code thì viết theo kiểu dùng công thức cũng là một cách viết
Mà đã "tối ưu" thì sao lại "giúp mình tối ưu thêm nhé" được nhỉ ?. Híc, ngộ
Thân
Mã:
Public Sub SanhSo()
Dim VungA, VungB, Mg, I, J, Wf
Set Wf = Application.WorksheetFunction
Set VungA = Range([B4], [B4].End(xlDown)).Resize(, 15)
Set VungB = Range([R4], [R4].End(xlDown)).Resize(, 11)
ReDim Mg(1 To VungA.Rows.Count, 1 To VungB.Rows.Count)
For I = 1 To VungA.Rows.Count
For J = 1 To VungB.Rows.Count
Mg(I, J) = Wf.SumProduct(Wf.CountIf(VungB.Rows(J), VungA.Rows(I)))
Next J
Next I
[AD10].Resize(VungA.Rows.Count, VungB.Rows.Count) = Mg
End Sub
Híc, không phải "thấy chưa hay" hay "giúp mình tối ưu thêm nhé" cóc khô gì cả, chỉ là một bài toán thường có nhiều cách giải, thích kiểu nào thì chơi kiểu nấy Bài này mình thấy làm bằng công thức cũng đơn giản thôi, nếu viết code thì viết theo kiểu dùng công thức cũng là một cách viết
Mà đã "tối ưu" thì sao lại "giúp mình tối ưu thêm nhé" được nhỉ ?. Híc, ngộ
Thân
Mã:
Public Sub SanhSo()
Dim VungA, VungB, Mg, I, J, Wf
Set Wf = Application.WorksheetFunction
Set VungA = Range([B4], [B4].End(xlDown)).Resize(, 15)
Set VungB = Range([R4], [R4].End(xlDown)).Resize(, 11)
ReDim Mg(1 To VungA.Rows.Count, 1 To VungB.Rows.Count)
For I = 1 To VungA.Rows.Count
For J = 1 To VungB.Rows.Count
Mg(I, J) = Wf.SumProduct(Wf.CountIf(VungB.Rows(J), VungA.Rows(I)))
Next J
Next I
[AD10].Resize(VungA.Rows.Count, VungB.Rows.Count) = Mg
End Sub
Nếu 74 xuất hiện trong mảng 1 chỉ duy nhất 1 lần nhưng xuất hiện trong mảng 2 tới 3 lần thì kết quả là 3 lần, 74 xuất hiện trong mảng 1 là 2 lần nhưng xuất hiện trong mảng 2 tới 3 lần thì kết quả vẫn là 3 lần. Kết quả là max của số lần xuất hiện ở mảng 2.
C."Từ dòng đỏ đỏ tôi có câu hỏi: "Nếu có k số x1, x2, ..., xk đều có trong 2 mảng, với k >= 1, thì kết quả trả về thế nào?"". Nếu thế thì kết quả trả về là k, là k+n nếu có n -1 số x trùng nhau ở mảng 2.
Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long, c As Long
Dim a As Double, b As Double, u12 As Long, u21 As Long, u22 As Long
Arr1 = [B4:P6].Value
Arr2 = [R4:AB9].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
On Error Resume Next
For r1 = 1 To u11
For r2 = 1 To u21
count = 0
For c1 = 1 To u12
For c2 = 1 To u22
a = Arr1(r1, c1)
b = Arr2(r2, c2)
If Err.Number > 0 Then
Err.Number = 0
ElseIf a = b Then
For c = c1 + 1 To u12
If Arr1(r1, c) = a Then Arr1(r1, c) = 2147483647 ' Arr1(r1, c) = "*"
Next c
count = count + 1
End If
Next c2
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("AK4").Resize(u11, u21) = result
End Sub
Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long, c As Long
Dim a As Double, b As Double, u12 As Long, u21 As Long, u22 As Long
Arr1 = [B4:P6].Value
Arr2 = [R4:AB9].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
On Error Resume Next
For r1 = 1 To u11
For r2 = 1 To u21
count = 0
For c1 = 1 To u12
For c2 = 1 To u22
a = Arr1(r1, c1)
b = Arr2(r2, c2)
If Err.Number > 0 Then
Err.Number = 0
ElseIf a = b Then
For c = c1 + 1 To u12
If Arr1(r1, c) = a Then Arr1(r1, c) = 2147483647 ' Arr1(r1, c) = "*"
Next c
count = count + 1
End If
Next c2
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("AK4").Resize(u11, u21) = result
End Sub
Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long, c As Long
Dim a As Double, b As Double, u12 As Long, u21 As Long, u22 As Long
Arr1 = [B4:P6].Value
Arr2 = [R4:AB9].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
On Error Resume Next
For r1 = 1 To u11
For r2 = 1 To u21
count = 0
For c1 = 1 To u12
For c2 = 1 To u22
a = Arr1(r1, c1)
b = Arr2(r2, c2)
If Err.Number > 0 Then
Err.Number = 0
ElseIf a = b Then
For c = c1 + 1 To u12
If Arr1(r1, c) = a Then Arr1(r1, c) = 2147483647 ' Arr1(r1, c) = "*"
Next c
count = count + 1
End If
Next c2
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("AK4").Resize(u11, u21) = result
End Sub
Đã test thử với Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long, c As Long
Dim a As Double, b As Double, u12 As Long, u21 As Long, u22 As Long
Arr1 = [ac2:bl5500].Value
Arr2 = [a2:aa11].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
On Error Resume Next
For r1 = 1 To u11
For r2 = 1 To u21
count = 0
For c1 = 1 To u12
For c2 = 1 To u22
a = Arr1(r1, c1)
b = Arr2(r2, c2)
If Err.Number > 0 Then
Err.Number = 0
ElseIf a = b Then
For c = c1 + 1 To u12
If Arr1(r1, c) = a Then Arr1(r1, c) = 2147483647 ' Arr1(r1, c) = "*"
Next c
count = count + 1
End If
Next c2
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("bn2").Resize(u11, u21) = result
End Sub
Về mặt thời gian cũng khá lâu gấp đôi thời gian so với code của bạn concogia.
Mình chưa có thời gian để kiểm tra kỹ chương trình, có gì mai trả lời bạn sau.
Thanks
Đã test thử với Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long, c As Long
Dim a As Double, b As Double, u12 As Long, u21 As Long, u22 As Long
Arr1 = [ac2:bl5500].Value
Arr2 = [a2:aa11].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
On Error Resume Next
For r1 = 1 To u11
For r2 = 1 To u21
count = 0
For c1 = 1 To u12
For c2 = 1 To u22
a = Arr1(r1, c1)
b = Arr2(r2, c2)
If Err.Number > 0 Then
Err.Number = 0
ElseIf a = b Then
For c = c1 + 1 To u12
If Arr1(r1, c) = a Then Arr1(r1, c) = 2147483647 ' Arr1(r1, c) = "*"
Next c
count = count + 1
End If
Next c2
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("bn2").Resize(u11, u21) = result
End Sub
Về mặt thời gian cũng khá lâu gấp đôi thời gian so với code của bạn concogia.
Mình chưa có thời gian để kiểm tra kỹ chương trình, có gì mai trả lời bạn sau.
Thanks
Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long, c As Long
Dim a As Double, b As Double, u12 As Long, u21 As Long, u22 As Long
Arr1 = [B4:P6].Value
Arr2 = [R4:AB9].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
On Error Resume Next
For r1 = 1 To u11
For r2 = 1 To u21
count = 0
For c1 = 1 To u12
For c2 = 1 To u22
a = Arr1(r1, c1)
b = Arr2(r2, c2)
If Err.Number > 0 Then
Err.Number = 0
ElseIf a = b Then
For c = c1 + 1 To u12
If Arr1(r1, c) = a Then Arr1(r1, c) = 2147483647 ' Arr1(r1, c) = "*"
Next c
count = count + 1
End If
Next c2
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("AK4").Resize(u11, u21) = result
End Sub
Tôi đưa a = Arr1(r1, c1) ra ngoài vòng For c2 = 1 To u22 để khỏi phải xác định nhiều lần
Sau khi sửa
Mã:
Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long, c As Long
Dim a As Double, b As Double, u12 As Long, u21 As Long, u22 As Long
Arr1 = [B4:AK6].Value
Arr2 = [AM4:BM9].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
On Error Resume Next
For r1 = 1 To u11
For r2 = 1 To u21
count = 0
For c1 = 1 To u12
a = Arr1(r1, c1)
If Err.Number > 0 Then
Err.Number = 0
Else
For c2 = 1 To u22
b = Arr2(r2, c2)
If Err.Number > 0 Then
Err.Number = 0
ElseIf a = b Then
For c = c1 + 1 To u12
If Arr1(r1, c) = a Then Arr1(r1, c) = 2147483647 ' Arr2(r2, c2) = "*"
Next c
count = count + 1
End If
Next c2
End If
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("B10").Resize(u11, u21) = result
End Sub
Đúng rồi bạn ah, mình cần thể hiện là 03 nên mình chuyển thành dạng text, nếu để là 3 thì kiểu gì cũng lỗi khi so sánh. Còn các số khác có 2 chữ số trở lên thì để dạng số cũng được.
Tôi đưa a = Arr1(r1, c1) ra ngoài vòng For c2 = 1 To u22 để khỏi phải xác định nhiều lần
Sau khi sửa
Mã:
Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long, c As Long
Dim a As Double, b As Double, u12 As Long, u21 As Long, u22 As Long
Arr1 = [B4:AK6].Value
Arr2 = [AM4:BM9].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
On Error Resume Next
For r1 = 1 To u11
For r2 = 1 To u21
count = 0
For c1 = 1 To u12
a = Arr1(r1, c1)
If Err.Number > 0 Then
Err.Number = 0
Else
For c2 = 1 To u22
b = Arr2(r2, c2)
If Err.Number > 0 Then
Err.Number = 0
ElseIf a = b Then
For c = c1 + 1 To u12
If Arr1(r1, c) = a Then Arr1(r1, c) = 2147483647 ' Arr2(r2, c2) = "*"
Next c
count = count + 1
End If
Next c2
End If
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("B10").Resize(u11, u21) = result
End Sub
Đúng rồi bạn ah, mình cần thể hiện là 03 nên mình chuyển thành dạng text, nếu để là 3 thì kiểu gì cũng lỗi khi so sánh. Còn các số khác có 2 chữ số trở lên thì để dạng số cũng được.
4. Được hay không thì tôi cũng chấm dứt ở đây.
Mã:
Sub SoSanh()
Dim Arr1(), Arr2(), result() As Long
Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, count As Long
Dim a As Double, u11 As Long, u12 As Long, u21 As Long, u22 As Long, dic As Object, tmp()
Arr1 = [B4:AK6].Value
Arr2 = [AM4:BM9].Value
u11 = UBound(Arr1, 1)
u12 = UBound(Arr1, 2)
u21 = UBound(Arr2, 1)
u22 = UBound(Arr2, 2)
ReDim result(1 To u11, 1 To u21)
Set dic = CreateObject("Scripting.Dictionary")
For r1 = 1 To u11
dic.RemoveAll
For c1 = 1 To u12
a = Arr1(r1, c1)
If Not dic.exists(a) Then dic.Add a, a
Next k
tmp = dic.keys
For r2 = 1 To u21
count = 0
For c1 = 0 To UBound(tmp)
a = tmp(c1)
For c2 = 1 To u22
If a = Arr2(r2, c2) Then count = count + 1
Next c2
Next c1
result(r1, r2) = count
Next r2
Next r1
Range("B10").Resize(u11, u21) = result
Set dic = Nothing
End Sub
4 so sánh với mảng R7:AB7 xem 
