工作表引用
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
联系客服