在Excel宏中自动填充每31个单元格

Question

我有这个表单结构

split

等等，所以我想做的是一个启动A1的宏，自动填充在A1接下来的31行上的值，跳过一行，取A33上的值，在A33上自动填充下一个31的值行等等

Answer 1

dim rng as range

set rng=activesheet.range("A1:A32")
do while application.counta(rng)>0
    rng.value=rng(1).value
    set rng=rng.offset(32,0)
loop