Как использовать VBA чтобы просуммировать ячейки?

[coshi]

Есть лист (плохо форматированный), полученный импортом текстового файла. В некоторых ячейках оного есть цифры в формате xxxx-xx (рубли и копейки). Такие ячейки встречаются как после ячеек со значениями, например, "стоимость1" так и после ячеек "стоимость2", причём на той же строке!
Цель - посчитать сумму по всем ячейкам 1 типа и ячейкам 2 типа отдельно.
Я даже не знаю с чего начать. Нужно как-то делать перебор по всем ячейкам (подскажите как это сделать) и реагировать на ячейки в котрых написано "стоимость1" и "стотимость2".
Если есть какие-нить идеи, жду! Заранее спасибо.
TIA

[GSerg]

Таки поподробнее про формат данных...

[coshi]

Например 3000-00
Число цифр слева каждый раз разное.
Я как раз ща сижу разбираюсь с этим currency
Пишу так

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

Dim Sum As Currency
Sum = 0
...
Sum = Sum + ActiveSheet.Cells(i, j+1).Value

Есс-но пишет Type Mismatch bla-bla-bla
Чё делать ?

[GSerg]

Гы

dim sum as single, s as string
...
s=activesheet.cells(i,j+1).value
mid$(s,len(s)-2,1)="."
sum=sum+val(s)

[coshi]

Спасибо, вроде получилось