Добрый день,
Не получается вставить условие повтора. Необходимо, чтобы макрос выполнял операцию то количество раз, сколько указано в ячейке (Например, B2).
Если бы кто, смог помочь, заранее благодарю!
Не получается вставить условие повтора. Необходимо, чтобы макрос выполнял операцию то количество раз, сколько указано в ячейке (Например, B2).
| Код |
|---|
Sub Макрос1()
Dim c As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Calculate
c = Cells(1, Columns.Count).End(xlToLeft).Column + 1
Columns("F").Copy
Cells(1, c).PasteSpecial xlPasteFormats
Cells(1, c).PasteSpecial xlPasteValues
Cells(1, c).PasteSpecial xlPasteColumnWidths
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
End Sub
|
Если бы кто, смог помочь, заранее благодарю!
