1、取得最后一行

Range("A65536").End(xlUp).Row  '取得A列的最后一行

2、取得url网址的内容文本到strTextM1里面

With CreateObject("MSXML2.XMLHTTP")
            .Open "GET", "url", False
            .send
        strTextM1 = StrConv(.Responsebody, vbUnicode)
         End With

3、   

Range("A1").Comment.Delete '删除批注
Range("A1").AddComment "批注内容" '添加批注

4、

Application.OnTime Now + TimeValue("00:00:02"), "sheet1.CommandButton1_Click" '设置2秒间隔重复运行
Application.OnTime Now + TimeValue("00:00:02"), "sheet1.CommandButton1_Click", , False '停止重复运行

5、

ActiveWorkbook.FollowHyperlink "http://finance.sina.com.cn/stock/" '打开网址

6、

UBound(alldata1) '得到数组的项次
ReDim recdate(0 To recnum)'重新定义数组范围，不重新定义会出错

7、

Range("d2:k65536").Clear '格式内容一起清除
Range("d2:k65536").ClearContents'仅清除内容，不清除格式
Range("d2:k65536").Delete shift:=xlUp '删除单元格，上移
Range("d2:k65536").Insert shift:=xlDown '删除单元格，下移

8、打开文件

file1 = ThisWorkbook.Path & "\ysg.xlsm" '这个是相对路径
Set d1 = VBA.GetObject(file1) '打开文件
Cells(1, "b") = d1.Sheets("三层").Cells(1, "C") '读取d1文件的单元格数据

9、

Application.ScreenUpdating = False   '禁止屏幕刷新
Application.Calculation = xlCalculationManual   '计算模式为手动,到结尾修改回头,可以加快运行速度!!
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

10、跳到指定单元格并显示在当前屏幕

Application.Goto reference:=Range("a1"), Scroll:=True '页面可视范围跳转到该位置

12、

chr(61)，等号
chr(34)，双引号 "
chr(38)，连字符&

range("a1").NumberFormat = "0.00"'数值
range("a1").NumberFormat = "0.0%" '百分比
range("a1").NumberFormat = "@" '文本

13、

Call Sheets("预算汇总表").CommandButton3_Click '需要设置为非private模式

14、vlookup函数

vlookup("要匹配的内容",A1:B7,2,0)  '在A1~A7中匹配内容后得到B列对应的数据，2是表示从a列数，第二列。如果是C列，那么就是3
VLOOKUP("要匹配的内容",IF({1,0},B1:B5,A1:A5),2,0) '逆向查找，在B列中根据匹配得到A列对应的数据，2的道理同上。

15、

SUMPRODUCT(E4:E12,H4:H12) '表示E4*H4+E5*H5+……+E12*H12

16、

Sheets("联系单模板").Select '选择工作表，只有选择后才能执行复制功能
Sheets("联系单模板").Copy after:=Sheets(Sheets.Count) '复制当前工作表，放在最后的位置，也可以采用sheet("某表")，放在某表后面
MsgBox("提示内容,可用chr(10)换行", vbYesNo + 256, "标题") ’vbyes表示焦点在是上面，+256表示交点在否上面
Worksheets("工作表1").Delete '删除工作表

17、跳转

on error goto handle01
正常执行的代码
exit sub '跳转行，如无跳转直接结束sub
handle01:
end sub

18、写文件

Open "pathname/filename" For Output As #1
print #1 string1
close #1

19、'常见的单元格数据格式：

Range("a1").NumberFormat = "0.00" '将数字设置为两位小数；
Range("a1").NumberFormat = "0.00%" '将数字设置为两位小数的百分数；
Range("a1").NumberFormat = "000000" '将数字设置为6位整数（邮编）；
Range("a1").NumberFormat = "@" '将数字设置为文本；
Range("a1").NumberFormat = "[DBNum2]" '将数字设置为中文大写；
Range("a1").NumberFormatLocal = "(￥#,##0.00_); [红色] (￥#,##0.00)" '将数字设置为人民币；
Range("a1").NumberFormat = "yyyy年m月d日" '设置为日期；
Range("a1").NumberFormat = "yyyy年m月d日aaaa" '设置为日期星期几；
Range("a1").NumberFormat = "yyyy-m-d dddd" '设置为日期星期几；(英文)
Range("a1").NumberFormat = "mmmm" ' 设置英文全称；
Range("a1").NumberFormat = "mmm" '设置英文简称；
Range("a1").NumberFormat = "aaaa" '设置汉语星期；
Range("a1").NumberFormat = "dddd" '设置英语星期；
Range("a1").NumberFormat = ";;" '隐藏单元格数字；
Range("a1").NumberFormat = ";;;" '将隐藏单元格数字和文本
Range("a1").NumberFormat = "0;-0;;@" '隐藏单元格零值