VBA: Excel中常用代码

//有什么区别？

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