Поиск максимального значения в столбце с пустыми ячейками

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск максимального значения в столбце с пустыми ячейками (Макросы/Sub)

Паштет

Дата: Среда, 27.06.2018, 20:51 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

Доброго времени суток!
Нужно найти максимальное значение в столбце, где возможны пропуски и увеличить значение на единицу. Попробовал на примерах такую строчку, но выдает ошибку:
[vba]

Код

zakaz = Application.Max(Sheets("Журнал ИБ").Range("N5:N")) + 1

[/vba]

Ответить

Nic70y

Дата: Среда, 27.06.2018, 20:56 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

Цитата Паштет, 27.06.2018 в 20:51, в сообщении № 1 ()

выдает ошибку

ну конечно

Цитата Паштет, 27.06.2018 в 20:51, в сообщении № 1 ()

"N5:N"

от 5 и до???

ЮMoney 41001841029809

Ответить

InExSu

Дата: Среда, 27.06.2018, 23:26 | Сообщение № 3

Группа: Друзья

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

Сообщений: 648

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

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

Excel 2010, 365

Привет!
[vba]

Код

iRow = 123 ' для примера
zakaz = Application.WorksheetFunction.Max(Sheets("Журнал ИБ").Range("N5:N" & iRow)) + 1

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

_Boroda_

Дата: Четверг, 28.06.2018, 00:41 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Еще поподробнее
[vba]

Код

Sub tt()
      'работаем с листом "Журнал ИБ"
    With Sheets("Журнал ИБ")
          'для этого листа
          'Range("N" & .Rows.Count - как бы встаем в последнюю ячейку столбца N и
          'End(xlUp) - жмем Контрл+СтрелкаВверх
          'Row - получаем номер последней заполненной строки
        r1_ = .Range("N" & .Rows.Count).End(xlUp).Row
          '"N5:N" & r1_ - приклеиваем к N5:N полученный номер и
          'считаем по полученному диапазону МАКС
        zakaz = Application.Max(.Range("N5:N" & r1_)) + 1 '
      'окончание работы с листом "Журнал ИБ"
    End With '
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Паштет

Дата: Четверг, 28.06.2018, 20:56 | Сообщение № 5

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

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

Спасибо!
Мне просто засело в голову, что [vba]

Код

r1_ = .Range("N" & .Rows.Count).End(xlUp).Row

[/vba]будет работать только до первой пустой ячейки. Однако работает так как надо.
Еще раз спасибо.

Ответить

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