Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Простой вопрос новичка - автозаполнение / 3 сообщений из 3, страница 1 из 1
03.08.2006, 14:13:38
    #33897274
spool
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простой вопрос новичка - автозаполнение
есть одна таблица
Код: plaintext
1.
2.
 A  B  C   D
12 15 65 43
Нужно вставить в другую таблицу, чтобы получилось так:
Код: plaintext
1.
2.
A  B  C D  E  F  G H
12   15    65    43
т.е. с разрывом в одну строку.
Как сделать?
...
Рейтинг: 0 / 0
03.08.2006, 14:54:57
    #33897462
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простой вопрос новичка - автозаполнение
Наверное не строку, а столбец.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Sub CopyPaste()
    Dim intI As Integer

    Worksheets("Лист1").Range("A1").CurrentRegion.Copy _
      Destination:=Worksheets("Лист2").Range("A1")

    For intI =  1  To Worksheets("Лист2").Range("A1"). _
      CurrentRegion.Columns.Count -  1 
        Worksheets("Лист2").Cells( 1 , intI *  2 ).EntireColumn.Insert
    Next intI
End Sub
...
Рейтинг: 0 / 0
03.08.2006, 14:58:28
    #33897477
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простой вопрос новичка - автозаполнение
spoolесть одна таблица
Код: plaintext
1.
2.
 A  B  C   D
12 15 65 43
Нужно вставить в другую таблицу, чтобы получилось так:
Код: plaintext
1.
2.
A  B  C D  E  F  G H
12   15    65    43
т.е. с разрывом в одну строку.
Как сделать?

нет такого автозаполнения

просто в первой таблице выделяешь столбец и через правую кнопку миши делаешь "добавить ячейки"
или во второй таблице делаешь ссылки на нужные столбцы
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Простой вопрос новичка - автозаполнение / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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