Bạn thử code này xem sao nhé
Sub PrintSheets()
Dim Arr(), sArr()
Dim i&, ShN As String, Sh As Worksheet
Arr = Sheet3.Range("G3:H1000").Value
sArr = Filter2DArray(Arr, 2, "X", False)
For i = 1 To UBound(sArr)
ShN = Left(Arr(i, 1), 4) & CDbl(Right(Arr(i, 1), 5))
For Each Sh In Sheets
If...