Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как макросом пройтись по списку добавить каждому наименованию 30 строк и объединить по 30 ячеек
 
#1
14.10.2020 20:46:49
Здравствуйте, подскажите с такой проблемой. На листе "Фрукты" имеется перечень фруктов, можно ли сделать так чтобы макросом пройтись по списку добавить каждому наименованию 30 строк и объединить по 30 ячеек, и так до конца списка. В примере на листе "Фрукты" как будет на начальном этапе, а на листе "Список" как должно получиться.
 
 
 
#2
14.10.2020 21:04:20
лучше всего это сделать макросом
если вы не понимаете чего-то конкретного - задайте свой конкретный вопрос - вам помогут, скорее всего, если вам нужно готовое решение задачи - тут есть раздел РАБОТА, называете сколько готовы заплатить, если кто-то готов сделать за эти деньги - напишет, если никто не готов  - вы услышите в ответ звенящую тишину... или  Kuzmichа
Изменено: Ігор Гончаренко - 14.10.2020 21:33:47
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
14.10.2020 21:07:43
Код
Sub Insert_30()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "C").End(xlUp).Row
  For i = iLastRow To 24 Step -1
    Rows(i + 1).Resize(29).Insert
    Range("C" & i & ":C" & i + 29).MergeCells = True
  Next
End Sub
 
 
 
#4
14.10.2020 21:17:41
Цитата
Kuzmich написал:
Kuzmich
А можете дописать, чтобы каждые 29 строк скрывались, на как в примере?
 
 
 
#5
14.10.2020 21:27:30
Добавьте в конец цикла строку
Код
    Range("C" & i + 1 & ":C" & i + 29).EntireRow.Hidden = True
 
 
 
#6
14.10.2020 21:29:58
Voltz,
Цитата
на как в примере
на каком языке это?)
Код
Sub Insert_30()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "C").End(xlUp).Row
  For i = iLastRow To 24 Step -1
    Rows(i + 1).Resize(29).Insert
    Range("C" & i & ":C" & i + 29).MergeCells = True
    Rows(i + 1 & ":" & i + 1 + 28).Hidden = True
  Next
End Sub
Изменено: Mershik - 14.10.2020 21:30:39
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#7
14.10.2020 21:36:11
Kuzmich, спасибо Вам большое.
 
 
 
Страницы: 1
Наверх