Макрос, замена формул на значения в определенном диапазоне

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Макрос, замена формул на значения в определенном диапазоне - Мир MS Excel

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

Макрос, замена формул на значения в определенном диапазоне (Макросы/Sub)

Макрос, замена формул на значения в определенном диапазоне

Kenibom

Дата: Четверг, 04.06.2020, 22:52 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2016

Добрый вечер!
Вот этот код делает то что нужно, но проблема в том что он заменяет все ячейки (включая пустые) в столбцах D и H до 1048576

[vba]

Код

Sub Замена_формул_на_значения_в_столбце_D_и_H()
ActiveSheet.Range("D:D").Value = ActiveSheet.Range("D:D").Value
ActiveSheet.Range("H:H").Value = ActiveSheet.Range("H:H").Value
End Sub

[/vba]

Как ограничить диапазон начиная с D20 и H20 и заканчивая последней ячейкой с данными?
Заранее спасибо!

К сообщению приложен файл: 6614113.xlsm (21.1 Kb)

Ответить

Kuzmich

Дата: Четверг, 04.06.2020, 23:05 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 715

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

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

Excel 2003

[vba]

Код

Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "D").End(xlUp).Row
ActiveSheet.Range("D20:D" & iLastRow).Value = ActiveSheet.Range("D20:D" & iLastRow).Value

[/vba]

Ответить

Kenibom

Дата: Четверг, 04.06.2020, 23:39 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2016

Kuzmich, Это то что нужно, спасибо Вам!

Ответить

Макрос, замена формул на значения в определенном диапазоне (Макросы/Sub)

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