Поиск адреса ячейки по условию

@Olga_M · Регистрация: 19.10.2011

Студворк — интернет-сервис помощи студентам

Добрый день!
Недавно стала писать макросы. Помогите пожалуйста с кодом, а то уже голову сломала.
Задача заключ в следующем. Данные разбиты по сгруппированным ячейкам. Необходимо найти в первом столбце ячейку удовл. условию. Определить кол-во ячеек вход. в группировку и скопировать эти ячейки в другй файл.
Пыталась сделать через 2 цикла, первый находит необходимую ячейку по условию, через счетчик узнаем № строки, а потом начинается второй цикл в котором определ кол-во ячеек вход в группировку. Написала только 1 цикл поиска ячейки, но № строки выводится неправильно. Не могу понять в чем ошибка.

Visual Basic
1
2
3
4
5
6
7
For i = 1 To 1000
i = i + 1
If Application.Workbooks.ActiveSheet.Cells(i, 1).Value = "CЭР" Then Exit For
 
Application.Workbooks.ActiveSheet.Range("A1002") = i ' Для проверки выводит № строки в данную ячейку  
Next i
End If

@XoFfiCEr · 20.10.2011, 09:49

Во первых зачем тут

Visual Basic
1
i = i + 1

переменная цикла и так автоинкрементируется.

Добавлено через 3 минуты
Вместо

Сообщение от Olga_M

Visual Basic
1
If Application.Workbooks.ActiveSheet.Cells(i, 1).Value = "CЭР" Then Exit For

просто

Visual Basic
1
If ActiveSheet.Cells(i, 1).Value = "CЭР" Then Exit For

аналогично и ниже

Добавлено через 5 минут

Сообщение от Olga_M

Visual Basic
1
2
3
4
5
6
7
For i = 1 To 1000
i = i + 1
If Application.Workbooks.ActiveSheet.Cells(i, 1).Value = "CЭР" Then Exit For
 
Application.Workbooks.ActiveSheet.Range("A1002") = i ' Для проверки выводит № строки в данную ячейку  
Next i
End If

Visual Basic
1
2
3
4
5
6
For i = 1 To 1000
If ActiveSheet.Cells(i, 1).Value = "CЭР" Then
       Exit For
End If
Next i
ActiveSheet.Range("A1002") = i ' Для проверки выводит № строки в данную ячейку

Хотя я не совсем понял про сгрупированные ячейки.

@Olga_M · 20.10.2011, 09:54 **[ТС]**

Условие почему-то не выполняется! Цикл не останавливается! В проверяемой ячейке видно пересчет строк и конечный результат 1000, т.е цикл остан когда проходит до конца.

@Казанский · 20.10.2011, 10:01

Olga_M,
в этом примере диапазон выделяется. Вместо выделения вставьте нужную команду.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Olga_M()
Dim i&, j&, lastRow&
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
    If Cells(i, 1) = "СЭР" Then
        For j = i + 1 To lastRow
            If Cells(j, 1) <> "СЭР" Then Exit For
        Next
        Range(Cells(i, 1), Cells(j - 1, 1)).Select
        Exit For
    End If
Next
End Sub

@Olga_M · 20.10.2011, 10:15 **[ТС]**

Добавлено через 9 минут
Огромнейшее вам спасибо!!!!!!!!!!!!!!!!!!!!!!!!
Все работает! :yahoo:

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Olga_M 1 / 1 / 0 Регистрация: 19.10.2011 Сообщений: 11
	20.10.2011, 09:54 [ТС]
	Условие почему-то не выполняется! Цикл не останавливается! В проверяемой ячейке видно пересчет строк и конечный результат 1000, т.е цикл остан когда проходит до конца. 0

@Olga_M 1 / 1 / 0 Регистрация: 19.10.2011 Сообщений: 11
	20.10.2011, 10:15 [ТС]
	Добавлено через 9 минут Огромнейшее вам спасибо!!!!!!!!!!!!!!!!!!!!!!!! Все работает! :yahoo: 0