EXCELVBA学习笔记

End Sub

Sub 自定义选择()

Worksheets(Array(1, 3, 5)).Select End Sub

第三章 excel 单元格基础 Sub 合并各表()

Dim sht As Worksheet, rs%, rss%, sht2 As Worksheet Application.DisplayAlerts = False For Each sht In Worksheets If sht.Name = \汇总\ sht.Delete End If Next

Application.DisplayAlerts = True

Set sht = Worksheets.Add(after:=Sheets(Sheets.Count)) sht.Name = \汇总\

sht.Cells(1, 1).Resize(1, 3) = Array(\姓名\亩数\村别\ For Each sht2 In Worksheets If sht2.Name <> \汇总\ rs = sht2.UsedRange.Rows.Count rss = sht.UsedRange.Rows.Count + 1 sht2.Range(\

sht.Cells(rss, 3).Resize(rs - 1) = sht2.Name End If Next

MsgBox \合并完成\End Sub

Sub 单元格对象例子()

Debug.Print Range(\计算工作表最大的行数 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 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 行列引用()

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