Mình có 1 đoạn macro bằng cách sử dụng chức năng recode trong excel như bên dưới, nhưng mình cần nó chạy quay vòng lặp lại khoảng 300 lần. Xin được mọi người sửa giúp với ah.
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("D9").Select
Range("O8").Select
Selection.Copy
Range("N8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$20:$AJQ$168").AutoFilter Field:=7
ActiveSheet.Range("$A$20:$AJQ$168").AutoFilter Field:=7, Criteria1:="<>"
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("BBNT").Select
Range("L1").Select
Selection.Copy
Range("K1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("D9").Select
Range("O8").Select
Selection.Copy
Range("N8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$20:$AJQ$168").AutoFilter Field:=7
ActiveSheet.Range("$A$20:$AJQ$168").AutoFilter Field:=7, Criteria1:="<>"
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("BBNT").Select
Range("L1").Select
Selection.Copy
Range("K1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub