Antonio Prizivnik - draftee

Зарегистрирован: 18.07.2009 Сообщения: 1
|
Добавлено: Сб Июл 18, 2009 8:19 am Заголовок сообщения: Помогите, пожалуйста, с макросом в эксель! |
|
|
Люди добрые! Помогите, пожалуйста, с макросом.
Думаю, для людей, знающих макросы, вопрос не будет сложный. Я в макросах
почти ничего не понимаю.
Смотрите, есть 1 столбец данных, допустим 20 ячеек. Нужно копировать по 4
ячейки из этого столбца, сдвигаясь каждый раз на 1 ячейку вниз. Копировать
нужно рядом в соседние столбцы, сдвигаясь соответственно на 1 столбец вправо.
Как можно сжать код макроса, чтоб каждый раз не писать заново одну и ту же
операцию.
Вот код, чтоб яснее было:
Код: | Range("C7:C10").Select
Selection.Copy
Range("F7").Select
ActiveSheet.Paste
Range("C8:C11").Select
Selection.Copy
Range("G7").Select
ActiveSheet.Paste
Range("C9:C12").Select
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Range("C10:C13").Select
Selection.Copy
Range("I7").Select
ActiveSheet.Paste
Application.CutCopyMode = False |
и т.д.
Буду признателен за помощь!
С уважением,
Сергей. |
|