本期与大家分享7个实用的Excel技巧，尤其是最后一个技巧真的有点牛哦。

1、快速输入以0开头的小数

如果你遇到输入以0开头的小数一般是怎么操作的？比如要输入0.98，你是乖乖地一个个输入吗？其实不用这么麻烦的，在实际工作中只要输入.98就可以。

具体操作如下：

2、自动插入小数点

选中文件——选项——高级——勾选自动插入小数点

具体操作如下：

3、快速输入多个0

直接输入“数字**+N”

N：表示你要输入多少个0

具体操作如下：

4、直接生成下拉菜单

按Alt+↓即可

具体操作如下：

5、圈出你要的数据

利用数据有效性（又叫数据验证），设置好数据，之后再利用点击数据——数据验证——圈释无效数据。

具体操作如下：

6、快速求和

用快捷键Alt+=求和

具体操作如下：

7、旋转图表

正常情况下，图表是不能旋转的，那真的不能操作的吗？

答案是否定的，可以借助粘贴为图片来实现。

首先复制图表，之后在选择性粘贴中选择图片即可。

具体操作如下：

（PS：如果想要数据也可以变化，最好是使用照相机工具来实现。）

转载自百家号作者：VBA与GO语言

今日给大家讲解实用的VBA代码之八，在这一系列的文章里，我会给喜欢VBA的朋友们详细的讲解一些常见的语句，用来操作EXCEL，让我们的工作自动化，实现自动化办公的目的。大家可以了解到平时EXCEL中的一些操作，都可以在VBA中实现。

1 ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell

语句说明：执行上述代码后，在当前单元格左侧插入一条垂直分页符

ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell

语句说明：执行上述代码后，在当前单元格上方插入一条垂直分页符

备注:分页符在VBA中的利用。

代码如下：

如果在下面的页面中运行代码：

返回的结果如下：

这样就增加了一行分页符。

2 ActiveWindow.ScrollRow = 14

语句说明：执行上述代码后，将当前工作表窗口滚动到第14行

ActiveWindow.ScrollColumn = 13

语句说明：执行上述代码后，将当前工作表窗口滚动到第13列

备注:相当于滚轮的利用。

3 ActiveCell.Value = UCase(ActiveCell.Value)

语句说明：执行上述代码后，将当前单元格中的字符转换成大写

备注：大小写在VBA中的利用

4 ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase)

语句说明：执行上述代码后，将活动单元格中的字符串转换成小写

备注：大小写在VBA中的利用

5 MsgBox WeekdayName(Weekday(Date))

语句说明：执行上述代码后，获取今天的星期数

备注：MSGBOX是人机对话函数，这里是获取日期函数

6 ActiveCell.Value = Year(Date)

语句说明：执行上述代码后，在当前单元格中输入今年的年份数

备注:YEAR函数即是VBA函数，又是EXCEL函数。

ActiveCell.Value = Month(Date)

语句说明：执行上述代码后，在当前单元格中输入今天所在的月份数

备注: Month函数即是VBA函数，又是EXCEL函数。

ActiveCell.Value = Day(Date)

语句说明：执行上述代码后，在当前单元格中输入今天的日期数

备注: Day函数即是VBA函数，又是EXCEL函数。

7 ActiveCell.Value = Hour(Time)

语句说明：执行上述代码后，在当前单元格中显示现在时间的小时数

备注: Hour函数即是VBA函数，又是EXCEL函数。TIME函数也是一样。

ActiveCell.Value = Minute(Time)

语句说明：执行上述代码后，在当前单元格中显示现在时间的分钟数

备注: Minute函数即是VBA函数，又是EXCEL函数。TIME函数也是一样。

ActiveCell.Value = Second(Time)

语句说明：执行上述代码后，在当前单元格中显示现在时间的秒数

备注: Second函数即是VBA函数，又是EXCEL函数。TIME函数也是一样。

8 ThisWorkbook.Activate

语句说明： 执行上述代码后，选择当前活动的工作簿:

备注： Activate 是活动的意思，也是当前的意思。

Windows("Totol.xls").Activate

语句说明： 执行上述代码后，如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls” ，例如： 选择一个工作表Sheets("BAC").Activate.

备注： Activate 是活动的意思，也是当前的意思。也可以用SELECT

9 Range("A1").Select

语句说明： 执行上述代码后，选择单元格：

备注：选择一个单元格

Range("A1:G8").Select

语句说明： 执行上述代码后，选择连续的单元格：

备注：选择多个连续单元格

Range("A1,B6,D9").Select

