как в документ Excel вставить несколько строк одной командой VBA? / Microsoft Office

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как в документ Excel вставить несколько строк одной командой VBA?

23 сообщений из 23, страница 1 из 1

как в документ Excel вставить несколько строк одной командой VBA?

#33225017

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

то есть вместо

Range.EntireRow.Insert
Range.EntireRow.Insert
...
Range.EntireRow.Insert

выполнить одну команду???

нужно это для копирования в этот вставленный Range, поэтому хорошо бы иметь сылку (объект Range) на первую (левую, верхнюю) ячейку этого вставленного фрагмента

...

Рейтинг:

0 / 0

19.08.2005, 12:33

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225237

Пользователь2

Гость

Код: plaintext

1.
2.

For i =  1  To  10 
    Range.EntireRow.Insert
Next

...

Рейтинг:

0 / 0

19.08.2005, 13:38

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225272

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

спасибо за отклик

это не то, что нужно

суть в том, что нужна ОДНА команда, заменяющая собой вызов 10, вставлять строки так - тормоза.

речь идет об использовании automation, команды посылаются приложением, так вот сокращение количества команд существенно увеличивает производительность. Дело в этом.

...

Рейтинг:

0 / 0

19.08.2005, 13:48

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225598

глупыйглупый

Гость

неправда. это именно то, что вам нужно.
вы не хотите читать, что вам написали.

EntireRow.Insert
произойдет в количестве штук строк, попадающих в Range

если там 10 строк, то код

Код: plaintext

1.
2.

For i =  1  To  10 
    Range.EntireRow.Insert
Next

вставит всего 100 строк за цикл из десяти шагов.

ЗЫ
вы все-таки подумайте, прежде чем отказаться от этого окончательно.

...

Рейтинг:

0 / 0

19.08.2005, 15:23

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225635

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

к сожалению у меня нет Range с нужным количеством строк, а есть Range перед которым нужно вставить N строк. Получается мне предварительно необходимо создать Range нужного размера и потом позвать его EntireRow.Insert, что в принципе сокращает количество команд, если строк больше двух. Таким образом, делаю вывод, что команды (вставить N строк перед Range) нужной мне нет.

и кроме того в результате нужна ссылка на Range, который соответствует первой ячейке вставленного фрагмента. После EntireRow.Insert можно получить Range = Selection.Cells(1,1), но это еще одна команда. А так хотелось...

...

Рейтинг:

0 / 0

19.08.2005, 15:33

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225645

Leon.

Участник

Откуда: Moscow

Сообщения: 261

Рейтинг: 0 / 0

Создается впечатление, что вы пытаетесь экономить строчки кода.. ;-)

...

Рейтинг:

0 / 0

19.08.2005, 15:36

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225674

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

вполне возможно

генерация отчетов посредством automation сплошной тормоз, по сравнению например с генерацией XML для Office2003 или тектовый отчет

но бывает нужно, поэтому считаю необходимым экономить

...

Рейтинг:

0 / 0

19.08.2005, 15:49

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225711

глупыйглупый

Гость

2 sbgeo
слов, которые вы говорите ("сначала создать диапазон" или "у меня нет диапазона , а у меня есть диапазон перед которым..." ) - я не понимаю.
Или вы хотите вставить строки и знаете (например - можете вычислить)
где это должно произойти, либо вам этого совсем не нужно, и вы еще не нашли слов для выражения своих потребностей.

а "еще одна команда" обязательно понадобится. Insert - это sub.
значения в виде диапазона он не возвращает, а меняет текущий объект диапазона. здесь иных вариантов автоматизации нет.
(так мне кажется)

потому приношу свои извинения за то, что помешал чужому разговору.

...

Рейтинг:

0 / 0

19.08.2005, 16:01

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225762

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

спасибо за внимание

возможно я действительно изъясняюсь не очень понятно, может поэтому и удовлетворительного решения пока не нашел

исходные данные:

на входе есть два объекта Range: RangeTo, RangeWhat

RangeTo - диапазон, перед которым необходимо вставить что-то (а именно RangeWhat)
RangeWhat - диапазон, содержимое которого нужно вставить перед RangeTo

решение вижу в использовании RangeWhat.Copy(RangeDestination), где RangeDestination - диапазон, куда вставляется RangeWhat

итак задача сводится к
- вставке перед RangeTo количества строк, соответствующего кол-ву строк в RangeWhat
- определение RangeDestination, как первой (левой верхней) ячейки вставленного перед RangeTo диапазона

если кто дочитал, большое спасибо

может быть есть более изящное решение?

...

Рейтинг:

0 / 0

19.08.2005, 16:17

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225863

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

лень смотреть на макросы
копните сюда :
скопируйте с листа чонить в буфер обмена это типа RangeWhat
встаньте куданить - RangTo
правая педаль

...

Рейтинг:

0 / 0

19.08.2005, 16:54

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225870

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

