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
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数组
复制到哪里？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024