本篇文章给大家谈谈excel代码，以及excel代码变图片对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、在excel中部门怎么设置代码格式？
• 2、EXCEL数据合并代码
• 3、excel数字怎么变成代码？
• 4、怎样在excel中运行代码
• 5、excel公式部分计算代码介绍
• 6、excel运行代码快捷键是什么，excel表格运行代码快捷键是什么？

在excel中部门怎么设置代码格式？

为部门代码的设置 *** 如下：

1、首先启动excel2010，打开一份“XX公司人员信息表”，查看整体信息。

2、通过员工编号判断所属部门，假设编号末尾代表部门，“X”代表销售部，“R”代表人事部，"C"代表财务部，“G”代表公关部。选择单元格f2输入辅助。

3、首先要截取编号的末尾代码，选择单元格f3，输入公式=right（a3,1），按回车键，接着填充其他单元格。

4、选择单元格e2，执行公式-插入函数命令，调出插入函数对话框，选择if函数点击确定按钮。

5、在弹出的函数参数对话框中设置logical_test为f3=“X”,设置value_if_true为“销售部”，设置value_if_false为if（f3=“R”,"人事部"，if（f3=“C”,"财务部”，“公关部”）），点击确定按钮。

6、接着鼠标移至单元格f3的右下角，出现黑色十字双击填充，这样就根据编号判断出所属的部门了，为了美观设置一下整体格式。

EXCEL数据合并代码

Sub Macro1()

    Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet

    Application.ScreenUpdating = False

    Set sh = ActiveSheet

    MyPath = ThisWorkbook.Path "\"

    MyName = Dir(MyPath "*.xls")

    [a1].CurrentRegion.Offset(2).Clear

    Do While MyName ""

        If MyName ThisWorkbook.Name Then

            With GetObject(MyPath MyName)

                For Each sht In .Sheets

                If sht.Name "总表" Then

                    If sht.[a65536].End(3).Row 3 Then

                        lr = sh.[a65536].End(3).Row + 1

                        r = sht.[a65536].End(3).Row - 3

                        sh.Cells(lr, 1).Resize(r) = Split(MyName, ".")(0)

                        sh.Cells(lr, 2).Resize(r) = sht.Name

                        'sht.[a1].CurrentRegion.Offset(3, 7).Copy sh.Cells(lr, 3)

                        sht.Range("A4:G" (r + 3)).Copy sh.Cells(lr, 3)

                    End If

                    End If

                Next

                .Close False

            End With

        End If

        MyName = Dir

    Loop

    Application.ScreenUpdating = True

    MsgBox "ok"

End Sub

Sub 工作薄间工作表合并()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X = UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

Sub 指定表名提取成一工作薄() '字段必须要在之一列

  On Error Resume Next

    Dim Filename$, fn$, dq$, crr()

    Set cnn = CreateObject("ADODB.Connection")

    Dim arr, n, i, j, s$

    Dim MyPath$, myFile$

    Dim rs As Object

    Set d = CreateObject("scripting.dictionary")

    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0';data source=" ThisWorkbook.FullName

  [a1:p65536].ClearContents

    MyPath = ThisWorkbook.Path "\"

    myFile = Dir(MyPath "*.xls*")

    n = CreateObject("Scripting.FileSystemObject").GetFolder(MyPath).Files.Count - 1    '计算文件个数，减1不包括自身

    ReDim arr(1 To 1000, 1 To n)  '定义arr,更大工作表数1000

    Do While myFile ""

        If myFile ThisWorkbook.Name Then  '不等于本工作簿执行

            j = j + 1

            i = 1

            arr(1, j) = Left(myFile, InStrRev(myFile, ".") - 1)    '去后辍

            Set cnn = CreateObject("ADODB.Connection")

            cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" MyPath myFile

            Set rs = cnn.OpenSchema(20)  'Set rs = cnn.OpenSchema(adSchemaTables)，创建数据表记录集

            Do Until rs.EOF

                If rs.Fields("TABLE_TYPE") = "TABLE" Then

                    i = i + 1

                    s = Replace(rs("TABLE_NAME").Value, "'", "")              '去除"’"(数字工作表）

                    If Right(s, 1) = "$" Then arr(i, j) = Left(s, Len(s) - 1)    '去除$号

                End If

                rs.MoveNext

            Loop

        End If

        myFile = Dir

    Loop

    rs.Close

    cnn.Close

    Set rs = Nothing

    Set cnn = Nothing

    Range("A1").Resize(i, j) = arr    '输出

    Rows("1:1").Delete

    bmc = ActiveSheet.Name

    brr = Worksheets(bmc).UsedRange

