|
Прошу помощи с макросом excell
|
|||
---|---|---|---|
#18+
Добрый день! Прошу помощи с макросом (я чайничек)), есть вот такой макрос: Range("H1:Q1").Select Selection.Copy Range("G2").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub в него нужно вставить наверное цикл, задача состоит в том чтобы он проделывал такое (копирование диапазона горизонтальной строки и вставку в один столбец) с каждой 14-й строкой. Как это сделать? прошу помогите, мучаюсь уже несколько дней, подозреваю что это не сложно, но наверное я в душе блондинка ... |
|||
:
Нравится:
Не нравится:
|
|||
17.08.2013, 20:42 |
|
Прошу помощи с макросом excell
|
|||
---|---|---|---|
#18+
Evina777, а куда будете копировать Range("H15:Q15").Select или на меня тоже пятница действует ... |
|||
:
Нравится:
Не нравится:
|
|||
17.08.2013, 21:29 |
|
Прошу помощи с макросом excell
|
|||
---|---|---|---|
#18+
копировать буду всё в столбец G2 но тоже с диапазоном 14 строк вниз У меня задача какая, значение из строки перенести в стобец и таких строк оочень много:( Просто скопировать и транспортировать не могу, т.к. нужно вставлять значения в столбец под каждой строчкой ... |
|||
:
Нравится:
Не нравится:
|
|||
17.08.2013, 21:41 |
|
Прошу помощи с макросом excell
|
|||
---|---|---|---|
#18+
прошу прощения, не поняла сразу, вставлять буду в G15 ... |
|||
:
Нравится:
Не нравится:
|
|||
17.08.2013, 21:44 |
|
Прошу помощи с макросом excell
|
|||
---|---|---|---|
#18+
Вот так будет точнее 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 ... |
|||
:
Нравится:
Не нравится:
|
|||
17.08.2013, 21:51 |
|
Прошу помощи с макросом excell
|
|||
---|---|---|---|
#18+
Evina777, Например так. Код: vbnet 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11.
... |
|||
:
Нравится:
Не нравится:
|
|||
18.08.2013, 10:39 |
|
Прошу помощи с макросом excell
|
|||
---|---|---|---|
#18+
VSVLAD спасибо большое, буду пробывать ... |
|||
:
Нравится:
Не нравится:
|
|||
18.08.2013, 16:22 |
|
|
start [/forum/topic.php?fid=60&msg=38369844&tid=2156803]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
46ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
55ms |
get tp. blocked users: |
1ms |
others: | 269ms |
total: | 417ms |
0 / 0 |