'选中表
Sub shishi()
Sheet1.Select '表示表1被选中,也可以用Sheets(1)来表示
Sheets("小三").Select '表示表名为小三的表被选中
Sheets.Add after:=Sheet3 '表示插入表,插入表要用表的集合,Sheets表示表的集合
'after表示在表三后面插入表y,before表示在表前面,:=表示赋值,表示插在谁的前面或后面
Sheets.Add after:=Sheets(Sheets.Count) '表示有几张表就在第几张表后面插入表,顺次插入表的意思
Sheets.Count '表示返回表的数量,返回的是一个值,叫做只读的属性,这样会报错
Sheet3.Range("A1") = Sheets.Count '这样就不会报错了,表示在表3的单元格A1返回表的数量
Range ("a1") 'Range表示选中当前选中的表的单元格A1
Sheet3.Range ("a1") '这个表示的是选中表3的A1单元格
Sheet1.Name = "张三" '改表的名字,把表1的名字改为张三
End Sub
Sub shishi()
Excel.Application.DisplayAlerts = False '表示什么错误警告都不弹出
Sheet3.Delete '表示删除表3
Sheet1.Copy'不加参数时,会把该表Copy到一个新文件中,所以一般会告诉它Copy到哪个位置
Sheet1.Copy after:=Sheet3'表示把表1Copy到表3的后面
End Sub