Chào các bạn,
Mình có đoạn mã bên dưới phần in đậm màu đỏ.
Nhờ các bạn chuyển phần mã in đậm màu đỏ sang vba access như thế nào ?

Sub Balaco()
i = Range("B999999").End(xlUp).Row
  res = Range("B3:C" & i).Value                'Bảng tra dữ liệu "Tnpl"
  sArr = Range("B3:C" & i).Value              'Bảng tra dữ liệu "Tnpl"
  Range("B3:C" & i).Value = res
  Tong = Range("F3").Value                      'Tong can tìm từ bảng "Tong"
  sRow = UBound(sArr)

  Range("G3").Resize(n, 6) = res             'xuất ra Bảng "output"

End Sub
file minh hoạ : https://drive.google.com/file/d/1LDbAChE...sp=sharing