Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прошу помощи с макросом excell / 8 сообщений из 8, страница 1 из 1
17.08.2013, 20:42
    #38369819
Evina777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи с макросом excell
Добрый день!
Прошу помощи с макросом (я чайничек)), есть вот такой макрос:

Range("H1:Q1").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

в него нужно вставить наверное цикл, задача состоит в том чтобы он проделывал такое (копирование диапазона горизонтальной строки и вставку в один столбец) с каждой 14-й строкой.
Как это сделать? прошу помогите, мучаюсь уже несколько дней, подозреваю что это не сложно, но наверное я в душе блондинка
...
Рейтинг: 0 / 0
17.08.2013, 21:29
    #38369839
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи с макросом excell
Evina777,

а куда будете копировать

Range("H15:Q15").Select

или на меня тоже пятница действует
...
Рейтинг: 0 / 0
17.08.2013, 21:41
    #38369844
Evina777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи с макросом excell
копировать буду всё в столбец G2 но тоже с диапазоном 14 строк вниз
У меня задача какая, значение из строки перенести в стобец и таких строк оочень много:( Просто скопировать и транспортировать не могу, т.к. нужно вставлять значения в столбец под каждой строчкой
...
Рейтинг: 0 / 0
17.08.2013, 21:44
    #38369847
Evina777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи с макросом excell
прошу прощения, не поняла сразу, вставлять буду в G15
...
Рейтинг: 0 / 0
17.08.2013, 21:51
    #38369850
Evina777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи с макросом excell
Вот так будет точнее

Range("H1:T1").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Range("H16:T16").Select
Application.CutCopyMode = False
Selection.Copy
Range("G17").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=6

Range("H31:T31").Select
Application.CutCopyMode = False
Selection.Copy
Range("G32").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
...
Рейтинг: 0 / 0
18.08.2013, 10:39
    #38369978
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи с макросом excell
Evina777, Например так.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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
...
Рейтинг: 0 / 0
18.08.2013, 16:22
    #38370045
Evina777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи с макросом excell
VSVLAD спасибо большое, буду пробывать
...
Рейтинг: 0 / 0
18.08.2013, 16:31
    #38370047
Evina777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи с макросом excell
VSVLAD,

спасибо ну просто огроменное заработало!))))
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прошу помощи с макросом excell / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]