Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, замена формул на значения в определенном диапазоне (Макросы/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)
 
Ответить
СообщениеДобрый вечер!
Вот этот код делает то что нужно, но проблема в том что он заменяет все ячейки (включая пустые) в столбцах 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 и заканчивая последней ячейкой с данными?
Заранее спасибо!

Автор - Kenibom
Дата добавления - 04.06.2020 в 22:52
Kuzmich Дата: Четверг, 04.06.2020, 23:05 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 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]
 
Ответить
Сообщение[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]

Автор - Kuzmich
Дата добавления - 04.06.2020 в 23:05
Kenibom Дата: Четверг, 04.06.2020, 23:39 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Kuzmich, Это то что нужно, спасибо Вам!
 
Ответить
СообщениеKuzmich, Это то что нужно, спасибо Вам!

Автор - Kenibom
Дата добавления - 04.06.2020 в 23:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, замена формул на значения в определенном диапазоне (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!