Страницы: 1
RSS
Как произвести слияние ячеек по заданным условиям?, Требуется помощь знатоков VBA
 
Доброго всем дня.
Нужна ваша помощь.
Дана таблица (пример во вложении) в которую вставлено великое множество строк (около 2000) и анализ велся построчно. Внезапно руководству, а их у нас много захотелось таблицу заиметь следующего вида. Далее во вложении. Вручную все это делать - голова треснет, а VBA увы и ах я все никак не освою.
Заранее спасибо
 
moneta, доброго и Вам.
1) Объеденяете ячейки B5 и B6
2) Выбираете на панели инструментов формат по образцу (желтая кисточка );
3) Выделяете нужный диапазон зажав ЛКМ;
4) Наслаждаетесь результатом.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
Код
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
 
Bema,Самый простой способ лежащий на поверхности и не виден :). а я с данными мучался. Видать высыпаться надо.
Kuzmich, Спасибо! Пригодится для изучения.
Решено.
Страницы: 1
Читают тему (гостей: 1)
Наверх