Excel工作表操作:移动,重命名,新建,复制,删除

难度系数:初级

系统:Windows 7
软件:Excel 2010

学习路径图


  • 针对之前的学习路径图,会针对的写一些文章

  • 今天讲讲对于Excel工作表的操作:移动,重命名,新增,复制,删除


目录
Part 1:移动和重命名


  1. 有三个工作表,名称分别为:示例1示例2示例3,依次排序

  2. 示例3工作表移动到示例1前,将示例2工作表改名为test2


程序运行前





程序运行后





目录
Part 2:代码


Sub main()    
   Set sht1 = ThisWorkbook.Worksheets("示例1")    
   Set sht2 = ThisWorkbook.Worksheets("示例2")    
   Set sht3 = ThisWorkbook.Worksheets("示例3")    
   
   '移动工作表位置    sht3.Move Before:=sht1    
   
   '重命名工作表    sht2.Name = "test2"

End Sub


代码截图





目录
Part 3:新建,复制


  1. 接着上面的示例,新建一个工作表空表

  2. 示例1复制一个,并放置于示例1之后


效果





目录
Part 4:代码


Sub main()    
   ' 新建一个工作表    ThisWorkbook.Sheets.Add.Name = "空表"    '复制一个工作表    Set sht1 = ThisWorkbook.Worksheets("示例1")    sht1.Copy After:=sht1
End Sub


目录
Part 5:删除


  1. 删除工作表空表

    Sub main()
     Set sht = ThisWorkbook.Worksheets("空表")
     sht.Delete
    End Sub



    运行后,删除前提示



如果不希望产生提示,在代码中加入:Application.DisplayAlerts = False

运行结果




  • 如需文中高清并可以无限放大路径图,可以文后留言留下邮箱,小编会发过去

  • 本文为原创作品,如需转载,可加小编微信号learningBin


更多精彩,请关注微信公众号
扫描二维码,关注本公众号