1.为几万行数据加序号
先在A1，A2分别输入1，2，选中A1：A2，双击A2右下角那个小方块。
数据有多少行就会自动填充多少行（要求：B列数据连续）
2.统计一列中单元格的值等于某个值的单元格的个数
=COUNTIF(A1：A10,123) 计算列A1至A10单元格中的值等于123的单元格的个数
3.快捷键：Shift+Space 选中一行时失效
⇒与输入法的快捷键发生冲突。切换成英文输入状态，就可以使用该快捷键。
4.在单元格中输入等于号和公式的前几个字符，Excel会提示可选公式，Excel如何选中某个公式呢：
⇒想当然地认为是Enter键表示输入确认，实际是使用TAB键才可以。
5.使用Excel函数获取字符串中两个字符之间的字符串（截取字符串）,Find函数
例：单元格A1:S123E
目标：获取单元格A1中S,E之间的字符串
公式：=MID(A1,FIND("S",A1)+1,FIND("E",A1)-(FIND("S",A1)+1))
结果：123
6.查看当前07版Excel打开文档的所在目录
方法1：最左上角有个圆形的office按钮，单击之后选择“准备”，再选择“属性”，会看到文档位置以及用户等信息。
方法2：在“自定义快捷访问工具栏”里添加自定义命令“文档位置”（document location）。
7.批量插入空白行
使用排序法。比如有三行记录。在右侧添加辅助列，输入1,2,3.复制这个三行一列，拷贝到下面4到6行这个三行一列中。对这六行一列进行排序。OK完成。
8.批量删除空白行
定位命令法。选中一列（空白行的单元格没有数据，其他行有数据，F5，选择空白单元格，右击删除行。
9.使用INDIRECT，实现间接引用
=COUNTIF(INDIRECT($A2&"!$BH$10:$BH$89"),D$1)
INDIRECT($A2&"!$BH$10:$BH$89")
注意：A2单元格的内容有括号的话，需要给这个字符串加上单引号。
10.VBA根据一个Sheet在工作薄的末尾批量追加相同内容的Sheet。
Sub autoAddSheets()
Dim i&, userinto, sourcesheetName
i = 0
sourcesheetName = "見積伝票明細付加Dto"
userinto = InputBox("input the number of sheets")
If IsNumeric(userinto) = True Then
Do Until i = userinto
Worksheets(sourcesheetName).Copy After:=Worksheets(Worksheets.Count)
i = i + 1
Loop
End If
End Sub
11.VBA设置工作表的Size为100%，并选中单元格Cells(1,1)，选中第一个工作表。
Sub selectCellofSheets()
Dim i&
i = 1
Do Until i = Worksheets.Count + 1
Application.Goto ActiveWorkbook.Sheets(i).Cells(2, 1)
ActiveWindow.Zoom = 100
i = i + 1
Loop
Worksheets(1).Activate
End Sub
来源：https://www.cnblogs.com/niaomingjian/p/3657553.html