nextºóÃ治дrngºÃÏñҲûÎÊÌâ

Óà do loop·½·¨£º
sub ɸѡ £¨ £©
dim ros%, n%
[g1:k1]=[a1:e1].value
do
ros=ros+1
if cells£¨ros+1,"b"£©.value="1°à" then
n=n+1
cells£¨n+1,"g"£©.resize£¨1,5£©=cells£¨ros+1,"b"£©.offset£¨0,-1£©.resize£¨1,5£©.value
End if
loop until cells£¨ros+1,"b"£©=""
end sub

[¿ªÐÄ][¿ªÐÄ]ÿÌì½ø²½Ò»µãµã

n=n+1 ,nµÄԭʼֵÊÇ0£¿

ÀÏʦ£¬ÎªÊ²Ã´Òª¼Ó n= n+1?

½áºÏlikeÃüÁif¿ÉÒÔд³Éif rng.value like "[1]?" then