For Each cf In brr

  If cf "" Then

    d(cf) = ""

    End If

Next

Worksheets(bmc).UsedRange.Delete

Application.ScreenUpdating = True

[b3].Resize(d.Count, 1) = Application.Transpose(d.keys)

  [b2] = "所有的工作表名如下 请选择！"

    Set cnn = CreateObject("ADODB.Connection")

    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0';data source=" ThisWorkbook.FullName

Flag:    Set zzdm = Application.InputBox(prompt:="请在出现的表名称中选择 可以点选 或者全选：", Type:=8)

    Application.ScreenUpdating = False

    For Each Rng In zzdm  '计算出所选单元格的个数

        If Rng "" Then

            a = a + 1

            ReDim Preserve crr(1 To a)

            crr(a) = Rng

        End If

    Next

    ll = UBound(crr)

  Columns(2).Delete

  For Each c In crr

  If c = "" Then GoTo 333

    zdm = c

    Filename = Dir(ThisWorkbook.Path "\*.xls*")

    Do While Filename ""

        If Filename ThisWorkbook.Name Then

            fn = ThisWorkbook.Path "\" Filename

            Sql = "select * from [" fn "]." "[" zdm "$" "]"

            r = [a65535].End(3).Row + 1

            Cells(r, 1).CopyFromRecordset cnn.Execute(Sql)

            r2 = [a65535].End(3).Row

            yy = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

        If r2 1 Then

        If jj = 0 Then

          Set rs = cnn.Execute(Sql)

          For i = 0 To yy - 1 '逐个字段

          Cells(1, i + 1) = rs.Fields(i).Name '取字段名

          jj = jj + 1

        Next i

    End If

    End If

End If

        Filename = Dir

    Loop

    ActiveSheet.Name = zdm

    ll1 = ll1 + 1

    If ll1 ll Then

    ThisWorkbook.Sheets.Add After:=Worksheets(zdm)

    End If

    jj = 0

Next c

333:

    cnn.Close: Set cnn = Nothing

    Application.ScreenUpdating = True

    MsgBox "提取完毕！"

End Sub

Sub mergeonexls() '合并多工作簿中指定工作表

On Error Resume Next

Dim x As Variant, x1 As Variant, w As Workbook, wsh As Worksheet

Dim t As Workbook, ts As Worksheet, l As Integer, h As Long

Application.ScreenUpdating = False

Application.DisplayAlerts = False

x = Application.GetOpenFilename(FileFilter:="Excel文件 (*.xls; *.xlsx),*.xls; *.xlsx,所有文件(*.*),*.*", _

      Title:="Excel选择", MultiSelect:=True)

Set t = ThisWorkbook

Set ts = t.Sheets(1) '指定合并到的工作表，这里是之一张工作表

l = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Column

For Each x1 In x

If x1 False Then

Set w = Workbooks.Open(x1)

Set wsh = w.Sheets(1) '指定所需合并工作表，这里是之一张工作表

h = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Row

If l = 1 And h = 1 And ts.Cells(1, 1) = "" Then

wsh.UsedRange.Copy ts.Cells(1, 1)

Else

wsh.UsedRange.Copy ts.Cells(h + 1, 1)

End If

w.Close

End If

Next

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

  If Sheets(j).Name ActiveSheet.Name Then

      X = Range("A65536").End(xlUp).Row + 1

      Sheets(j).UsedRange.Copy Cells(X, 1)

  End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

excel数字怎么变成代码？

excel数字变成代码，应该对所选单元格进行选中，然后进行单元格格式设置，在单元格格式设置中将”文本“与”数值“进行切换，即可完成操作。

