Как произвести слияние ячеек по заданным условиям?

Как произвести слияние ячеек по заданным условиям?, Требуется помощь знатоков VBA

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

Сообщений: 16 Регистрация: 01.01.1970

24.07.2017 14:27:06

Доброго всем дня.
Нужна ваша помощь.
Дана таблица (пример во вложении) в которую вставлено великое множество строк (около 2000) и анализ велся построчно. Внезапно руководству, а их у нас много захотелось таблицу заиметь следующего вида. Далее во вложении. Вручную все это делать - голова треснет, а VBA увы и ах я все никак не освою.
Заранее спасибо

Прикрепленные файлы

Слияние по условию.xlsx (12.71 КБ)

Bema

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

Сообщений: 7911 Регистрация: 15.02.2016

24.07.2017 14:40:02

moneta, доброго и Вам.
1) Объеденяете ячейки B5 и B6
2) Выбираете на панели инструментов формат по образцу (желтая кисточка );
3) Выделяете нужный диапазон зажав ЛКМ;
4) Наслаждаетесь результатом.

Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл

Kuzmich

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

Сообщений: 8039 Регистрация: 21.12.2012

24.07.2017 14:52:30

Код

Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Application.ScreenUpdating = False
   iLastRow = Cells(Rows.Count, "D").End(xlUp).Row
  For i = 5 To iLastRow Step 2
    Range(Cells(i, "B"), Cells(i + 1, "B")).Merge
    Range(Cells(i + 1, "E"), Cells(i + 1, "G")).Merge
  Next
Application.ScreenUpdating = True
End Sub

moneta Пользователь Сообщений: 16 Регистрация: 01.01.1970	#4 24.07.2017 14:55:58 Bema,Самый простой способ лежащий на поверхности и не виден . а я с данными мучался. Видать высыпаться надо. Kuzmich, Спасибо! Пригодится для изучения. Решено.