MS Excel

Nevím jak je to myšleno s oblastí, ale počítat čísla končící 1 lze třeba takto:
Public Sub pocitej()
Dim pocet As Single
Dim radek As Single
radek = 1
pocet = 0

Do While Cells(radek, 1) <> ""
If Right(Cells(radek, 1), 1) = "1" Then pocet = pocet + 1
radek = radek + 1
Loop

MsgBox pocet
End Subcitovat

Sory, to sem byl ja neprihlasenej .)

No jinak jsem to zkousel, ale nejak mi to nepocítá ... udělal jsem i novej sheet s číslama v A sloupci a nic :)
i Radky jsou zkousel a nic :(

Datovou oblast jsem myslel stylem, že...

Máš sheet s 300 záznamy (řádků)... a pod těmahle 300 řádkama, je další tabulka ... jsou odděleny jedním prázným řádkem, a potřebuju spočítat všechny čísla končící jedničkou do 100, z těch prvních 300 řádků, ale udělat to tak, aby konec výpočtu byl ošetřen tím prázdným řádkem, jelikož se můžou dodavat průbežně řádky :)

Díky :) citovat

Ahoj :] Tak tohle uz je pase :] diky :]citovat