EXCEL VBA代码,实现点击Sheet1按钮控件保存不连续单元格的数据到Sheet2中,然后清空输入内容...
1PrivateSubSaveAndClear()23DimHeader,Deatil,OrderAsRange4Dimlastrow1,lastrow2AsLong5DimiAsInteger67lastrow1=Sheet1.[B65536].End(xlUp).Row'取得sheet1B列末行向上第一个有值的行数89Worksheets("sheet1").Activate10SetHead