Meklēšanas funkcijas MS Excel

[Mezavecis]

Te man ievajadzējās ekselī ar formulu meklēt par worksheet un pēc tam salīdzināt ar tekošo vērtību lauciņā (viens stabiņš kur meklē, otrs - no kā meklē, trešajā izvada rezultātus). It kā ir iebūvētas funkcijas find un search, bet kaut kā nestrādā.

 

Lai gan problēmu atrisināju ar zemāk minēto kodu, bet tomēr man rādās ka bieži šādi varētu vajadzēt. Ir vēl kādas labākas metodes?

 

Sub Skaititajs()
'
' Skaititajs Macro
' Macro recorded 2006.11.01 by martin
'
stat = 4
columnindex = 1
statend1 = 67
statend2 = 200
For i = stat To statend1
vertiba = Cells(i, 2 + columnindex)
statuss = 0
For j = stat To statend2
	If Cells(j, 1 + columnindex) = vertiba Then statuss = 1
Next
If statuss = 1 Then Cells(i, 3 + columnindex) = "Atrasts" Else Cells(i, 3 + columnindex) = "---"
Next

'
End Sub