1.文本联接符  &
2.两个日期相减，结果还是日期，如果计算相差天数，要把结果单元格先设成数值型。
3.给单元格起个好记的名字：左上角标记处输入后回车
4.两个区域求和：sum(a1:e1,a3:e3)
5.=AVERAGE(K32,K35) 求k32,k35两个单元格的平均值，=AVERAGE(K32：K35) 求k32到k35多个连续单元格的平均值，
6.自动求和：选中要放结果的单元格，单击“自动求和”工具，选择求和的区域，回车
7.count（）统计数字项的个数，纯文本及逻辑格式的数据被忽略，日期型及同一单元格中有数字和文本的被统计
8.sumif(区域1，条件，区域2):当区域1满足“条件”时，对区域2的数据求和，区域1与区域2可以重和
9.高级筛选：多个条件“且”时：字段名在一行，条件在相邻的下一行。“或”时，条件在与字段名中间隔一空行
10.date(y,m,d) 根据输入的数值参数，返回一个日期
11.datevalue() 文本参数返回日期
12.time(h,m,s)  根据输入的数值参数，返回一个时间
13.timevalue() 根据文本参数返回时间，该时间值是一个十进制数据。例：=TIMEVALUE("12:00 pm") 值为0.5 即一天的一半
14.WEEKDAY(日期,2) 返回日期所在的星期。第二个参数说明返回值是如何与星期对应的。
15.rounddown(数据,小数位数)  小数位数之后的不论大小皆舍去，roundup()与之相反
16.vba:
   日期分割符#9/14/1999#
   定长字符串：dim  mystr as  string*16  最长16位
17.保护工作薄
先加载用户窗口
Private Sub Workbook_Open()
Application.Visible = False '隐藏工作簿
UserForm1.Show '启动窗体
End Sub

窗体中建立密码输入框
Private Sub CommandButton1_Click()
If TextBox1.Text = "你要的用户名" And TextBox2.Text = "密码" then
unload UserForm1 '卸载窗体
Application.Visible = True '显示工作簿
end if
end sub
18.获取活动单元格的数据：activecell.value
19.活动工作薄：activeworkbook
活动工作表：activesheet
活动单元格：activecell
workbooks:工作薄集合
wrokbook:工作薄对象
worksheets:工作表集合
wroksheet:工作表对象
20.相对引用：a1  相对于当前活动单元格的位置，它随活动单元格的变化而变化
绝对引用：$a$1  工作表中的经绝对位置，固定不变
混合引用：$a1 ,a$1
21.range :指定单元格区域
 指定坐标，引用区域，activecell,select方式
22.将当前选定区域中的字体为斜体
ActiveSheet.Cells.Font.Italic = True
命令中指定区域：
ActiveSheet.Range("a1:h1").Font.Italic = True
特定单元格
ActiveSheet.Cells(1, 1).Font.Italic = True
用法：
范围
Range("A1:D10").FormulaR1C1 = "10"
    Range("A1:D10").Value = 100
    Range("A13").Value = 1
坐标
    Cells(13, 1).FormulaR1C1 = "10"
    Cells(13, 1).Value = 100

23.操作特定区域
Dim ran As Range
Set ran = Range(Cells(13, 1), Cells(16, 20))
ran.Font.Color = RGB(125, 25, 255)

24.获取当前鼠标选择的区域
selection
例：
MsgBox Selection.Font.Name

25.选择含有指定单元格的连续（有数据）区域
Range("m12").CurrentRegion.Select
26.给某单元格写个公式
Range("j2").Formula = "=sum(f2:g2)"
27.清除数据
Range("b2:j2").Clear
clearComments 清除批注
clearcontents 清除公式
clearformats  清除格式
clearnotes    清除附注
delete        删除区域

28.选择的行数
MsgBox Selection.Rows.Count
29.当前表有多少行
MsgBox Range("a3").CurrentRegion.Rows.Count
各行是连续有数据的