语句说明： 执行上述代码后，选择不连续的单元格：

备注：选择多个不连续单元格

Range("A1,B6:B10,D9").Select

语句说明： 执行上述代码后，选择不连续的单元格：

备注：选择多个不连续或者连续的单元格

今日内容回向：

1 如何增加分页符。

2 选择有几种方式？

日期函数在VBA中是如何利用的？

大家都知道在excel中用VBA代码可以解决很多批处理操作问题，因为VBA是excel原生脚本语言，所以在便利性上有着得天独厚的优势，只要你电脑有excel，那么就可以立刻使用这个VBA脚本代码来解决问题。其实除了vba还有很多脚本语言可以来操作excel，比如python脚本。

python跟vba一样都是脚本类语言，只不过python的用途更广些，而且代码好看些。由于是独立的程序，需要单独安装，这个有些麻烦，除此之外，如果你掌握好了相关的知识之后完全可以用他来任意处理excel文档。

下面说一下在windows系统上，如何使用python来连接操作excel文档。

首先要从python官网下载python主程序，安装好后，然后下载连接excel的接口模块程序pywin32,进行安装，2个步骤完成之后，就可以打开python shell界面，进行代码输入了。我这里使用的python版本是2.7，这个看自己的习惯喜好了。

python excel

小实例：在d盘的test.xls文档单元格A1中输入内容

>>> import win32com.client #加载pywin32模块

>>> xl=win32com.client.Dispatch("Excel.Application") #建立连接EXCEL程序的对象xl

>>> book=xl.Workbooks.Open("d:\\test.xls") #用xl打开d盘下的test.xls工作簿

>>> book.worksheets(1).cells(1,1).Value="输入的内容" #在工作簿的第一个表格第一个单元格输入内容

>>> book.Save() #保存工作簿

>>> book.Close() #关闭工作簿

python excel

请点击此处输入图片描述

一步一步运行完之后（当然也可以保存成脚本文件运行），用鼠标打开d盘下的test.xls文件，就可以看到刚刚输入的内容了。

python excel

请点击此处输入图片描述

这是某公司上月的工资明细表（全是猛人），现在要求是要在每一位员工的工资明细上面加上工资表头和一个空行，工资保密，每个人只能看到自己的工资。

工资表

公式法

1.首先在工资表的后面新建一张工作表（此实例为表3），并把工资表里的表头复制一份过去，在A2单元格写上序号 1

表1

2.在B2单元格输入以下公式，向右侧拖动。

=VLOOKUP($A2,1!$A$1:$J$16,COLUMN(),)

说明：1！指的工作表的名称，可以自行更改为实际的工作表名称

达到的效果如下

表2

3.选中上面的的3行，并按住鼠标左键向下拖动。

表3

是不是超快又简单？

VBA方法

1.开发工具-VB-插入模块，将下面的代码复制，保存后退出

Sub 工资条()

Dim i&, Mxrow&

Sheets(1).[a1].CurrentRegion.Copy Sheets(2).[a1]

With Sheets(2)

Mxrow = .Cells(.Rows.Count, 1).End(3).Row

For i = Mxrow To 3 Step -1

.Rows(i & ":" & i + 1).Insert Shift:=xlDown

.Rows("1:1").Copy .Cells(i + 1, 1)

Next

End With

End Sub

2.在表1中建一方框，然后点右键，指定宏为先前建立的<工资条>

表4

3.点击，看下工作表2，是不是达到了同样的效果。

完整的操作动态图片如下：

动态图

此方法同样可用于老师制作各学生的成绩表。

或许你看过不同的VBA程序的运行，对于窗口的切换一定印象深刻。在程序运行时，根据不同的需求，窗口在不同的工作表间自由的切换，可以先从一个工作表取值，放到第二个工作表中，再从其他的工作表中取出参数并参与运算，运算得出结果，放到一个单独的工作表中，看的人眼花缭乱。

这种运算是VBA所特有的。虽然在运行时会产生很多的碎片，影响时间的利用，但对于单纯的运算来讲，还是节约了时间，最主要的是提高了数据的准确性和可信度。

在羡慕别人的同时，是否也希望自己能做出这样的程序呢？当然，对于每位学习VBA的朋友来说，这是很自然的事情，学以致用，利用自己的所学。从VBA入手点滴的积累，总会有所收获，正如你经常来我这个平台，福不唐捐，总会能碰到你急于掌握的知识一样。前些时有位朋友留言，说是帮了他大忙，但我确实不知道这位朋友的大忙是什么，也并非给这位朋友定制的，总是机缘吧。

