Подскажите пожалуйста
Код |
---|
Sub добавить() Application.ScreenUpdating = False 'как сделать чтобы указанное ко-во ячеек заполнялось, а не только одна. 'r-ко-во ячеек для заполнения ActiveCell.Value = "Первый" r = 3 'этот код работает на одну ячейку ActiveCell.Value = "Первый" ActiveCell.Cells(1, 2).Activate Application.ScreenUpdating = True End Sub |