第045篇:VBA之行列引用、row与column属性

  • 时间:
  • 来源:互联网
  • 文章标签:

(一)行列引用

Sub 行引用()

Rows(1).Select

Rows("2").Select                   '引号可加可不加

Rows("3:4").Select                '引用多行的时候,引号要加上

End Sub

**********************************

Sub 列引用

Columns(1).Select

Columns("b").Select

Columns("c:e").Select             '在引用多列的时候,只能用列标来表示

End Sub

**********************************

Sub Range行列表示()

Range("1:1").Select                 '即使只选择一行,也要用从哪到哪的方式来写

Range("2:4").Select

Range("a:a").Select

Range("b:d").Select

End Sub

**********************************

Sub 简写方式()

[1:1].Select

[2:4].Select

[a:a].Select            

[b:d].Select

End Sub

**********************************

Sub 全选()

Rows.Select

Columns.Select

Cells.Select

i = Rows.Count                 '逐句运行,通过本地窗口可以看到 i j 的值,但 k 的值由于太大,运行会提示错误:溢出

j = Columns.Count

k = Cells.Count                 ' k 的值大概是170+亿,没有哪种数据类型可以写下这数

End Sub

**********************************

Sub 动态引用使用区域()

a = Application.CountA(Columns(1))            '计算第1列的非空单元格

b = Application.CountA(Rows(1))                 '计算第1行的非空单元格

Range("a1",Cells(a,b)).Select                       '选择a1到右下角的最大矩形区域

                                                                      '这样选择的前提是目标区域的第1行第1列是已用单元格最多的行与列

End Sub

(二)row与column属性

Range.Row属性:返回区域中第一个子区域的第一行的行号(其实就是返回区域最左上单元格的行号)

Range.Column属性:返回区域中第一个子区域的第一列的列号(返回区域最左上单元格的列号)

Sub test()

i = Range("a3:b9").Range("a5").Row                   '这里的区域是指a3:b9区域的a5单元格,结合下一句代码和插图体会差别

j = Range("a3:b9").Row

i = Range("b3:d9").Range("a").Column               '相对列

j = Range("b3:d9").Column                                 '绝对列

End Sub

    

Sub row应用()                                          '实现隔行设置高度

For Each rw In Rows("1:13")                    '从第1行到第13行,rw代表每一行

    If rw.Row Mod 2 = 0 Then                    '如果行号除以2的余数是0(也就是偶数行)那么将该行的行高设置为5(偏窄值)

       rw.RowHeight = 5                              '那么将该行的行高设置为5(偏窄值)

    End If

Next rw

End Sub

 

本文链接http://www.taodudu.cc/news/show-83076.html