Прошу помощи с макросом excell - VB
Формулировка задачи:
Добрый день!
Прошу помощи с макросом (я чайничек)), есть вот такой макрос:
Range("H1:Q1").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
в него нужно вставить наверное цикл, задача состоит в том чтобы он проделывал такое (копирование диапазона горизонтальной строки и вставку в один столбец) с каждой 14-й строкой.
Как это сделать? прошу помогите, мучаюсь уже несколько дней, подозреваю что это не сложно, но наверное я в душе блондинка
Прошу помощи с макросом (я чайничек)), есть вот такой макрос:
Range("H1:Q1").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
в него нужно вставить наверное цикл, задача состоит в том чтобы он проделывал такое (копирование диапазона горизонтальной строки и вставку в один столбец) с каждой 14-й строкой.
Как это сделать? прошу помогите, мучаюсь уже несколько дней, подозреваю что это не сложно, но наверное я в душе блондинка
Решение задачи: «Прошу помощи с макросом excell»
textual
Листинг программы
Sub T()
Dim nStep As Long
nStep = 1
Do While Not IsEmpty(ActiveSheet.Range("H" & nStep).Value)
ActiveSheet.Range("H" & nStep & ":T" & nStep).Copy
ActiveSheet.Range("G" & nStep + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
nStep = nStep + 15
Loop
End Sub