Bài này đơn giản mà nhỉ
Option Explicit
Sub thanhtoan()
Dim i&, j&, k&, ar1, ar2(1 To 4)
Dim rng, res(1 To 1000, 1 To 4)
rng = Range("C3:R66").Value
ar1 = Array(1, 7, 10, 11, 12) ' luu vi tri cot vao ar1: 7-10-11-12 la STT cua cot I-L-M-N tinh tu cot C
ar2(1) = [I2].Value: ar2(2) = [L2].Value...