VBA中调用Excel函数

VBA中编写的事件，不断的触发循环 ：先程序开始时关闭  Excel.Application.EnableEvents =False；结束时打开：Excel.Application.EnableEvents =True

 

调用excel 函数：j= excel.Application.WorksheetFunction.vlookup() （on error resume next）

j= excel.Application.WorksheetFunction.xxxx

example:

求ExcelA列非空单元格:excel.Application.WorksheetFunction.CounA(Range("A:A"))

求ExcelA列  男性个数:excel.Application.WorksheetFunction.Counif(Range("A:A"),"男")

求数组最大值，excel.Application.WorksheetFunction.Max(arr)

求数组最大值下标，excel.Application.WorksheetFunction.Match(Max(arr),arr）

求数组某个值（123） 下标，excel.Application.WorksheetFunction.Match(“123”,arr）

Range("C3：G10").Rows("3:5").Select

Cells

UsedRange

ActiveSheet.Cells.Rows.Count

如果有空行，set r=ActiveSheet.UsedRange。i=r.Row+r.Ro