Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос на копирование текста в другую ячейку и удаление строки
 
#1
15.07.2019 19:39:36
Добрый день, уважаемые форумчане!
Прошу помощи в создании макроса.
В файле-примере в части строк заполнены все ячейки этих стобцов, в других строках заполнена только ячейка H.
Задача - в строке с одной заполненной ячейкой H скопировать текст этой ячейки и добавить его через пробел к тексту ячейки над ней (в этой строке как раз заполнены все ячейки), после этого строку удалить.
Далее поиск следующей строки с текстом только в ячейке H и повторение операции, так до конца листа.
Бывает такое, что есть несколько строк подряд с текстом только в H. Если макрос будет идти сверху вниз по строкам, то, как я понимаю, текст таких ячеек будет записываться в правильном порядке в заполненную строку над ними.
Макрос попроще сделал бы сам, но с этим (как я понимаю, нужны переменные if...then...else) плюхаюсь уже несколько часов...
Спасибо!
Изменено: AlexVi - 15.07.2019 20:13:01
 
 
 
#2
15.07.2019 19:58:13
AlexVi, не нашел в столбце G данных. Может быть вы имеете в виду столбец H?
 
 
 
#3
15.07.2019 20:01:40
Да, спасибо большое, в этом файле это столбец H!
Сейчас перепроверил, в других файлах это столбец G.
 
 
 
#4
15.07.2019 21:58:23
Код
Sub qqq()
   Dim lr As Long
   Application.ScreenUpdating = False
For lr = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
 If Cells(lr, 1).Value = "" And _
    Cells(lr, 2).Value = "" And _
    Cells(lr, 3).Value = "" And _
    Cells(lr, 4).Value = "" And _
    Cells(lr, 5).Value = "" And _
    Cells(lr, 6).Value = "" Then
    Cells(lr - 1, 8).Value = _
    Cells(lr - 1, 8).Value & " " & _
    Cells(lr, 8).Value
    Rows(lr).Delete
 End If
Next lr
    Application.ScreenUpdating = True
End Sub
 
 
 
#5
15.07.2019 22:13:35
_Igor_61, Идеально! Огромное спасибо! =)
 
 
 
Страницы: 1
Наверх