Здравствуйте!
Подскажите, пожалуйста, есть таблица, заполняется автоматически, некоторые ячейки в строках пустые.
Нашел макрос, который заполняет все пустые ячейки таблицы значением ячейки выше. Это то, что нужно, но столкнулся с проблемой, заполняет по всему листу, а хотелось бы, чтобы заполнял только в столбцах D E F к примеру. Можете подсобить с этим вопросом? Спасибо огромное!
И второй момент, он почему-то при выполнении сбивает формат поля в некоторых ячейках (дата была в формате Общий 05-03-2020, а после выполнения стала 03.05.2020 в формате дата) сбивается формат, можно ли сохранить формат ячейки при копировании значения? Очень благодарен!
Подскажите, пожалуйста, есть таблица, заполняется автоматически, некоторые ячейки в строках пустые.
Нашел макрос, который заполняет все пустые ячейки таблицы значением ячейки выше. Это то, что нужно, но столкнулся с проблемой, заполняет по всему листу, а хотелось бы, чтобы заполнял только в столбцах D E F к примеру. Можете подсобить с этим вопросом? Спасибо огромное!
Код |
---|
Sub test() Static rngUR As Range: Set rngUR = ActiveWorkbook.ActiveSheet.UsedRange Dim rngBlank As Range: Set rngBlank = rngUR.Find("") While Not rngBlank Is Nothing rngBlank.Value = rngBlank.Offset(-1, 0).Value Set rngBlank = rngUR.Find("", rngBlank) Wend End Sub |