闲话少叙，其实这个实现起来很简单的，今天就给大家讲解一下利用VBA如何控制窗口的切换。

我们先看下面的代码：

11 Dim AppPATH

12 AppPATH = ActiveWorkbook.Path

13 ChDir AppPATH

14 Workbooks.Open FileName:=AppPATH & "\XX.XLS" '打开文件

15 Sheets("SHEET1").Select

16

17 Do While .Cells(I, 1).Value <>""

18-90 '提取数据’

91 I = I + 1

92 Loop

93

94 ActiveWindow.Close (False) '关闭文件

95

96 Windows("LUMAN").Activate

97

98 Sheets("SHEET1").Select

99-199 '执行操作

200

201 Sheets("SHEET2").Select

201-230 '执行操作

231

232 MsgBox ("ok!")

233

程序讲解，上面的代码是一个名为LUMAN.xls的EXCEL的VBA部分代码，当执行到第11行时，程序会识别一下路径，进而打开一个在同文件夹下名字为XX的文件。

15-93行程序会在此文件中进行操作，此时窗口的文件就是这个XX的文件，当执行到第94行时，文件XX会自动的关闭

执行到第95行时，活动窗口又回到了LUMAN的文件，先在SHEET1中进行操作，然后到SHEET2中进行操作。

所有操作执行完成后弹出对话框”OK”。

上面的代码在运行的过程中用到了两个文件，并在期间切换运行，窗口的可视性非常的好，这点比其他程序要友好，如VB6的控件，GO对EXCEL的操作。这也是强大的EXCEL的功能造就的。

当然，对于初识VBA的朋友，上面的讲解不是很解渴，不过没关系的，上面的文章中引入了很多的知识点，如：如何获得当前的地址,如何打开一个文件，如何关闭一个文件，如何把窗口切换到另外的文件等等，只要你掌握了其中之一，就有收获，而且是不小的收获。

今日内容回向：

1 VBA如何获得当前的地址,

2 VBA如何打开一个文件，

3 VBA如何关闭一个文件，

4 VBA如何把窗口切换到另外的文件

5 如何提高程序的可视性

6 如果不关闭上一个窗口，是否会影响到下面的操作？

分享成果，随喜正能量

办公生活中，怎么能少了Excel表格，相信我，如果你可以把Excel用到极致，工作效率工作地位都可以瞬间提升，当然，可能还附带工作酬劳。今天给大家分享13个强大的Excel常用的公式整理，这些操作你经常需要，但是却不知道可以这么简单实现。除此之外，小编还给大家整理了我们日常需要的实用Excel技巧，简单、高效、实用，瞬间变大神。

13个最强大的Excel常用公式分享

8个超实用Excel技巧

好啦，以上的Excel技巧看过瘾没？下面教大家如何进行Excel转换。转换有三种方法：

1、当我们使用Excel表格的时候，直接另存为，既可以保存成PDF格式，也可以用传统的方式复制粘贴到Word。

2、除了传统的转换，还可以在线转换，这种转换形式的选择就多了，进入在线PDF转换成Excel转换器，然后你可以将PDF转换成Excel，将Excel转换成PDF，也可以转换其他格式。

3、我们也可以把CAD和Excel进行相互转换，使用迅捷CAD编辑器将制作好的Excel表格插入CAD图纸中。

转载自百家号作者：懒喵话科技

Excel在数分析中常用的查找筛选，都在这里了，我们逐个击破。

第

1

则

- 函数基础 -

在Excel里通过对函数的设定可以对数据进行某种处理。比较常用的函数有：SUM、IF和VLOOKUP。先学习一些比较容易掌握的操作。

01

插入函数的三种方式

方式一：在Excel的顶部找到【公式】菜单，然后点击按钮【fx插入函数】，在弹出的对话框中选择要插入的函数。

方式二：选中单元格后，在函数栏点击【fx】按钮，同样会弹出选择函数的对话框。

方式三：直接在函数栏输入“=”和函数公式的前几个字母，Excel会给出相关函数的选项，需要注意：函数前要先输入“=”。（这个时候你只需要记住函数公式拼写的首字母就可以找到它）

02

利用函数进行基础计算

利用函数计算总数和平均值：

方法一：在表格中选中需要计算的区域，可以在Excel右下方的状态栏查看平均值、计数和求和。

方法二：如下图所示，在【公式】菜单栏点击【自动求和】，在下拉菜单中选择【求和(S)】，选定需要求和的区域后按【Enter键】。根据自动填充的操作，计算出所有成绩的总和，平均值的计算同理。

