[CODE]Private Sub PRINTA()
Dim MAXb, MAXc, MAXd, MAXe, MAXf, U As Integer
Dim SARR(), RES()
Dim WSPR, WSDT As Worksheet
Dim DA, G, T
Application.Calculation = xlCalculationAutomatic
Set WSDT = ThisWorkbook.Sheets("Sheet1")
Set WSPR = ThisWorkbook.Sheets("Temngay2013")
MAXb = WSDT.Range("B" & Rows.Count).End(xlUp).Row
MAXc = WSDT.Range("C" & Rows.Count).End(xlUp).Row
MAXd = WSDT.Range("D" & Rows.Count).End(xlUp).Row
MAXe = WSDT.Range("E" & Rows.Count).End(xlUp).Row
MAXf = WSDT.Range("F" & Rows.Count).End(xlUp).Row
' O DAY MINH CHI LAM MAU O COT B
'========================================================
SARR = WSDT.Range("B2:B" & MAXb).Value
ReDim RES(1 To 48)
For U = LBound(SARR) To UBound(SARR)
If DA < 48 Then
DA = DA + 1
RES(DA) = SARR(U, 1)
Else
WSPR.Range("V5:V52").ClearContents
For T = 5 To 52
G = G + 1
WSPR.Range("V" & T).Value = RES(G)
Next T
G = 0
DA = 0
U = U - 1
Erase RES
ReDim RES(1 To 48)
'THEM CODE DE IN NHU BAN MUON
End If
Next U
WSPR.Range("V5:V52").ClearContents
For T = 5 To 52
G = G + 1
WSPR.Range("V" & T).Value = RES(G)
Next T
G = 0
'THEM CODE DE IN NHU BAN MUON
'===========================================================
End Sub
