Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия

Автор Посетитель, 26 сентября 2023, 12:42

Посетитель

Работаю с файлами разной длинны пытаюсь оптимизировать процесс но не пойму как дать понять макросу что формулы нужно применить к в которых есть значения а пустые не трогать, если кто с таким сталкивался буду благодарен за подсказки в этом направлении

Администратор

Создайте файл-пример и поясните на его основе, что нужно сделать.

Посетитель


Администратор

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

=ЕСЛИ(A1<>"";ПРАВСИМВ(A1;4);"")

Посетитель

Спасибо, но макрос не видит сколько строк находится и каким строкам применять правило если установить по умолчанию на максимальное количество строк то после сортировки от а до я в первую очередь вылезают пустые строчки. данное действие промежуточное в макросе и упираюсь в эту проблему(

Администратор

Вы предоставили неточный пример. Вам надо сделать другой файл-пример и на его основе пояснить, что нужно сделать.


Посетитель

Нужен макросс который заменяет протягивание формулы до последней заполненной ячейки (когда на формулу справа внизу нажимаю два раза на чёрный крестик)

Посетитель

Вот часть кода макросса
Selection.AutoFill Destination:=Range("H2:H999")
Range("H2:H900").Select

нужно что бы протягивал до последней заполнено ячейки в столбце G иначече фурмалы в пустых ячейках мешают дальнейшей работе макроса(

Администратор

Sub Макрос()

    Dim Lr As Long
   
   
    ' Поиск последней строки в столбце G.
        ' End не ищет в скрытых строках.
    Lr = Cells(Rows.Count, "G").End(xlUp).Row
   
    ' Протягивание формулы, которая находится ячейке H2.
    Range("H2").AutoFill Destination:=Range("H2:H" & Lr)

End Sub