03

VLOOKUP函数

上期有很多用户问到了VLOOKUP函数的使用。在Excel函数界，VLOOKUP函数敢说自己是第一，就没有人敢站出来反对喔。用它可以实现对数据的检索，非常便捷。具体参数如下：“=VLOOKUP（查找值，查找区域，区域中第N列，查找模式）”

到底要怎么用呢？具体举个栗子来看看。在下图中，我们使用VLOOKUP函数来查找“红平”的基本工资。别看数据少的时候你可以一个个找，如果样本量有几百行甚至更多，用函数查找的优势就能体现出来。

具体的操作是，在结果区输入函数：“=VLOOKUP(H6,B4:F17,2,0)”。其中H6表示查找源，B4:F17表示查找范围，2表示需要查找的信息是查找范围的哪一列，0表示精确查找。输入完成后按【Enter键】就能找到需要的数据了。

第

2

则

- 单元格输入数字 -

在Excel表格输入身份证或者比较多的数字时，通常显示的是编码。要解决这个问题非常简单。

选中输入数字的文本框，点击右键，在下拉菜单选择【设置单元格格式】-【数字】-【文本】，确定后按【Enter键】，就会显示出刚刚输入的数字了。

第

3

则

- 排序和筛选-

01

排序

很多时候我们需要根据数量的大小来给表格排序，这个时候就要用到排序的功能。如下图所示，我们选中需要排序的数据后点击右键，在下拉菜单选择【排序】-【降序】，在弹出的对话框选择【扩展选定区域】，确认后表格就会按照基本工资进行排序。

02

筛选

通过筛选能快速找出符合某种条件的数据。举个栗子来演示一下具体的操作：在下图商品信息的销售表中，如果我们想查看“笔记本”的销售情况。选中“商品”这列，然后在【数据】中选择【筛选】。

点击表格中“商品”旁边的小三角，在下拉菜单中将“订书机”、“钢笔”和“铅笔”前面的√去掉，点击确认就会筛选出“笔记本”的销售情况。

再来举个栗子，比如我们想查看哪些学生的数学成绩没有及格，同样选中“数学”这列后在【数据】中点击【筛选】。

接下来点击“数学”旁边的小三角，在下拉菜单中选择【数字筛选】-【小于】，在弹出的对话框输入数字60，确定后就能筛选出数学不及格的同学。（用了这招，老师能够轻松在小本本上圈出某些同学的名字了呢）

End.

来源：联想服务

更多Excel文章可在菜单栏查看

▼

[ 01]增加工作表(Add方法)

Sub AddWorksheet()

MsgBox "在当前工作簿中添加一个工作表"

Worksheets.Add

MsgBox "在当前工作簿中的工作表sheet2之前添加一个工作表"

Worksheets.Add before:=Worksheets("sheet2")

MsgBox "在当前工作簿中的工作表sheet2之后添加一个工作表"

Worksheets.Add after:=Worksheets("sheet2")

MsgBox "在当前工作簿中添加3个工作表"

Worksheets.Add Count:=3

End Sub

示例说明：Add方法带有4个可选的参数，其中参数Before和参数After指定所增加的工作表的位置，但两个参数只能选一；参数Count用来指定增加的工作表数目。

--------------------------------------------------------------------------------

[ 02]复制工作表(Copy方法)

Sub CopyWorksheet()

MsgBox "在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前"

Worksheets("sheet1").Copy Before:=Worksheets("sheet2")

MsgBox "在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后"

Worksheets("sheet2").Copy After:=Worksheets("sheet3")

示例说明：Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。

[ 03]移动工作表(Move方法)

Sub MoveWorksheet()

MsgBox "在当前工作簿中将工作表sheet3移至工作表sheet2之前"

Worksheets("sheet3").Move Before:=Worksheets("sheet2")

MsgBox "在当前工作簿中将工作表sheet1移至最后"

Worksheets("sheet1").Move After:=Worksheets(Worksheets.Count)

示例说明：Move方法与Copy方法的参数相同，作用也一样。

[ 04]隐藏和显示工作表(Visible属性)

[ 04-01]

Sub testHide()

MsgBox "第一次隐藏工作表sheet1"

Worksheets("sheet1").Visible = False

MsgBox "显示工作表sheet1"

Worksheets("sheet1").Visible = True

MsgBox "第二次隐藏工作表sheet1"

Worksheets("sheet1").Visible = xlSheetHidden

MsgBox "第三次隐藏工作表sheet1"

