Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавить пустые строки после каждой группы строк - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавить пустые строки после каждой группы строк (Формулы/Formulas)
Добавить пустые строки после каждой группы строк
Sortafreel Дата: Пятница, 12.02.2016, 12:30 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
День добрый.

Есть файл с промеченными группами строк:

Столбец 1 Столбец 2
Какое-то слово 1
Какое-то слово 1
Какое-то слово 1
Какое-то слово 2
Какое-то слово 2
Какое-то слово 2
Какое-то слово 2
Какое-то слово 3
Какое-то слово 3

В первом столбце - текст, во втором - собственно, номер группы. Нужно добавить по 3 пустых строки после каждой группы. Как это можно сделать максимально простым путем? :)
 
Ответить
СообщениеДень добрый.

Есть файл с промеченными группами строк:

Столбец 1 Столбец 2
Какое-то слово 1
Какое-то слово 1
Какое-то слово 1
Какое-то слово 2
Какое-то слово 2
Какое-то слово 2
Какое-то слово 2
Какое-то слово 3
Какое-то слово 3

В первом столбце - текст, во втором - собственно, номер группы. Нужно добавить по 3 пустых строки после каждой группы. Как это можно сделать максимально простым путем? :)

Автор - Sortafreel
Дата добавления - 12.02.2016 в 12:30
Wasilich Дата: Пятница, 12.02.2016, 13:02 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 868
Репутация: 221 ±
Замечаний: 0% ±

2003
Строки можно вставлять только макросом, а это в ветке "Вопросы по VBA"
[vba]
Код
Sub www()
  Dim s&,  i&, x
  s = Range("A" & Rows.Count).End(xlUp).Row
  x = Cells(s, 2)
  For i = s To 1 Step -1
      If Cells(i, 2) <> x Then
        x = Cells(i, 2)
        Rows(i + 1 & ":" & i + 3).Insert Shift:=xlDown
      End If
  Next
End Sub
[/vba]


Сообщение отредактировал Wasilic - Пятница, 12.02.2016, 13:20
 
Ответить
СообщениеСтроки можно вставлять только макросом, а это в ветке "Вопросы по VBA"
[vba]
Код
Sub www()
  Dim s&,  i&, x
  s = Range("A" & Rows.Count).End(xlUp).Row
  x = Cells(s, 2)
  For i = s To 1 Step -1
      If Cells(i, 2) <> x Then
        x = Cells(i, 2)
        Rows(i + 1 & ":" & i + 3).Insert Shift:=xlDown
      End If
  Next
End Sub
[/vba]

Автор - Wasilich
Дата добавления - 12.02.2016 в 13:02
Sortafreel Дата: Пятница, 12.02.2016, 13:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Строки можно вставлять только макросом, а это в ветке "Вопросы по VBA"


Понял, спасибо большое, разберусь :)
 
Ответить
Сообщение
Строки можно вставлять только макросом, а это в ветке "Вопросы по VBA"


Понял, спасибо большое, разберусь :)

Автор - Sortafreel
Дата добавления - 12.02.2016 в 13:51
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавить пустые строки после каждой группы строк (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!