来源：

 工作表引用 

Worksheets(3).Select    这里面的3是Index，就是一个下面的顺序

Worksheets("Sheet3").Select    这里面的Sheet3是Name

Sheet3.Select    这里面的Sheet3是CodeName

 数组 

For Each Rng in Range("A1:J10")

For Each Sht in Worksheets

For Each Book in Workbooks

 添加工作表   

Worksheets.Add.Name = "工作表"    直接在最前面加入一个叫做“工作表”的工作表

Set Sht = Worksheets.Add(after:=Worksheets(Worksheets.Count))    在最后加入

ActiveSheet.CodeName    CodeName指的是建表是赋予的一个按顺序的名字，依次为Sheet1、Sheet2 ...在工程窗口中，左边的是CodeName，右边的是Name

ActiveSheet.Previous.Activate    前一个工作表激活

ActiveSheet.Next.Activate    后一个工作表激活

 行与列   

Rows(1).Select    选中第一行

Rows("1").Select    选中第一行

Colums(1).Select    选中第一列

Colums("A").Select    选中第一列

Cells(1, 1).EntireRow.Select    选中单元格所在的行

Cells(1, 1).EntireColumn.Select    选中单元格所在的列

Rows("1:4").Select    选中第一到第四行

Columns("A:D").Select    选中第一到第四列 

Columns("A:F").AutoFit    将这几列自动合适分布

Rows("1:4").AutoFit    将这几行自动合适分布

 WorkSheet事件 

WorkSheet_Activate    激活文档的时候触发

WorkSheet_Change    内容改变

WorkSheet_SelectionChange    选择改变，单击左键的时候触发

WorkSheet_BeforeRightClick    点击右键的时候触发

WorkSheet_BeforeDoubleClick    双击左键的时候触发

WorkSheet_Calculate    当单元发生计算，公式运行等时候触发事件

WorkSheet_Deactivate    当切换工作表的时候会触发此事件

来源：

工作表之间复制：

Sub sdlkfj()    Sheets("路床 (2)").Activate    Cells.Select      '全部复制    Selection.Copy        Sheets.Add before:=Sheets(2)    Cells.Select    ActiveSheet.Paste      '全部黏贴    Application.CutCopyMode = False      '关掉剪切复制模式End Sub