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
各行是连续有数据的