Sub GPE()
Dim Sh As Worksheet, n As Long, KQ()
n = ThisWorkbook.Worksheets.Count 'so luong sheet co trong file
ReDim KQ(1 To n - 1, 1 To 15) 'tru 1 vi co sheet tong hop khong lam
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Tong Hop" Then
i = i + 1
With Sh
KQ(i, 1) = i 'so thu tu
KQ(i, 2) = .Range("A3").Value 'ten don vi
KQ(i, 4) = .Range("C6").Value 'don gia duong
KQ(i, 5) = .Range("D6").Value 'so luong duong
KQ(i, 6) = .Range("E6").Value 'thanh tien duong
KQ(i, 7) = .Range("C7").Value 'don gia mo mau
KQ(i, 8) = .Range("D7").Value 'so luong mo mau
KQ(i, 9) = .Range("E7").Value 'thanh tien mo mau
KQ(i, 10) = .Range("C8").Value 'don gia men gan
KQ(i, 11) = .Range("D8").Value 'so luong men gan
KQ(i, 12) = .Range("E8").Value 'thanh tien men gan
KQ(i, 13) = .Range("C9").Value 'don gia chuc nang than
KQ(i, 14) = .Range("D9").Value 'so luong chuc nang than
KQ(i, 15) = .Range("E9").Value 'thanh tien chuc nang than
KQ(i, 3) = KQ(i, 6) + KQ(i, 9) + KQ(i, 12) + KQ(i, 15)
End With
End If
Next
Sheets("Tong Hop").Range("A4").Resize(i, 15).Value = KQ
End Sub
