Всем привет, ребята подскажите пожалуйста как мне проще написать данную команду на 100 ячеек. Спасибо.
Код |
---|
Range("A2").Select ActiveCell.FormulaR1C1 = "+" Sheets("Бланк").PrintOut From:=1, To:=3, Copies:=1, Collate:=True, IgnorePrintAreas:=False Application.StatusBar = False Worksheets("Данные").Select Range("A2").Select Selection.ClearContents Range("A3").Select ActiveCell.FormulaR1C1 = "+" Sheets("Бланк").PrintOut From:=1, To:=3, Copies:=1, Collate:=True, IgnorePrintAreas:=False Application.StatusBar = False Worksheets("Данные").Select Range("A3").Select Selection.ClearContents Range("A4").Select ActiveCell.FormulaR1C1 = "+" Sheets("Бланк").PrintOut From:=1, To:=3, Copies:=1, Collate:=True, IgnorePrintAreas:=False Application.StatusBar = False Worksheets("Данные").Select Range("A4").Select Selection.ClearContents Range("A5").Select ActiveCell.FormulaR1C1 = "+" Sheets("Бланк").PrintOut From:=1, To:=3, Copies:=1, Collate:=True, IgnorePrintAreas:=False Application.StatusBar = False Worksheets("Данные").Select Range("A5").Select Selection.ClearContents |