办公高手 EXCEL常用宏命令

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