sub kk()
if range("a1")<>"" then
range("b1")=range("a1")
range("b3")=range("a1")
range("b5")=range("a1")
end if
end sub
任意添加单元格并将宏指定给按钮
在B1输入下面公式后,向下拖拽填充
=IF(MOD(ROW()-1,2)=0,$A$1,"")
b1.3.5=a1
让指定格=A1就行了
已制作一个表格,请留下电子邮箱
注意:设置宏的安全性级别为中以下,并允许运行宏,就能自动填充表格,详情见附件