Цикл по колонке содержащей объединенные ячейки

@винс · Регистрация: 16.03.2012

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

Доброе время суток! Собственно в названии темы все показано, но я повторюсь. Как пройтись циклом по всей колонке? Я пишу такой код, но он доходит до первой соединенной ячейки и останавливается

Visual Basic

Sub Кнопка_Поиск()
    Dim CountRow As Integer
    CountRow = Range("A1").End(xlDown).Row
    For i = 1 To CountRow
        If Cells(i, 1).Value = "Итого" Then
            MsgBox ("Stoka = " & i)
        End If
    Next i
End Sub

@Казанский · 11.01.2013, 13:37

Как это - останавливается? Пример покажите.
Последнюю заполненную ячейку лучше искать так:

Visual Basic

1	CountRow = Cells(Rows.Count, 1).End(xlUp).Row

@Hugo121 · 11.01.2013, 14:39

Натыкается на первую пустую в объединённой и останавливается - правильно, т.к. на первой пустой счёт строк и закончился.
Кроме того, по всей колонке код точно с таким типом счётчика не пойдёт - нужно Long!

toiai · 11.01.2013, 15:54

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

Натыкается на первую пустую в объединённой и останавливается - правильно, т.к. на первой пустой счёт строк и закончился

Как понять то? Код работает без проблем до последнего ряда заполненной колонки.

@Hugo121 · 11.01.2013, 19:13

Не было бы мне лениво - я бы выложил файл, на котором код ТС (с End(xlDown)) не идёт дальше третьей строки, а всего заполнено 10.
А вообще без примера автора - речь не о чём... Может у него объединение горизонтальное

Но что точно видно - что Integer тут не годится, если нужно весь столбец пробежать.

Добавлено через 11 минут
Да даже и на Вашем примере этот код "наврёт", если например объединить A51 и A52 - "Итого" будет совершенно очевидно лежать в 52 строке (хотя в адресе 51, что и покажет код).
Но ведь правее в 52 строке могут быть данные, к которым логически привязано это "Итого"...
В общем, объединение - вред!

Добавлено через 1 час 15 минут
Ещё вариант:

Visual Basic

Sub tt()
    Dim cc As Range
    For Each cc In UsedRange.Columns(1).Cells
        If cc.Value = "Итого" Then MsgBox ("Stroka = " & cc.Row)
    Next
End Sub

@Hugo121 6945 / 2849 / 549 Регистрация: 19.10.2012 Сообщений: 8,724
	11.01.2013, 14:39	3
	Натыкается на первую пустую в объединённой и останавливается - правильно, т.к. на первой пустой счёт строк и закончился. Кроме того, по всей колонке код точно с таким типом счётчика не пойдёт - нужно Long! 0

	11.01.2013, 19:13