vba在excel中添加清除sheet1的内容

Question

我想在sheet2中添加一个按钮
同时删除sheet1中所有内容和sheet2中第二行一下的所有内容
非常感谢
range为啥选不到sheet1呢

Answer 1

SUB LKJKL()
   sheet1.cells.clearcontents
   set s2=sheet2
   s2.range(s2.cells(2,1),s2.cells(s2.usedrange.rows.count,s2.usedrange.columns.count)).clearcontents
END SUB

追问

我想把sheet1里的内容清除，但是留下很多合并的单元格
如何让他变成一个最初始的状态？

追答sheet1.cells.UnMerge取消合并