1、打开Excel表格，选中要作出更改的单元格。

2、鼠标右键单击，在弹出的选项中点击“设置单元格格式”。

3、更改单元格格式为“文本”；

4、点击“确定”，可以发现数字变成了代码。

注意事项：

修改前，必须选中要做出更改的代码，否则无法针对对象进行格式修正。

怎样在excel中运行代码

之一步、首先，打开Excel表格程序，进入到Excel表格程序主界面中。

第二步、然后，在Excel表格主界面下方右键选中“sheet”，在右键菜单中选择“查看代码”，点击打开。

第三步、最后，即可在Excel表格程序中运行和编辑代码，问题解决。

excel公式部分计算代码介绍

在 Excel 中除了按FX按钮把函数公式调出来用之外其实还可以手动输入公式，朋友们又知不知道呢?如果掌握了公式的部分计算代码就可以比调用函数更快的完成工作。下面是我带来的关于excel 公式部分计算代码介绍，希望阅读过后对你有所启发!

excel 公式部分计算代码介绍：

公式部分计算代码介绍1：下面，我们以简单的例子来加以说明!

公式部分计算代码介绍2：如下图!C列为使用公式的列，其值为B列的值加上10所得的结果!

公式部分计算代码介绍3：按照上述的说明，我们要实现的就是在查看C列数据公式的时候，查询其对应于B列的数据为多少?

公式部分计算代码介绍4：如下图，选择C列的任何一个单元格!

公式部分计算代码介绍5：如上图，将鼠标光标定位到FX公式输入框中，之后按下F9键，这个时候，即会变为公式的值，如下图!

公式部分计算代码介绍6：由于对于的C6的值应该对于B6+10，而B6的值为59，因此，按下F9之后，显示的结果为69;这是临时显示公式值的 *** !

公式部分计算代码介绍7：如果想切换到公式输入模式，请按Ctrl+Z键进行取消即可!

excel运行代码快捷键是什么，excel表格运行代码快捷键是什么？

excel运行代码快捷键是什么，excel表格运行代码快捷键是什么？掌握excel快捷键就可以熟练的应用excel，下面就给你把excel最常用的快捷键给你列出来，供你参考学习。

excel表格运行代码快捷键：

工具：office excel

步骤：

1、打开office excel，执行菜单操作“工具”→“宏”→“宏”。

2、创建一个原来就没有的宏。输入宏的名字，点击“创建”。

3、输入自己的宏代码即可。

4、关闭VBA窗口，执行菜单操作“工具”→“宏”→“宏”，弹出如下图对话框。

5、点击“选项”即可看到。在操作Excel的时候，按下相应的组合键，该宏的代码马上就运行，效果立马就出来了。

excel最常用的快捷键大全：

一、关于处理工作表的快捷键总结

1、插入新工作表Shift+F11或Alt+Shift+F1

2、移动到工作簿中的下一张工作表Ctrl+PageDown

3、移动到工作簿中的上一张工作表Ctrl+PageUp

4、选定当前工作表和下一张工作表Shift+Ctrl+PageDown

5、取消选定多张工作表Ctrl+ PageDown

6、选定其他的工作表Ctrl+PageUp

7、选定当前工作表和上一张工作表Shift+Ctrl+PageUp

8、对当前工作表重命名 Alt+O H R

9、移动或复制当前工作表 Alt+E M

10、删除当前工作表Alt+E L

二、关于在工作表内移动和滚动的快捷键总结

1、向上、下、左或右移动一个单元格箭头键

2、移动到当前数据区域的边缘Ctrl+箭头键

3、移动到行首Home

4、移动到工作表的开头Ctrl+Home

5、移动到工作表的最后一个单元格，位于数据中的最右列的最下行Ctrl+End

6、向下移动一屏PageDown

7、向上移动一屏PageUp

8、向右移动一屏Alt+PageDown

9、向左移动一屏Alt+PageUp

10、切换到被拆分的工作表中的下一个窗格Ctrl+F6

11、切换到被拆分的工作表中的上一个窗格Shift+F6

