Найти по столбцу последнюю заполненную ячейку по условию - VBA
Формулировка задачи:
Подскажите пожалуйста, как найти по столбцу последнюю заполненную ячейку по условию, например, имеем таблицу с не фиксированным количеством столбцов, нужно вывести информацию из последнего заполненного столбца если группа равна чел.1 и показатель3 ? - информацию нужно вывести на лист2 (где указана точное название группы и паказателя) из лист1
ответ
группа | ПОКАЗАТЕЛЬ | 01.01.2016 | 02.01.2016 | 03.01.2016 | 04.01.2016 | 05.01.2016 | 06.01.2016 |
чел.1 | показатель1 | 1 | 1 | 1 | 1 | 1 | 1 |
чел.1 | показатель2 | 1 | 1 | 1 | 1 | 120 | 10 |
чел.1 | показатель3 | 1 | 1 | 1 | 1 | 1 | 55 |
чел.1 | показатель4 | 1 | 1 | 1 | 1 | 1 | 1 |
чел.1 | показатель5 | 1 | 1 | 1 | 1 | 10 | 15 |
чел.1 | показатель6 | 1 | 1 | 1 | 1 | 1 | 1 |
чел.1 | показатель7 | 1 | 1 | 1 | 1 | 1 | 1 |
чел.1 | показатель8 | 1 | 1 | 1 | 1 | 1 | 1 |
чел.2 | показатель1 | 0 | 0 | 0 | 0 | 0 | 0 |
чел.2 | показатель2 | 0 | 0 | 0 | 0 | 0 | 0 |
чел.2 | показатель3 | 1 | 1 | 1 | 1 | 1 | 1 |
группа | наименование | значение |
чел.1 | показатель3 | 55 |
Решение задачи: «Найти по столбцу последнюю заполненную ячейку по условию»
textual
Листинг программы
If Sheets(1).Cells(i, 1).Value = Sheets(2).Cells(j, 1).Value _ And Sheets(1).Cells(i, 2).Value = Sheets(2).Cells(j, 2).Value _ And Sheets(1).Cells(i, 3).Value = Sheets(2).Cells(j, 3).Value _ Then Sheets(2).Cells(j, 4).Value = Sheets(1).Cells(i, LCS1).Value
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д