Sub A列等于B列() for i = 1 to 10 if i=1 or i=3 or i=5 then Range("A"&i) = Range("B"&i) end if next iEnd Sub
把前十行中第一行,第二行及第三行B列的数据等于A列