powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Добавление чересстрочно пустых строк в таблицу
4 сообщений из 4, страница 1 из 1
Добавление чересстрочно пустых строк в таблицу
    #37315098
trendus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Таблица с заголовком содержит пару сотен заполненых строк.
Нужно к каждой такой строке добавить ниже пустую.
Подскажите, как правильно в коде excel это прописать, а то возникает проблема с последней строкой, нужно, чтобы увеличившийся диапазон таблицы включал и последнюю пустую строчку.
...
Рейтинг: 0 / 0
Добавление чересстрочно пустых строк в таблицу
    #37315162
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
trendus,

Я надстройкой делаю www.icqrobot.ru
...
Рейтинг: 0 / 0
Добавление чересстрочно пустых строк в таблицу
    #37315227
trendus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Мне нужно дополнить кодом уже существующий проект
...
Рейтинг: 0 / 0
Добавление чересстрочно пустых строк в таблицу
    #37315240
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
trendus,

неужели нельзя поиск на сайте использовать?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
   Sub Row_insert()

        Dim r As Long, rwsCount As Long
    
        Range("A1").Select
        rwsCount = ActiveCell.CurrentRegion.Rows.Count
    

        For r = rwsCount To  2  Step - 1 
            Rows(r).Insert Shift:=xlShiftDown
        Next r

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


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