Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/40: Рейтинг темы: голосов - 40, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 20.11.2015
Сообщений: 28
Excel

Поиск первой непустой ячейки снизу вверх

10.03.2020, 14:44. Показов 8745. Ответов 9

Студворк — интернет-сервис помощи студентам
Добрый день!
Подскажите, знающие люди, есть ли способ в макросах найти первую непустую ячейку в столбце снизу вверх?
Т.е. я знаю, что можно найти последнюю заполненную ячейку в столбце, или первую ячейку, которая содержит определенное значение. Но это все не подходит.

Собственно, задача:

Есть столбец В. В нем встречаются заполненные ячейки (не подряд).
Допустим, я стою на ячейке В35.
Нужно найти значение ближайшей непустой ячейки, которая располагается выше, чем В35 (например, В20).

Т.е. или перебирать все ячейки с В35 и выше, пока не дойду до непустой ячейки.
Или найти последнюю заполненную ячейку в столбце, но только в диапазоне с 1-й до 35-й строки.

Ни тот, ни другой вариант пока не придумала, как написать
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.03.2020, 14:44
Ответы с готовыми решениями:

Поиск непустой ячейки в столбце
Приветствую ! Понимаю, задачка смешная, но мне, как новичку очень нужна помощь :) Нужно написать функцию, которая будет возвращать...

Поиск "снизу - вверх" на форме.
Уважаемые форумчане. Прошу Вас помочь разобраться со следующим вопросом. Есть перечень номеров Таблица1 Номер 1111 6666 3333 ...

Поиск вверх первой пустой ячейки в столбце
Добрый день! Есть файл с двумя листами. На листе один задан один столбец - список артикулов, к которым нужно подставить данные (название...

9
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
10.03.2020, 15:07
Лучший ответ Сообщение было отмечено IraSh как решение

Решение

IraSh,
Цитата Сообщение от IraSh Посмотреть сообщение
Есть столбец В. В нем встречаются заполненные ячейки (не подряд).
Допустим, я стою на ячейке В35.
Нужно найти значение ближайшей непустой ячейки, которая располагается выше, чем В35 (например, В20).
Visual Basic
1
2
3
4
5
6
7
8
Sub MMM()
For i = 34 To 1 Step -1
    If Cells(i, 2).Value <> 0 Then
        MsgBox ("значение ближайшей непустой ячейки,которая располагается выше, чем В35= " & Cells(i, 2).Value)
        Exit Sub
    End If
Next
End Sub
1
3946 / 2339 / 790
Регистрация: 02.11.2012
Сообщений: 6,214
10.03.2020, 15:54
Visual Basic
1
ActiveCell.End(xlUp).Select
0
0 / 0 / 0
Регистрация: 20.11.2015
Сообщений: 28
11.03.2020, 14:55  [ТС]
Narimanych, спасибо! Это оказалось очень просто, как все гениальное))

Добавлено через 3 минуты
Vlad999, этот код ищет последнюю заполненную ячейку снизу вверх от активной?
0
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
11.03.2020, 15:20
Цитата Сообщение от IraSh Посмотреть сообщение
Vlad999, этот код ищет последнюю заполненную ячейку снизу вверх от активной?
Да...
0
0 / 0 / 0
Регистрация: 20.11.2015
Сообщений: 28
11.03.2020, 15:27  [ТС]
Понятно, спасибо.
Это не совсем то, т.к. нужна первая заполненная ячейка. Вариант с циклом работает лучше всего.
0
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
11.03.2020, 15:39
IraSh,

Код Влада лучше.
Я неправильно написал (не понял Ваш вопрос) .
Он ( код) ищет то, что Вам нужно....
0
0 / 0 / 0
Регистрация: 20.11.2015
Сообщений: 28
11.03.2020, 21:51  [ТС]
Просто я адаптировала под себя Ваш вариант немного.
В итоге, работает так:
Visual Basic
1
2
3
4
5
6
7
a = ActiveCell.Row
For i = a To 1 Step -1
If Cells(i, 2).Value <> 0 Then
LastRow3 = i
GoTo 2:
End If
Next
0
3946 / 2339 / 790
Регистрация: 02.11.2012
Сообщений: 6,214
12.03.2020, 11:10
Цитата Сообщение от IraSh Посмотреть сообщение
ищет последнюю заполненную ячейку снизу вверх от активной?
ну если идти снизу вверх то это будет не последняя а первая заполненная.
0
Модератор
Эксперт MS Access
 Аватар для shanemac51
12219 / 5061 / 813
Регистрация: 07.08.2010
Сообщений: 14,920
Записей в блоге: 4
12.03.2020, 11:15
Vlad999,
не обязательно
оооо1
aaa 
jjj 
sssss2
ggggg текущая 
sssss2
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.03.2020, 11:15
Помогаю со студенческими работами здесь

Как вытащить текст из самой первой непустой ячейки в диапазоне?
Здравствуйте! Помогите пожалуйста чайнику составить формулу для того, чтобы найти актуальный график работы сотрудника из диапазона ячеек,...

Поиск непустой ячейки
Помогите сделать следующее: в столбце К нужно высчитать разницу между значениями столбцов B-I: от второго значения в столбце отнимать...

Поиск пустой/непустой ячейки в меняющемся диапазоне
Добрый день, В формуле надо, чтобы ячейка в столбце B проверяла соседнюю ячейку из столбца A и: если ячейка из А пустая, то нужно...

Поиск непустой ячейки в столбце и присвоение ей значения
Помогите пожалуйста в Excel нужно сделать поиск не пустой ячейки (числа) в столбце и присвоить ей значение из того, которое выше, но на...

Поиск первой НЕ пустой ячейки
Привет всем! Помогите пожалуйста справится с задачей есть табличка из двух столбцов (в приложении она продублирована 2 раза для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru