1、创建一个excel2013工作簿,新建几个sheet。
2、找到开发工具,打开VBA编程入口。
3、创建一个程序,命名为test()。
4、可以用序号表示最后一个工作表对象。
5、使用全名称表示最后一个工作表对象。
6、最后一种方式是通过activesheet表示。
复制的语句:Sheet1.Range("A4:M15").Copy
寻找下一行的办法是:
Sheet2.Cells(Rows.Count,1).End(xlUP).Offset(1,0)
在最后一行选择性粘贴,只粘贴数值的语句是:
Sheet2.Cells(Rows.Count,1).End(xlUP).Offset(1,0).Specialaste xlValues
你需要的首尾两个语句,中间一个只是解释
Sub AddWs()Dim n As Long, i As Long
n = 4 '将4改为实际要添加的工作表数目
For i = 1 To n
Worksheets.Add after:=Worksheets(Worksheets.Count)
Next i
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)