Tôi thêm 3 sheet, còn bạn muốn bao nhiêu sheet thì sửa số 3 thành số khác.
Public Sub GPE()
Dim sArr(), i As Integer, ArrKQ(), k As Integer, Ma As String, j As Integer
Dim Wb As Workbook
sArr() = Sheet1.Range("A2:G" & Sheet1.Range("A65000").End(xlUp).Row).Value
ReDim ArrKQ(1 To...