//有什么区别?
Workbooks("a.xls").Sheets("sheet1").Range("AG5")
Workbooks("a.xls").Sheets("sheet1").Cells("AG5")
//取最后一行和列
Range("A65536").End(xlUp).Row
Range("A65536").End(xlToLeft).Column
//求一个月天数
DateSerial(Year(d), Month(d)+1, Day(d)) - d;
//月末
DateSerial(Year(d), Month(d)+1, 0);
ActiveWindow.SmallScroll ToRight:=7
ActiveWindow.SmallScroll Down:=7
//选择
Rows("12:17").Select
Columns("D:F").Select
Range("A1:d3").Select
Sheets("Sheet1").Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Columns("A:A").Select
ActiveSheet.Paste
//判断值是否是错误信息
a = Range("A1"i).Value
IsError(a)
//从当前位向下移动1
ActiveCell.Offset(1, 0).Range("A1").Select
//从当前位向右移动1
ActiveCell.Offset(0, 1).Range("A1").Select
//关闭屏幕更新
Application.ScreenUpdate = False
//用Set 设置为对象变量,以减少对对象的访问
Set MySheet = Workbooks(1).Sheets(1)
MySheet.Range("A1").Value = 100
MySheet.Range("A2").Value = 200
//减少对象的激活和选择
With Sheets("Sheet3")
.Range("A1").Value = 100
.Range("A2").Value = 200
End With
//在循环中要尽量减少对象的访问
Set TheValue = Cells(1,1).Value
Sheets("Sheet1").Select
For k = 1 To 1000
Cells(k,1).Value = TheValue
Next k
//调用Excel自身的函数
a = Application.VLookup(Range("A1"i), Range("A1:B5"), 2, False)
a = Application.WorksheetFunction.Average(Worksheets(1).Range("A1:A1000"))
//统计一个区块的数个数
Application.Count(Range("A:A"))
Worksheets(1).Range("A1:A1000").Rows.Count