12、滚动以显示活动单元格Ctrl+Backspace

13、弹出“定位”对话框 F5

14、弹出“查找”对话框 Shift+F5

15、查找下一个Shift+F4

16、在受保护的工作表上的非锁定单元格之间移动Tab

三、在选定区域内移动

1、在选定区域内从上往下移动Enter

2、在选定区域内从下往上移动Shift+Enter

3、在选定区域中从左向右移动。如果选定单列中的单元格，则向下移动Tab

4、在选定区域中从右向左移动。如果选定单列中的单元格，则向上移动Shift+Tab

5、按顺时针方向移动到选定区域的下一个角Ctrl+句号

6、在不相邻的选定区域中，向右切换到下一个选定区域Ctrl+Alt+向右键

7、向左切换到下一个不相邻的选定区域Ctrl+Alt+向左键

四、以“结束”模式移动或滚动

1、打开或关闭“结束”模式End

2、在一行或一列内以数据块为单位移动End+箭头键

3、移动到工作表的最后一个单元格，在数据中所占用的最右列的最下一行中End+Home

4、移动到当前行中最右边的非空单元格End+Enter

五、在ScrollLock打开的状态下移动和滚动

1、打开或关闭ScrollLockScrollLock

2、移动到窗口左上角的单元格Home

3、移动到窗口右下角的单元格End

4、向上或向下滚动一行向上键或向下键

5、向左或向右滚动一列向左键或向右键

六、选定单元格、行和列以及对象

1、选定整列Ctrl+空格键

2、选定整行Shift+空格键

3、选定整张工作表Ctrl+A

4、在选定了多个单元格的情况下，只选定活动单元格Shift+Backspace

5、在选定了一个对象的情况下，选定工作表上的所有对象Ctrl+Shift+空格键

6、在隐藏对象、显示对象和显示对象占位符之间切换Ctrl+6

七、选定具有特定特征的单元格

1、选定活动单元格周围的当前区域Ctrl+Shift+*（星号）

2、选定包含活动单元格的数组Ctrl+/

3、选定含有批注的所有单元格Ctrl+Shift+O（字母O）

4、在选定的行中，选取与活动单元格中的值不匹配的单元格Ctrl+\

5、在选定的列中，选取与活动单元格中的值不匹配的单元格Ctrl+Shift+|

6、选取由选定区域中的公式直接引用的所有单元格Ctrl+[（左方括号）

7、选取由选定区域中的公式直接或间接引用的所有单元格Ctrl+Shift+{（左大括号）

8、选取包含直接引用活动单元格的公式的单元格Ctrl+]（右方括号）

9、选取包含直接或间接引用活动单元格的公式的单元格Ctrl+Shift+}（右大括号）

10、选取当前选定区域中的可见单元格Alt+;（分号）

八、扩展选定区域

1、打开或关闭扩展模式F8

2、将其他区域的单元格添加到选定区域中，或使用箭头键移动到所要添加的区域的起始处，然后按“F8”和箭头键以选定下一个区域Shift+F8

3、将选定区域扩展一个单元格Shift+箭头键

4、将选定区域扩展到与活动单元格在同一列或同一行的最后一个非空单元格Ctrl+Shift+箭头键

5、将选定区域扩展到行首Shift+Home

6、将选定区域扩展到工作表的开始处Ctrl+Shift+Home

7、将选定区域扩展到工作表上最后一个使用的单元格（右下角）Ctrl+Shift+End

8、将选定区域向下扩展一屏Shift+PageDown

9、将选定区域向上扩展一屏Shift+PageUp

10、将选定区域扩展到与活动单元格在同一列或同一行的最后一个非空单元格End+Shift+箭头键

11、将选定区域扩展到工作表的最后一个使用的单元格（右下角）End+Shift+Home

12、将选定区域扩展到当前行中的最后一个单元格End+Shift+Enter

13、将选定区域扩展到窗口左上角的单元格ScrollLock+Shift+Home

14、将选定区域扩展到窗口右下角的单元格ScrollLock+Shift+End

九、用于输入、编辑、设置格式和计算数据的按键

