Giải thích code lọc dữ liệu

[ngoctrongdat]

Tôi được ndu viết giùm một đoạn code cho việc lọc dữ liệu học sinh giỏi, học sinh tiên tiến như sau:

Option Explicit
Sub Trichloc()
  Dim i As Long
  Application.ScreenUpdating = False
  Sheets("hsg").[A6:G1000].Clear
  Sheets("HSTT").[A6:G1000].Clear
  With Sheets("lop").[A6].CurrentRegion
    For i = 1 To 2
      .AutoFilter 4, Choose(i, "G", "K"): .AutoFilter 5, "T"
      .SpecialCells(12).Copy
      With Sheets(Choose(i, "hsg", "HSTT")).[A6]
        .PasteSpecial
        If .CurrentRegion.Rows.Count > 1 Then
          .CurrentRegion.Resize(, 1).SpecialCells(2, 1).Value = Evaluate("ROW(R:R)")
        End If
      End With
    Next i
  End With
  Sheets("lop").AutoFilterMode = False
  Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("TB") & """,2)")
  Application.ScreenUpdating = True
End Sub

Tuy nhiên kiến thức về macro của bản thân còn hạn chế nên rất cần các bạn giúp đỡ giải thích giùm một số nội dung trong đoạn code trên:
-Con số 12 trong dòng lệnh: ".SpecialCells(12).Copy " có ý nghĩa gì?
-Ý nghĩa của dòng lệnh: .CurrentRegion.Resize(, 1).SpecialCells(2, 1).Value = Evaluate("ROW(R:R)")
và Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("TB") & """,2)")
Và nói chung là nếu bác nào có điều kiện dịch toàn bộ đoạn code đó sang tiếng việt (giải thích) ý nghĩa đầy đủ của nó thì càng tốt

 

[ndu96081631]

Vì file có dung lượng lớn không đưa lên diễn đàn được tôi gửi mail cho bạn giúp tôi nhé.
Thánhk!

Vâng!
Gữi vào mail của tôi: ndu96081631@yahoo.com
Nhớ ghi rõ yêu cầu vào file nhé
Tôi sẽ giúp trong khả năng của tôi
---------------------------------
Nói riêng với bạn: Yêu cầu dạng này bạn nên nhắn tin riêng thì đúng hơn... đưa bài lên kiểu này coi chừng bị xóa đấy

 

[ngoctrongdat]

Tổn hợp kết quả vào 1 sheet

Bác xem file rồi nên em hỏi thêm tí nhé?
Ở fiel Quanly có sheet DSTr, giả sử nếu bây giờ em có kết quả của toàn trường (mỗi lớp trên 1 fiel như 6A thì em có thể tổng hợp vào sheet đó được không? Cách làm thế nào?
Nếu cần file gốc em có thể gửi cho Bác.