Проблемы с ветвлением

[plyacek]

Здравствуйте, уважаемые форумчане. Возникла небольшая проблема при построении ветвления. Допустим есть Столбец О в котором могут быть занесены определенные строковые данные (например, перечислены названия компаний ) а также строки могут оказаться пустыми. Написанный ниже код определяет начальный и конечный номер строки для одинаковых компаний. Но появляются проблемы-
1. если есть разрывы пустыми строками
2. если одноименные названия компаний идут не подряд
например
ТОВ1
ТОВ1
ТОВ2
ТОВ1

1.    For i = 3 To 200
2.    If Range("O" & i).value = Empty And postavshik = Empty Then GoTo 1
    
3.    If Range("O" & i).value <> Empty And postavshik = Empty Then
4.        postavshik = Range("O" & i).value
5.        N = i 'регистрация начального номера
6.        GoTo 1
7.    End If

8.    If Range("O" & i).value = postavshik Then GoTo 1
  

9.    If Range("O" & i).value <> postavshik Then 
10.   K = i
       ...
n-2.  End If
n-1.  1
n.     Next i

[EducatedFool]

Но появляются проблемы
... если одноименные названия компаний идут не подряд

Не понимаю... зачем Вам в этом случае начальный и конечный номер строки для одинаковых компаний?
Ладно бы, они шли подряд - другое дело, по номерам строк можно было бы как-то обработать данные.

Объясните, чего Вы пытаетесь добиться этим кодом, и мы попробуем посоветовать Вам оптимальное решение.
Не помешает и пример файла для наглядности.

И зачем использовать макросы?
Как мне кажется, большую часть Вашей задачи можно реализовать при помощи формул.

[plyacek]

Честно говоря, сейчас я понял, что не совсем в том направлении двигался . Требуется только лишь определить в стобце последний заполненый номер строки, причем возможное содержимое строки известно. Подскажите, пожалуйста, как это можно осуществить. Например ищу в столбце A значение X - нужно поеределить последнюю строку с этим значением

[EducatedFool]

Sub test()
    ' номер строки, в которой ПОСЛЕДНИЙ раз встречается текст "123"
    MsgBox Range("a:a").Find("123", , , , , xlPrevious).Row

    ' номер строки, в которой ПЕРВЫЙ раз встречается текст "123"
    MsgBox Range("a:a").Find("123").Row

    ' номер последней заполненной строки в столбце А
    MsgBox Range("a" & Rows.Count).End(xlUp).Row

    ' значение последней заполненной строки в столбце А
    MsgBox Range("a" & Rows.Count).End(xlUp)

    ' количество значений "123" в выбранном столбце
    MsgBox WorksheetFunction.CountIf(Range("a:a"), "123")
End Sub

В этом примере можно заменить Range("a:a") на columns("A") или columns(1)

[plyacek]

2EducatedFool
Огромное спасибо! вы привели очень ценные методы объектов