Работаю с файлами разной длинны пытаюсь оптимизировать процесс но не пойму как дать понять макросу что формулы нужно применить к в которых есть значения а пустые не трогать, если кто с таким сталкивался буду благодарен за подсказки в этом направлении
Создайте файл-пример и поясните на его основе, что нужно сделать.
Добрый день прикрепил файл примера что должно быть на выходе
Написал вам два письма на почту с заголовком "Письмо с Форума по 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
Спасибо огромное работает