Worksheets("sheet1").Visible = xlSheetVisible

MsgBox "第四隐藏工作表sheet1"

Worksheets("sheet1").Visible = xlSheetVeryHidden

MsgBox "第五隐藏工作表sheet1"

示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。

[ 05]

Sub ShowAllSheets()

MsgBox "使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)"

Dim ws As Worksheet

For Each ws In Sheets

ws.Visible = True

Next ws

[ 06]获取工作表数(Count属性)

[ 05-01]

Sub WorksheetNum()

Dim i As Long

i = Worksheets.Count

MsgBox "当前工作簿的工作表数为：" & Chr(10) & i

Visual Basic for Application（简称VBA）是一种必须依赖母系程序方能使用的程序，属于VB程序语言的一个子集。我们常用的Excel电子表格除了常规的可视化命令之外，还可以通过VBA代码来操控Excel实现一些较复杂的逻辑运算及统计分析等。我们不仅可以使用代码实现数据的统计运算，还能实现图表的自动生成于刷新，以及图形的旋转与移动。在网上我们可以找到有很多大牛基于Excel的VBA，开发了一些具有特定功能的代码，以及酷炫的游戏界面等。如果您对这方面感兴趣的话，那你必须掌握的第一步操作就是打开VBA界面来认实它。

闲话少聊，下面就重点介绍一下从Excel窗口切换到VBA界面的操作技巧。

方法一是通过功能区的选项卡来实现。首先在菜单栏中找到开发工具项，然后在代码功能模块中找到Visual Basic命令按钮，单击它即可快速切换到VBA界面。若菜单栏中没有开发工具这一项，需要设置自定义功能区下的主选项卡来调出该命令。

2.方法二是通过工作表标签来实现。首先在Excel界面左下角找到工作表标签区域，右键单击任一一个工作表标签，本教程以Sheet1工作表为例，在弹出的右键菜单中选择查看代码命令，随后即可激活VBA界面。

3.方法三是通过快捷键法实现。在Excel操作界面下，按下组合键Alt+F11即可快速切换到VBA界面；在VBA界面下按此组合键即可快速关闭VBA窗口。

在办公场景中，Excel或者WPS表格是很多人使用的一款办公管理软件了。普通人用它填写、存放数据，高手用它画地图、做游戏，Excel可谓是一个遇强越强的神器了。

但一般人很难灵活驾驭得了Excel，一般人除了基本操作，就是Ctrl+v、Ctrl+c，但从此办公难题总是相随左右。

用Excel所产生的办公难题至少有以下五种！

无法协同使用同一张表格。员工A正在使用订单总表，由于设置了密码权限，B员工就只能停滞于“只读”模式，大大影响了工作效率。多条件汇总求和，唯有靠复制粘贴再求和，因为vlookup函数不会用、VB编程又太难。想汇总统计各个客户某月的总额，只能一一复制粘贴到对应表格再求和。数据收集最麻烦，总有人不小心改动了Excel表的格式，汇总时复制粘贴还得再调格式！跨表格操作也还是Ctrl+c/Ctrl+v，制作送货单从总表复制规格数量再粘贴，还得手动改日期！

而我们又该如何解决这些问题呢？不学VB编程、不计excel函数，其实一招就能解决这四大办公难题！甚至还能带来更多办公便利，从此拒绝忙碌与加班。

小编马上就给大家分享解决的思路。

那就是用类似Excel、却可以设计更多功能的产品来替代。比如云表，它是一个无需编程就能开发办公软件的平台，类Excel却不需要用Excel函数，就能实现很多强大的功能。

复制粘贴都是因为数据是一样的，若能自动填充就可以省去很多功夫，制作送货单、制造通知单等直接从总表自动获取数据！

云表用业务公式来解决这一问题，用户只需用中文描述这个业务逻辑，设定订单总表里规格、数量等信息可以填充到送货表单上，并且可以设置日期自动更新，就再也无需手动填写、复制。

而像收集汇总的难题，设定一个除了管理员、谁也无法更改的权限，固定了填写表单的格式，这样其他人在填写的时候就不会误操作而使格式不统一了。而协同的难题，云表也是轻松解决，各个员工都有自己的账号，提前设置好角色权限，就可以呈现因人而异的表单数据，互不干扰却能同时使用表单。

其实云表可以实现的功能还有很多，库存预警提醒、绩效工资自动计算、生成报表分析等，甚至可以做出完整的ERP管理软件、电商仓库管理软件、进销存软件......只要有管理经验，就能用云表做出成熟好用的管理软件。