1、完成单元格输入并选取下一个单元Enter

2、在单元格中换行Alt+Enter

3、用当前输入项填充选定的单元格区域Ctrl+Enter

4、完成单元格输入并向上选取上一个单元格Shift+Enter

5、完成单元格输入并向右选取下一个单元格Tab

6、完成单元格输入并向左选取上一个单元格Shift+Tab

7、取消单元格输入Esc

8、向上、下、左或右移动一个字符箭头键

9、移到行首Home

10、重复上一次操作F4或Ctrl+Y

11、由行列标志创建名称Ctrl+Shift+F3

12、向下填充Ctrl+D

13、向右填充Ctrl+R

14、定义名称Ctrl+F3

15、插入超链接Ctrl+K

16、激活超链接Enter（在具有超链接的单元格中）

17、输入日期Ctrl+;（分号）

18、输入时间Ctrl+Shift+:（冒号）

19、显示清单的当前列中的数值下拉列表Alt+向下键

20、显示清单的当前列中的数值下拉列表Alt+向下键

21、撤销上一次操作Ctrl+Z

十、输入特殊字符

1、输入分币字符￠Alt+0162

2、输入英镑字符￡Alt+0163

3、输入日圆符号￥Alt+0165

4、输入欧元符号€ Alt+0128

十一、输入并计算公式

1、键入公式=（等号）

2、关闭单元格的编辑状态后，将插入点移动到编辑栏内F2

3、在编辑栏内，向左删除一个字符Backspace

4、在单元格或编辑栏中完成单元格输入Enter

5、将公式作为数组公式输入Ctrl+Shift+Enter

6、取消单元格或编辑栏中的输入Esc

7、在公式中，显示“插入函数”对话框Shift+F3

8、当插入点位于公式中公式名称的右侧时，弹出“函数参数”对话框Ctrl+A

9、当插入点位于公式中函数名称的右侧时，插入参数名和括号Ctrl+Shift+A

10、将定义的名称粘贴到公式中F3

11、用SUM函数插入“自动求和”公式Alt+=（等号）

12、将活动单元格上方单元格中的数值复制到当前单元格或编辑栏Ctrl+Shift+"（双引号）

13、将活动单元格上方单元格中的公式复制到当前单元格或编辑栏Ctrl+'（撇号）

