Sheets(\首页\ Else End If End Sub 20 关闭全部工作表: Application.Quit
ThisWorkbook.Close savechanges:=False 21 关闭当前活动工作表
ThisWorkbook.Close savechanges:=False 22 显示及隐藏工作表
Sheets(\首页\ Sheets(\首页\ 23 选择单元格: Range(\ Range(\ 24 选择工作表:
Sheets(\首页\
25 选择并清空单元格内容: Range(\ Selection.ClearContents
26 设置列宽:
Columns(\ 27 设置行高:
Columns(\
28 设置单元格比较判断:
If Range(\ 29 为单元格输入内容: Range(\
ActiveCell.FormulaR1C1 = \危险\ 30 设置单元格格式
\ With Selection.Font .Name = \宋体\ .Size = 14 31 比较单元格数值:
If Range(\
32 引用单元格数值及举例
Application.Range(\ '提取单元格D3的数值
Sheets(Application.Range(\= xlSheetVisible '显示以单元格D3的内容为名称的表格
33 设置标签从其他工作表的单元格取值
Label6.Caption = Sheets(\参数设置\参数设置\
34 从未打开的工作簿中取值: Sub GetValue()
[A3] = \ End Sub
35 删除空白单元格所在的行: Sub DeleteBalankRows()
Range(\ End Sub
36 让所有表格执行相同命令 Sub 循环执行语句() Dim ws As Worksheet For Each ws In Worksheets ws.Activate 命令内容？ Next End Sub
办公高手 EXCEL常用宏命令
