怎么用excel的Vba实现多重条件的选择？

Question

在工作表里，逐行扫描，当A1>60,A5>70,A9>80时，把A10里的内容读到同文件夹的另一个excel文件里去，有具体应该怎么写？

Answer 1

sub a()
if [a1]>60 and [a5]>70 and [a9]>80 then 
   [a10].copy sheets("sheet2").[a1]
end if
end sub

如果满足条件，复制A10到sheet2的A1单元格。