Ủa câu lệnh mà mình viết nó ra kết quả đúng với kết quả bạn mong muốn mà?
Sub TongHop()
Dim strSQL As String
strSQL = "Select Item,LotNo, StockNo,0 as OpeningStock,iif(StockType='IN',Quantity,0) as StockIn,iif(StockType='IN',0,Quantity) as StockOut From [NXT$G2:O] Union All Select...