王佩丰VBA学习03使用VBA操作工作表

jiezi

5 年前

一. 工作表对象

Sheet1      资源管理器里表的值，每个表唯一且不可修改
Sheets(1)   工作表标签里的顺序
Sheets("一月")

  方法            属性
  Select          Count
  Add             Name  
  Delete
  Copy

二.Application 对象

Excel.Application.DiaplayAlerts = False  // 取消警告
Excel.Application.DiaplayAlerts = True
Excel.Application.ScreenUpdating = False // 取消屏幕更新
Excel.Application.ScreenUpdating = True

三. 技巧

 遍历所有工作表
for i=1 to Sheets.Count

 当前工作表之后添加新表 (:=  给参数赋值)
Sheets.Add after:=Sheets(Sheets.Count)
Sheets.Copy after:=Sheets(Sheets.Count)