Tìm kiếm và lấy dữ liệu

[hoangquocviet15061979]

Lấy dữ liệu từ bảng A sang bảng B sao cho tuần tự từ ngày đầu tháng đến ngày cuối tháng nếu trùng ngày tháng thì số tiền cột thu và cột chi số tiền sẽ tương ứng (Có thể trong một ngày nhưng có nhiều số liệu thu và chi mỗi số liệu phát sinh là một dòng khác nhau)

 

[HieuCD]

Lấy dữ liệu từ bảng A sang bảng B sao cho tuần tự từ ngày đầu tháng đến ngày cuối tháng nếu trùng ngày tháng thì số tiền cột thu và cột chi số tiền sẽ tương ứng (Có thể trong một ngày nhưng có nhiều số liệu thu và chi mỗi số liệu phát sinh là một dòng khác nhau)

Chạy code

Sub ThuChi()
  Dim sArr(), Res(), Ngay As Date
  Dim sRow&, i&, k&
  With Sheets("Sheet1")
    i = .Range("C" & Rows.Count).End(xlUp).Row
    Res = .Range("A3:C" & i).Value
    .Range("A3:C" & i).Sort .Range("A3"), 1, .Range("C3"), , 2, Header:=xlNo
    sArr = .Range("A3:C" & i + 1).Value
    .Range("A3:C" & i).Value = Res
  End With
  sRow = UBound(sArr)
  ReDim Res(1 To sRow - 1, 1 To 3)
  For i = 1 To sRow - 1
    If sArr(i, 1) <> Ngay Then
      Ngay = sArr(i, 1)
      ik = k
    End If
    If sArr(i, 3) = "Thu" Then
      k = k + 1
      Res(k, 1) = Ngay
      Res(k, 2) = sArr(i, 2)
    ElseIf sArr(i, 3) = "Chi" Then
      ik = ik + 1
      Res(ik, 1) = Ngay
      Res(ik, 3) = sArr(i, 2)
    End If
    If sArr(i + 1, 1) <> Ngay Then
      If k < ik Then k = ik
    End If
  Next i
  Sheets("Sheet1").Range("D12").Resize(k, 3).Value = Res
End Sub