Добрый день,
Не получается вставить условие повтора. Необходимо, чтобы макрос выполнял операцию то количество раз, сколько указано в ячейке (Например, 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 |
Если бы кто, смог помочь, заранее благодарю!