1 .TextMatrix(row, col) = ""2 for i = 1 to .rows for j = 4 to 8 if .textmatrix(i, j) <> "0" exit sub next j next i for i = 1 to .rows for j = 4 to 8 .textmatrix(i, j) = "" next j next i
t=2 pp: for i=t to .rows for j=4 to 8 if .textmartrix(i,j)<>0 then exit sub esle call ttt next j t++ next ittt: .textmatrix(i, j) = "" call pp end if
for i = 1 to .rows
for j = 4 to 8
if .textmatrix(i, j) <> "0" exit sub
next j
next i
for i = 1 to .rows
for j = 4 to 8
.textmatrix(i, j) = ""
next j
next i
pp:
for i=t to .rows
for j=4 to 8
if .textmartrix(i,j)<>0 then
exit sub
esle
call ttt
next j
t++
next ittt:
.textmatrix(i, j) = ""
call pp
end if