Доброго времени суток. Подскажите пожалуйста. Есть такая таблица, сформированная в программе. (криво). Как можно обьединить диапазон, без потери данных. И оставляя пустые строки между значениями. Пример выше, какая сейчас. Пример ниже, что необходимо получить.
Доброго времени суток. Подскажите пожалуйста. Есть такая таблица, сформированная в программе. (криво). Как можно обьединить диапазон, без потери данных. И оставляя пустые строки между значениями. Пример выше, какая сейчас. Пример ниже, что необходимо получить. GetiX
Sub u_11() Application.ScreenUpdating = False a = Cells(Rows.Count, "a").End(xlUp).Row For b = a To 1 Step -1 c = Range("a" & b).Value d = Range("c" & b + 1).Value If c <> "" And d <> "" Then Range("c" & b) = Range("c" & b).Value & " " & Range("c" & b + 1).Value Range("d" & b) = Range("d" & b).Value & " " & Range("d" & b + 1).Value Rows(b + 1).Delete End If Next Application.ScreenUpdating = True End Sub
[/vba]
[vba]
Код
Sub u_11() Application.ScreenUpdating = False a = Cells(Rows.Count, "a").End(xlUp).Row For b = a To 1 Step -1 c = Range("a" & b).Value d = Range("c" & b + 1).Value If c <> "" And d <> "" Then Range("c" & b) = Range("c" & b).Value & " " & Range("c" & b + 1).Value Range("d" & b) = Range("d" & b).Value & " " & Range("d" & b + 1).Value Rows(b + 1).Delete End If Next Application.ScreenUpdating = True End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