clipboard не катит никак, потому и пользую Range.Copy

...

Рейтинг:

0 / 0

19.08.2005, 16:56

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225886

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

sbgeoclipboard не катит никак, потому и пользую Range.Copy
a range.copу куда копирует ??? на жесткий диск что ли ?
вот

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Dim R1 As Range
Dim r2 As Range

Dim r3 As Range

Set R1 = Range("A4:A10")
Set r2 = Range("D11:D18")

r2.Copy
    
R1.Range("A1").Select

Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

...

Рейтинг:

0 / 0

19.08.2005, 17:03

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225915

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

такой алгоритм сейчас и реализован, от него и нужно уйти, а именно уйти от использования Clipboard.

у Range.Copy() есть параметр, Destination, если его опустить, то копируется в Clipboard, иначе же в указанное место. Так вот созданием этого "указанного места" я и занимаюсь.

...

Рейтинг:

0 / 0

19.08.2005, 17:12

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225952

глупыйглупый

Гость

код, занимающийся собственно вставкой пустых строк на заявленных вами
условиях, мог бы быть таким.

Код: plaintext

RangeTo.Range(RangeTo( 1 ,  1 ), RangeTo(RangeWhat.Rows.Count,  1 )).EntireRow.Insert

переписать его можно множеством разных способов.
(уж пяток то - на бегу наберется.)
какой из них в вашем случае окажется лучшим - решайте сами.

...

Рейтинг:

0 / 0

19.08.2005, 17:22

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225957

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

а есть уверенность, что при указании Destionation Excel не использует буфер обмена ?
тогда вперед - построчно ручками.

...

Рейтинг:

0 / 0

19.08.2005, 17:23

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225987

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

глупыйглупыйкод, занимающийся собственно вставкой пустых строк на заявленных вами
условиях, мог бы быть таким.

Код: plaintext

RangeTo.Range(RangeTo( 1 ,  1 ), RangeTo(RangeWhat.Rows.Count,  1 )).EntireRow.Insert

переписать его можно множеством разных способов.
(уж пяток то - на бегу наберется.)
какой из них в вашем случае окажется лучшим - решайте сами.

да, так я и сделал, а хочется так как в топике, ну и х. с ним

спасибо

...

Рейтинг:

0 / 0

19.08.2005, 17:33

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33225991

sbgeo

Участник

Сообщения: 15

Рейтинг: 0 / 0

big-dukeа есть уверенность, что при указании Destionation Excel не использует буфер обмена ?
тогда вперед - построчно ручками.

как бы в доке не читал, но это было бы уж слишком

спасибо

...

Рейтинг:

0 / 0

19.08.2005, 17:35

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#33227072

sergeyvg

Гость

Range("B2").Resize(10).EntireRow.Insert

...

Рейтинг:

0 / 0

22.08.2005, 08:17

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

как в документ Excel вставить несколько строк одной командой VBA?

#37272243

VBA_Kiddy

Гость

Наверное уже не актуально, но всё равно напишу, чтобы было :))

Мне больше пригодился такой вариант для вставки нескольких строк после заданной в Excel из VBA, если известен номер строки и количество вставляемых строк:

Код: plaintext

wsh_t.Range(Rows(iRow), Rows(iRow + nNewRows)).Insert Shift:=xlDown

Кажется он чуть-чуть покрасивее в некоторых случаях..

...

Рейтинг:

0 / 0

20.05.2011, 20:27

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#37272297

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Если совсем честно. то не имеет смысла ВСТАВЛЯТЬ строки в какое-то место.
Если это таблица для БД (список какой-то, например) - проще сделать primary unique identifier (ну, пронумеровать записи, например) и просто добавлять строки в конец списка...

...

Рейтинг:

0 / 0

20.05.2011, 22:17

| Ответить | Цитировать | Написать

как в документ Excel вставить несколько строк одной командой VBA?

#37272332

VBA_Kiddy

Гость

AndreTM ,
а если это НЕ таблица для БД? Или если под таблицей располагаются какие-нибудь дополнительные строки?

...

Рейтинг:

0 / 0

20.05.2011, 23:19

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

как в документ Excel вставить несколько строк одной командой VBA?

#38059230

MegaUm

Гость

Selection.Resize(5).EntireRow.Insert shift:=xlUp

...

Рейтинг:

0 / 0

30.11.2012, 09:36

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

как в документ Excel вставить несколько строк одной командой VBA?

#39458700

runeft

Гость

я использовал такой способ:

Range(Rows(i + 1), Rows(i + n)).Insert

вставка n-строк после строки i

...

Рейтинг:

0 / 0

24.05.2017, 11:23

| Ответить | Цитировать | Написать

23 сообщений из 23, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=37272243&tid=2172682]:	0ms
get settings:	6ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	31ms
get topic data:	9ms
get forum data:	2ms
get page messages:	58ms
get tp. blocked users:	2ms
others:	277ms

total:	407ms