Selamlar,
Fonksiyon kısmından ne demek istediğini pek anlamadım ama şu aşağıdaki gibi yapılabilir. Kodu denemedim muhtemelen çalışması lazım.
Verilerin ilk sütunda (A) olduğunu ve toplam 20 satır veri olduğunu, sonuçların da B sütununa yazılacağını düşünürsek:
sub test()
for i=1 to 20
if cells(i,1)<=0 then
cells(i,2)=0
elseif cells(i,1)=1 then
cells(i,2)=1
else
cells(i,2)=cells(i,1)-2+cells(i,1)-1
end if
Next i
end sub
0