Заполнить ячейки и удалить пустые строки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Заполнить ячейки и удалить пустые строки (Формулы/Formulas)

alexkarth

Дата: Вторник, 14.03.2017, 12:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день. Необходим макрос для обработки данных на странице. На странице два столбца "группа" и "фраза". Каждой группе соответствует набор определенных фраз. Каждая фраза содержит название группы.

Задач несколько:
1. Необходимо заполнить пустые ячейки в столбце "группа". Содержимое ячейки - это название соответствующей группы.
2. Удалить пустые строки
3. Количество групп, количество фраз в каждой группе будут различаться. Поэтому макрос должен это учитывать.

В качестве примера прикрепил файл. Здесь на Лист1 исходный вид данных, на Лист2 конечный результат. Помогите пожалуйста

К сообщению приложен файл: 5849776.xlsx (76.2 Kb)

Ответить

sboy

Дата: Вторник, 14.03.2017, 14:46 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
[vba]

Код

Sub qwerty()
il = Cells(Rows.Count, 2).End(xlUp).Row
q = WorksheetFunction.CountA(Range("A2:A" & il))
ilnext = 2
    For x = 1 To q
        il = Cells(Rows.Count, 2).End(xlUp).Row
        il1 = Cells(ilnext, 1).End(xlDown).Row
            If il1 > il Then il1 = il + 1
        Range("A" & ilnext & ":A" & il1 - 1).Value = Cells(ilnext, 1).Value
        Rows(ilnext).Delete xlShiftUp
        ilnext = il1 - 1
    Next x
End Sub

[/vba]

Яндекс: 410016850021169

Ответить

Заполнить ячейки и удалить пустые строки (Формулы/Formulas)

Страница 1 из 1
1