Помогите с поиском

[Dasty]

Всем Доброго времени суток!
Простите за возможно глупый вопрос, я не программист но кой чего пришлось писать
Задача у меня следующая: есть экслевская таблица в виде:

А

Каркас(А)
Каркаса стен (Б)
**ОТМ_1
**ОТМ_2
Каркас купола (В)

Я прохожусь по данному столбцу следующим кодом:

Код: Выделить всё


endCount = Excel.ActiveCell.Range("A1").End(xlToRight).Row

For startCount = 1 To endCount
    Set sub_master_products1 = master_product1.Products
    If ws.Range("A" & startCount ) = "**" Then
    Set sub_master_product1 = sub_master_products1.AddNewProduct(" ")
    End If
    Set sub_master_product1 = sub_master_products1.AddNewProduct(ws.Range("A" & startCount ))
Next startCount


Беда в том что строка:

Код: Выделить всё

If ws.Range("A" & startCount ) = "**" Then

не работает как мне надо, а именно опознавать ячейку только по двум первым символам т.е. **, подскажите как сие реализовать, указание чёткого имени не допустимо т.е. постоянны только **, и еще как можно затем получить целиком значение ячейки начинающейся на ** ??

простите если выразился не ясно....

СПАСИБО ВСЕМ!

[-EV-]

и какое значение получает EndCount?
Если поиск ведется по столбцу, то почему

Код: Выделить всё

End(xlToRight)

а не

Код: Выделить всё

End(xlDown)

[bi-lya]

1.

Код: Выделить всё

If InStr(1, ws.Range("A" & startCount), "**") <> 0 Then

Также вы можете определять по ОТМ_, например, если что

2.

Код: Выделить всё

myZnachenie = ws.Range("A" & startCount ).value

Ну а для определения последней заполненой ячейки диапазона лучше пробуйте это:

Код: Выделить всё

endCount = Range("A1").SpecialCells(xlLastCell).Row

[HandKot]

это имелось в виду ?
так

Код: Выделить всё

    If Range("A1").Value Like "[*][*]*" Then Debug.Print "1"
    If Range("A2").Value Like "[*][*]*" Then Debug.Print "2"
    If Range("A3").Value Like "[*][*]*" Then Debug.Print "3"

или так

Код: Выделить всё

    If Left(Range("A1").Value, 2) = "**" Then Debug.Print "1"
    If Left(Range("A2").Value, 2) = "**" Then Debug.Print "2"
    If Left(Range("A3").Value, 2) = "**" Then Debug.Print "3"

[Dasty]

Спасибо за ответы Все получилось!
Если можно с Вашего позволения, еще один вопрос

Код: Выделить всё

For startCount = 1 To endCount
    Set sub_master_products1 = master_product1.Products
    If ws.Range("A" & startCount ) = "**" Then
    Set sub_master_product1 = sub_master_products1.AddNewProduct(" ")
    End If
    Set sub_master_product1 = sub_master_products1.AddNewProduct(ws.Range("A" & startCount ))
Next startCount

как заставить проделать следующее я так понимаю, что ws.Range("A" & startCount ) возвращает текущую найденную ячейкук примеру **ОТМ_1, а как мне в теле цикла получить предыдущую ячейку т.е. Каркаса стен (Б) ?
Еще Раз Спасибо!

[bi-lya]

Так как получилось-то?
Отталкиваясь от ws.Range("A" & startCount )?

Код: Выделить всё

myZnachenie = ws.Range("A" & startCount - 1).value

Наверное так