代码1 - Worksheets与Sheets区别
Worksheets表示普通工作表;Sheets即可表示普通工作表也可表示图标工作表。
' 下面模块中代码结果是一样的,大家理解时可结合上面区别说明进行了解
Sub Test()Worksheets("Sheet1").Range("A1").Value = 100Sheets("Sheet1").Range("A1").Value = 200
End Sub
代码2 - 使用工作表代码对单元格赋值
' 对工作表"Sheet2"的C4单元格设置内容为100
Sub SheetTest()'方式一:通过指定工作表名称找到工作表Worksheets("Sheet2").Range("C4").Value = 100'方式二:通过工作表索引找到工作表Worksheets(2).Range("C4").Value = 100'方式二:通过选定工作表后再进行赋值(选择工作表后execl会切换道对应工作表界面)Worksheets("Sheet2").SelectRange("C4").Value = 100
End Sub
代码3 - 工作表添加、修改名称
Sub SheetTest()' 添加一个默认工作表,创建在当前工作表左侧'Sheets.Delete' 创建工作表在Sheet2工作表左侧' Sheets.Add before:=Sheets("Sheet2")' 创建工作表在Sheet2工作表右侧' Sheets.Add after:=Sheets("Sheet2")' 创建名为"测试工作表"工作表在Sheet13工作表左侧Sheets("Sheet13").SelectSheets.Add.Name = "测试工作表"End Sub
代码4 - 工作表移动
Sub SheetTest()' 将"临时表"工作表移动至"测试工作表"工作表左侧'Sheets("临时表").Move before:=Sheets("测试工作表")' 将"临时表"工作表移动至"Sheet16"工作表右侧Sheets("临时表").Move after:=Sheets("Sheet16")End Sub
代码5 - 工作表复制
Sub SheetTest()' 将"临时表"工作表移动至"测试工作表"工作表左侧'Sheets("临时表").Copy before:=Sheets("测试工作表")' 将"临时表"工作表移动至"Sheet16"工作表右侧Sheets("临时表").Copy after:=Sheets("Sheet16")End Sub
代码6 - 工作表删除
Sub SheetTest()' 对"Sheet6"工作表进行隐藏或显示'Sheets("Sheet6").Visible = False'Sheets("Sheet6").Visible = True' 删除"Sheet18"工作表(默认删除会有弹窗提醒)' Sheets("Sheet18").Delete' 删除"测试工作表"工作表(禁用系统弹窗提醒)Application.DisplayAlerts = FalseSheets("测试工作表").DeleteApplication.DisplayAlerts = TrueEnd Sub
代码7 - 使用ForEach遍历工作表
Sub WorkbooksTest()Dim sheet As WorksheetFor Each sheet In WorksheetsMsgBox sheet.NameNext sheetEnd Sub
关注
笔者 - jxd