千丝海阁

最近正好有用excel的做些统计的东西，vba的一些用法又从新的review了一下，在此记录一下：

1. 函数返回
VBA的函数返回通过一个和函数名的相同的变量进行返回，而不用写return xxx

ret = myfunction(2)
Function myfunction(i)
    myfunction = i + 1
End Function
msgbox ret 

2. 获取某列的有效行数

countnums = Range("a" & Rows.Count).End(xlUp).Row

3. 查询某列中匹配某字符串的行数

get_line = Application.WorksheetFunction.Match(cname, Range("A:A"), 0)

4. 清楚单元格内容

Range("C2:R4).Clear

4. 清楚单元格内文字，保留格式

Range("C2:R4).ClearContents

5. 统计单元格区域的总和

sum_final = Application.WorksheetFunction.Sum(Range("i2:i10))

---