Em cần tổng hợp công của công nhân từ nhiều sheet khác nhau( 3 sheet).
Vì vậy em muốn có thể dùng mảng để so sánh tìm ra tên công nhân giống nhau từ 3 sheet rồi + số công lại.
( Em cũng không biết trường hợp này dùng mảng có đúng không )
Nhưng đến phần so sánh code báo lỗi do: Ubound(Arr3) = 0, em không biết tại sao.
Mong các Anh giúp đỡ, em cũng đang muốn tìm hiểu thêm về mảng.
Em cám ơn. Em có đình kèm theo file.
Vì vậy em muốn có thể dùng mảng để so sánh tìm ra tên công nhân giống nhau từ 3 sheet rồi + số công lại.
( Em cũng không biết trường hợp này dùng mảng có đúng không )
Nhưng đến phần so sánh code báo lỗi do: Ubound(Arr3) = 0, em không biết tại sao.
Mong các Anh giúp đỡ, em cũng đang muốn tìm hiểu thêm về mảng.
Em cám ơn. Em có đình kèm theo file.
Mã:
Sub SOSANH()
Dim sheet As Worksheet
Dim rg1 As Range
Dim rg2 As Range
Dim Arr1() As Variant
Dim Arr2() As Variant
Dim Arr3() As Variant
Application.ScreenUpdating = False
Arr1 = Array(ActiveWorkbook.Sheets("Sheet1").Range("B4:B19"))
Arr2 = Array(ActiveWorkbook.Sheets("Sheet2").Range("C4:C22"))
Arr3 = Array(ActiveWorkbook.Sheets("Sheet3").Range("B3:B32"))
For j = 1 To UBound(Arr3)
If Arr1(j)= Arr3(j) Then
ActiveWorkbook.Sheets("TINHCONG").Range("B7").Offset(i, 0).Value = Arr1(j)
Next i
End If
Next j
Application.ScreenUpdating = True
End Sub
