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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Последняя ячейка с числом в диапазоне
Последняя ячейка с числом в диапазоне
pechkin Дата: Понедельник, 24.02.2014, 20:46 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Подскажите пожалуйста как в определенном диапазоне, например А1:А10, содержащем в начале несколько чисел,а затем и несколько формул (в "пустых" ячейках), макросом найти последнюю ячейку, содержащую число или первую ячейку с формулой. Пробовал такую запись, но она находит последнюю ячейку с формулой, которая "пустая" [vba]
Код
jLastRow = Cells(Rows.Count, 1).End(xlUp).Row
[/vba]
Спасибо!


Сообщение отредактировал pechkin - Понедельник, 24.02.2014, 20:46
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста как в определенном диапазоне, например А1:А10, содержащем в начале несколько чисел,а затем и несколько формул (в "пустых" ячейках), макросом найти последнюю ячейку, содержащую число или первую ячейку с формулой. Пробовал такую запись, но она находит последнюю ячейку с формулой, которая "пустая" [vba]
Код
jLastRow = Cells(Rows.Count, 1).End(xlUp).Row
[/vba]
Спасибо!

Автор - pechkin
Дата добавления - 24.02.2014 в 20:46
nilem Дата: Понедельник, 24.02.2014, 21:14 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
если диапазон с константами непрерывный, то можно попробовать так:
[vba]
Код
Sub test()
Dim lr&
With Range("A1:A100").SpecialCells(xlCellTypeConstants)
     lr = .Row + .Rows.Count - 1
End With
MsgBox lr
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеесли диапазон с константами непрерывный, то можно попробовать так:
[vba]
Код
Sub test()
Dim lr&
With Range("A1:A100").SpecialCells(xlCellTypeConstants)
     lr = .Row + .Rows.Count - 1
End With
MsgBox lr
End Sub
[/vba]

Автор - nilem
Дата добавления - 24.02.2014 в 21:14
pechkin Дата: Понедельник, 24.02.2014, 21:45 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Nilem, спасибо! Ваш Макрос работает, как Вы и указали с константами. А возможно ли Макросом отличить число,пересчитанное формулой от константы? Может не совсем точно могу сформулировать задачу. Вообщем в столбце есть просто чила (константы) и числа возвращенные формулой (т.е.в ячейке находится число) и "пустые" ячейки с формулами (которые еще не отработали на пересчет) Так вот нужно найти последнюю ячейку с числом или первую "пустую" с формулой. Спасибо!
 
Ответить
СообщениеNilem, спасибо! Ваш Макрос работает, как Вы и указали с константами. А возможно ли Макросом отличить число,пересчитанное формулой от константы? Может не совсем точно могу сформулировать задачу. Вообщем в столбце есть просто чила (константы) и числа возвращенные формулой (т.е.в ячейке находится число) и "пустые" ячейки с формулами (которые еще не отработали на пересчет) Так вот нужно найти последнюю ячейку с числом или первую "пустую" с формулой. Спасибо!

Автор - pechkin
Дата добавления - 24.02.2014 в 21:45
nilem Дата: Вторник, 25.02.2014, 07:56 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
"...и числа возвращенные формулой (т.е.в ячейке находится число)"
[vba]
Код
With Range("A1:A100").SpecialCells(xlCellTypeFormulas, xlNumbers)
[/vba]
"...и "пустые" ячейки с формулами", формулы типа =ЕСЛИ(А1<В1;"") - формула может вернуть пустую строку, т.е. текст
[vba]
Код
With Range("A1:A100").SpecialCells(xlCellTypeFormulas, xlTextValues)
[/vba]
Почитайте в справке про SpecialCells, там еще много всего.


Яндекс.Деньги 4100159601573
 
Ответить
Сообщение"...и числа возвращенные формулой (т.е.в ячейке находится число)"
[vba]
Код
With Range("A1:A100").SpecialCells(xlCellTypeFormulas, xlNumbers)
[/vba]
"...и "пустые" ячейки с формулами", формулы типа =ЕСЛИ(А1<В1;"") - формула может вернуть пустую строку, т.е. текст
[vba]
Код
With Range("A1:A100").SpecialCells(xlCellTypeFormulas, xlTextValues)
[/vba]
Почитайте в справке про SpecialCells, там еще много всего.

Автор - nilem
Дата добавления - 25.02.2014 в 07:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Последняя ячейка с числом в диапазоне
  • Страница 1 из 1
  • 1
Поиск:

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