Điều kiện: Trong file chỉ có 1 sheet Table?
Thử Sub này:
Public Sub GPE()
Dim Rng As Range, Cll As Range, dArr(), I As Long, K As Long
With Sheets("Table")
Set Rng = .Range(.[A1], .[A1048576].End(xlUp))
ReDim dArr(1 To Rng.Rows.Count, 1 To 4)
For Each Cll In Rng
If...