14、在显示单元格值和显示公式之间切换Ctrl+`（左单引号）

15、计算所有打开的工作簿中的所有工作表F9

16、计算活动工作表Shift+F9

17、计算打开的工作簿中的所有工作表，无论其在上次计算后是否进行了更改Ctrl+Alt+F9

18、重新检查公式，计算打开的工作簿中的所有单元格，包括未标记而需要计算的单元格Ctrl+Alt+Shift+F9

十二、编辑数据

1、编辑活动单元格，并将插入点放置到单元格内容末尾F2

2、在单元格中换行Alt+Enter

3、编辑活动单元格，然后清除该单元格，或在编辑单元格内容时删除活动单元格中的前一字符Backspace

4、 删除插入点右侧的字符或删除选定区域Del

5、删除插入点到行末的文本Ctrl+Del

6、弹出“拼写检查”对话框F7

7、编辑单元格批注Shift+F2

8、完成单元格输入，并向下选取下一个单元格Enter

9、撤销上一次操作Ctrl+Z

10、取消单元格输入Esc

11、弹出“自动更正”智能标记时，撤销或恢复上一次的自动更正Ctrl+Shift+Z

十三、插入、删除和复制单元格

1、复制选定的单元格Ctrl+C

2、显示Microsoft Office剪贴板（多项复制与粘贴）Ctrl+C，再次按Ctrl+C

3、剪切选定的单元格Ctrl+X

4、粘贴复制的单元格Ctrl+V

5、清除选定单元格的内容Del

6、删除选定的单元格Ctrl+连字符

7、插入空白单元格Ctrl+Shift+加号

十四、设置数据的格式

1、弹出“样式”对话框Alt+'（撇号）

2、弹出“单元格格式”对话框Ctrl+1

3、应用“常规”数字格式Ctrl+Shift+~

4、应用带两个小数位的“贷币”格式（负数在括号中）Ctrl+Shift+$

5、应用不带小数位的“百分比”格式Ctrl+Shift+%

6、应用带两位小数位的“科学记数”数字格式Ctrl+Shift+

7、应用含年、月、日的“日期”格式Ctrl+Shift+#

8、应用含小时和分钟并标明上午或下午的“时间”格式Ctrl+Shift+@

9、应用带两位小数位、使用千位分隔符且负数用负号(-)表示的“数字”格式Ctrl+Shift+!

10、应用或取消加粗格式Ctrl+B

11、应用或取消字体倾斜格式Ctrl+I

12、应用或取消下画线Ctrl+U

13、应用或取消删除线Ctrl+5

14、隐藏选定行Ctrl+9

15、取消选定区域内的所有隐藏行的隐藏状态Ctrl+Shift+(（左括号）

16、隐藏选定列Ctrl+（零）

17、取消选定区域内的所有隐藏列的隐藏状态Ctrl+Shift+)（右括号）

18、对选定单元格应用外边框Ctrl+Shift+

19、取消选定单元格的外边框Ctrl+Shift+_

十五、使用“单元格格式”对话框中的“边框”选项卡

1、应用或取消上框线Alt+T

2、应用或取消下框线Alt+B

3、应用或取消左框线Alt+L

4、应用或取消右框线Alt+R

5、如果选定了多行中的单元格，则应用或取消水平分隔线Alt+H

6、如果选定了多列中的单元格，则应用或取消垂直分隔线Alt+V

7、应用或取消下对角框线Alt+D

8、应用或取消上对角框线Alt+U

十六、创建图表和选定图表元素

1、创建当前区域中数据的图表F11 或 Alt+F1

2、选定图表工作表：选定工作簿中的下一张工作表，直到选中所需的图表工作表Ctrl+Page Down

3、选定图表工作表：选定工作簿中的上一张工作表，直到选中所需的图表工作表为止Ctrl+Page Up

4、选定图表中的上一组元素向下键

5、选择图表中的下一组元素向上键

6、选择分组中的下一个元素向右键

7、选择分组中的上一个元素向左键

十七、使用数据表单（“数据”菜单上的“记录单”命令）

1、移动到下一条记录中的同一字段向下键

2、移动到上一条记录中的同一字段向上键

3、移动到记录中的每个字段，然后移动到每个命令按钮Tab和Shift+Tab

4、移动到下一条记录的首字段Enter

5、移动到上一条记录的首字段Shift+Enter

6、移动到前10条记录的同一字段Page Down

7、开始一条新的空白记录Ctrl+Page Down

8、移动到后10条记录的同一字段Page Up

9、移动到首记录Ctrl+Page Up

10、移动到字段的开头或末尾Home或End

11、将选定区域扩展到字段的末尾Shift+End

12、将选定区域扩展到字段的开头Shift+Home

13、在字段内向左或向右移动一个字符向左键或向右键

14、在字段内选定左边的一个字符Shift+向左键

15、在字段内选定右边的一个字符Shift+向右键

十八、筛选区域（“数据”菜单上的“自动筛选”命令）

1、在包含下拉箭头的单元格中，显示当前列的“自动筛选”列表Alt+向下键

2、选择“自动筛选”列表中的下一项向下键

3、选择“自动筛选”列表中的上一项向上键

4、关闭当前列的“自动筛选”列表Alt+向上键

5、选择“自动筛选”列表中的之一项（“全部”）Home

6、选择“自动筛选”列表中的最后一项End

7、根据“自动筛选”列表中的选项筛选区域Enter

十九、显示、隐藏和分级显示数据

1、对行或列分组Alt+Shift+向右键

2、取消行或列分组Alt+Shift+向左键

3、显示或隐藏分级显示符号Ctrl+8

4、隐藏选定的行Ctrl+9

5、取消选定区域内的所有隐藏行的隐藏状态Ctrl+Shift+(（左括号）

6、隐藏选定的列Ctrl+0（零）

excel代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于excel代码变图片、excel代码的信息别忘了在本站进行查找喔。