VBA常用基础复习-6-25

1 运用工作表函数

MsgBox Application.WorksheetFunction.CountIf(range("a1:a10"), "钢笔")

2 VBA函数

MsgBox VBA.Format(range("b1"), "yyyy年m月d日")

3 like函数（相似）

c = "excel函数" Like "*函*"

4 单元格复习

Range("a1").Select         '单元格

Range("a:a").Select        '列

Range("a1:d7,c4:e8").Select  '不相个邻区域

已使用函数/列数

Debug.Print Application.CountA(Range("a:a")) '计算工作表已使用的行数

Debug.Print Application.CountA(Range("1:1")) '计算工作表已使用的列数

5最后一格

Sub 实例1动态选单元格或区域()
Dim i%
i = Application.CountA(Range("c:c")) '找到c列中已使用的最后一个单元格位置
Range("c" & i).Select '选择C列最后一格
Range("a1", "c" & i).Select '选择A1到C列的最后一格（方法一）
Range("a1:c" & i).Select '选择A1到C列的最后一格（方法二）区域
'小结：动态单元格区域的定位，可以应用到单据的保存等实际工作中
End Sub

6 cells 基本写法

Cells(2, "c").Select '行为数字，列为列标字母

7.Sub 地址引用实例()
'将表三成绩中为空的单元格标为未考
Dim rng As Range, rn$
On Error Resume Next
For Each rng In Sheet3.Range("b2:d10")
    If rng = "" Then rn = rn & rng.Address & "," '通过for each循环，构建一个不连续的单元格区域，存入rn变量，最后对这个不连续区域一次性赋值，这样可以减少读取单元格次数，提高效率，是个很好的思路。。。。。。
Next
Range(Left(rn, Len(rn) - 1)) = "未考"

End Sub

8.对选择的部分进行填写

range.select

selection.循环

for each xx In sELECTION

IF .... THEN

I=XXX

9.复习至usedrange已使用区域