Question

请教excel vba高手，如何按行循环一段代码直到某内容则停止

如图片，我要将A列有数值的筛选出来进行复制，接下来循环刚才的步骤筛选B列然后复制，直到遇到D1内容‘停止’就运行另外一串代码。

Answer 1

sub test()
for i=1 to 10
for j=1 to range("A:A").offset(,i-1).end(3).row
if cells(j,i)="停止" then
goto 停止
elseif cells(j,i)<>"" then
'复制
end if
next j
next i
exit sub
停止:
'停止代码段
end sub

追问

（此处再加代码把Sheet2另存为文件，文件名为当前日期+A1单元格内容，再把Sheet2的整页内容清除）

Answer 2

dim rag as range,i as integer,arr
i=1
for each rag in range("A2:C26")
if rag.value>0 then
arr(i)=rag.value
i=i+1
end if
next
至此数据都收集到arr数组

Answer 3

复制到哪里？