EXCELVBA学习笔记

Debug.Print Range(\计算工作表最大的列数

Debug.Print Application.CountA(Range(\'计算工作表已使用的行数

Debug.Print Application.CountA(Range(\'计算工作表已使用的列数 End Sub

Sub 银行家舍入法()

Range(\ Range(\ Range(\ Range(\End Sub

Sub 大于2500的平均工资()

Dim i%, k%, lj&, rs%, rng% rs = Range(\ For i = 1 To rs

Range(\ rng = Range(\ If rng > 2500 Then

lj = lj + rng: k = k + 1 End If

33 / 62

Next

MsgBox \大于2500的平均工资是：\End Sub

Sub 动态引用行列区域() Dim a%, b%

a = Application.CountA(Range(\ b = Application.CountA(Range(\ Range(Cells(1, 1), Cells(a, b)).Select End Sub

Sub 动态引用使用区域()

a = Application.CountA(Columns(1)) b = Application.CountA(Rows(1)) Range(\End Sub

Sub chr函数字符循环() Dim i&

For i = 1 To 65535 Cells(i, 1) = i Cells(i, 2) = Chr(i) Next End Sub Sub 行列引用()

34 / 62

i = Range(\ j = Range(\

k = Range(\ l = Range(\

m = Range(\End Sub Sub row应用()

For Each rw In Rows(\ If rw.Row Mod 2 = 0 Then rw.RowHeight = 5 End If Next

For Each cl In Columns() If cl.Column Mod 2 = 0 Then cl.ColumnWidth = 1 End If Next End Sub

'活动单元格：activecell,工作表中活动单元格 Sub activecells()

a = ActiveCell.Address Cells(2, 3).Activate

35 / 62

End Sub

Sub 光标所选区域() Selection = 1 End Sub

Sub 在selcetion中改变活动单元格() For i = 1 To Selection.Count Selection(i).Activate Next End Sub Sub 运用()

Dim i As Range, j$ For Each i In Selection j = i.Address

If i = \缺勤\ i = \ End If Next End Sub

Sub合并多个工作薄到一个工作薄多张工作表() '定义对话框变量

Dim fd As FileDialog Set

fd

36 / 62

=