Dòng ở bên sheet 2 đã có ở bên sheet 1 là theo điều kiện nào bạn? DV, Account,...
Sub Copy()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets(1)
Set s2 = Sheets(2)
With s1
Dim r As Long
For r = 3 To .Range("C" & .Cells.Rows.Count).End(xlUp).Row
Dim m As String
m = .Range("B" & r).Value
If WorksheetFunction.CountIf(s2.Range("B:B"), m) = 0 Then
Dim rc As Long
rc = s2.Range("C" & .Cells.Rows.Count).End(xlUp).Row + 1
.Range("A" & r).EntireRow.Copy s2.Range("A" & rc)
End If
Next
End With
End SubTheo điều kiện là account bạn ơi.....
Nó sẽ dò coi account bên sheet 2 có mà bên sheet 1 ko có thì sẽ coppy sang vào dòng cuối
Sub update()
Dim arr, arr1, arr2
Dim a As Long, i As Long, b As Long, j As Long
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
With Sheet2
arr = .Range("A2:L" & .Range("C" & Rows.Count).End(xlUp).Row).Value
For i = 1 To UBound(arr, 1)
If dic.exists(arr(i, 3)) = 0 Then
dic.Item(arr(i, 3)) = "KK"
End If
Next i
End With
With Sheet1
arr1 = .Range("A3:L" & .Range("C" & Rows.Count).End(xlUp).Row).Value
ReDim arr2(1 To UBound(arr1, 1), 1 To 12)
For i = 1 To UBound(arr1, 1)
If dic.exists(arr1(i, 3)) = 0 Then
a = a + 1
For j = 1 To 12
arr2(a, j) = arr1(i, j)
Next j
End If
Next i
End With
With Sheet2
b = .Range("C" & Rows.Count).End(xlUp).Row + 1
If a Then .Range("A" & b).Resize(a, 12).Value = arr2
End With
End SubDùng scripting.dictionarynhanh hơn là mình dò từng dòng trong excel nhìu không ạ? Em thấy các thầy toàn dùng scripting.dictionary.
Nhanh hơn nhiều chứ bạn nó tối ưu được vòng lặp mà.
Bạn ơi giúp mình 1 chút nữa với ạ. Ví dụ: account ở ô B5 (sheet2) đối chiếu sang cột account( sheet1) xem số tiền của nó là báo nhiều thì sẽ copy về ô E5 bên sheet 2. nếu không thấy thì bỏ qua. Tương tự như vậy với các ô B6.B7... file mình đính kèm đó bạn xem cho dể hiểu hơn ạ . cảm ơn bạn nhiều
Code cho file bài #8
Public Sub sGpe()
Dim Dic As Object, sArr(), dArr(), I As Long, R As Long, Rws As Long, Txt As String
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet1
sArr = .Range("B2", .Range("B2").End(xlDown)).Resize(, 3).Value
R = UBound(sArr)
For I = 1 To R
Dic.Item(sArr(I, 1)) = I
Next I
End With
With Sheet2
dArr = .Range("B5", .Range("D5").End(xlDown)).Resize(, 4).Value
R = UBound(dArr)
For I = 1 To R
Txt = dArr(I, 1)
If Dic.Exists(Txt) Then
Rws = Dic.Item(Txt)
dArr(I, 2) = sArr(Rws, 2)
dArr(I, 4) = sArr(Rws, 3)
End If
Next I
.Range("B5").Resize(R, 4) = dArr
End With
Set Dic = Nothing
End Subcảm ơn bạn nhiều nhiều lắm ạ ^^
cái này lúc nó đối chiếu thì nó phân biệt chữ in hoa và in thường bạn có sửa lại thành không phân biệt chữ in hoa in thường được không ạ
Bạn thêm câu lệnh này dưới chỗ set dic=....
Dic.CompareMode = vbTextComparedc rồi ạ. cảm ơn bạn nhiều
