如何用VB实现以下检查功能

minecall

如果AR列的每一行去掉最后两位数字等于AD列的对应行（AD列有的行为空，认为和上面有编号的相同），则使AS列的对应行加上AQ列的对应行等于AI列的对应行；同理，如果AD列每一行去掉最后一位数字等于I列的对应行，则使AI列有数据的行相加等于M列的对应行，如果不相等，则把数据涂红或报错；如果AR列去掉最后三位数字等于I列的对应行（I列有的行为空，认为和上面有编号的相同），则AT列的每一行加上AS列的对应行等于P列的对应行。
即：MID(AR2,1,11)=AD2，则AI2=AS2+AQ2.
MID(AR3,1,11)=AD3，MID(AR4,1,11)=AD3，则AI3=AS3+AS4+AQ3.
MID(AR5,1,11)=AD5,…….., MID(AR11,1,11)=AD5，则AI5=AS5+…..+ AS11+AQ5;
MID(AD2,1,10)=I2, MID(AD3,,10)=I2, MID(AD5,1,10)=I2,则I2= AD2 + AD3+AD5;
MID(AR2,1,10)=I2，……, MID(AR11,1,11)= I2,则P2=SUM(AT2：AS11);
希望各位群友帮忙解决，不胜感激！

yzf345

表达不太明白啊，不知道是不是这样：
1、条件MID(AR2,1,11)=AD2，则AI2=AS2+AQ2.

sub 问题1()

    dim i as integer,j as integer,x as string

    with sheets("表名")       '表名替换为实际工作表名

        j=.[ar65536].end(xlup).row

        for i=2 to j

           if .cells(i,30)<>"" then x=.cells(i,30)
           if left(.cells(i,44),len(.cells(i,44))-2)= x  then .cells(i,35)=.cells(i,45)+.cells(i,43)

        next

    end with

end sub

其它条件与之类似，不知道理解的对不对？