每周二培训笔记分享【第11讲】单元格操作--2012年03月13日

zhouyunj

感谢兰版的精彩教学，受益匪浅，万分感激！
以下所有笔记均为兰版每周二晚培训课程的本人做的笔记--完整版

【第11讲】单元格操作--2012年03月13日
主要内容：
1、单元格选取
2、单元格移动选取
3、单元格选取连续区域
4、行列选取
5、特定单元格选取
---------------------------------------
Sub 选取单元格B2方法1()
    Range("B2").Select
End Sub
Sub 选取单元格B2方法2()
    Range("B" & 2).Select
End Sub
Sub 选取单元格B2方法3()
    Cells(2, 2).Select
End Sub
Sub 选取单元格B2方法4()
    Cells(2, "B").Select
End Sub
Sub 选取单元格B2方法5()
    Cells(258).Select  'EXCEL一行255个cell,再转到第二行266一直下去 '这个好像数据有问题
End Sub
Sub 选取单元格B2方法6()
    [B2].Select
End Sub
'Selection 选择区域
Sub 显示当前选择的单元格区域()
    MsgBox Selection.Address
End Sub
'ActiveCell
Sub 显示当前选择的单元格()
    MsgBox ActiveCell.Address
End Sub
----------------------------------------
'offset(A1, 行偏移, 列偏移, 行区域偏移, 列区域偏移)
'向下2行，向右1列 offset
Sub 移动选取()
    Range("A1").Offset(2, 1).Select
End Sub
'以A1为顶点的3行，向右3列 即a1:c3
Sub 固定大小的范围选取()
    Range("A1").Resize(3, 3).Select
End Sub

'以A1为顶点的3行，向右3列 即a1:a3
'省略列数
Sub 固定大小的范围选取2()
    Range("a1").Resize(3).Select
End Sub
D2 5, 3
Range("D2").Resize(5, 3).Select
--------------------------------------------
Sub 选取连续区域方法1()
    Range("c2:f10").Select
End Sub
'此方法只作了解即可
Sub 选取连续区域方法2()
    Range("c2", "f10").Select
End Sub

Sub 选取连续区域方法3()
    Range(Cells(2, 3), Cells(10, 6)).Select
End Sub
Sub 选取连续区域方法4()
    [d1:f10].Select
End Sub
'两个不连续单元格的选取，区别于连续区域选取
Sub 两个不连续单元格的选取()
    Range("c2, f10").Select
End Sub
Sub 选取不连续区域1()
    Range("a1, c2:c10, e3:f5").Select
End Sub
Sub 选取不连续区域2()
    'Union(Range("a1"), Range("a3:c5")).Select
   
    Union(Range("a1"), Range("c2:c10"), Range("e3:f5")).Select
End Sub
----------------------------------------------------
Sub 选取第三行方法1()
    Range("3:3").Select
End Sub
Sub 选取第三行方法2()
    Rows("3:3").Select
End Sub
Sub 选取第三行方法3()
    Rows(3).Select
End Sub
Sub 选取第三列方法1()
    Range("c:c").Select
End Sub
Sub 选取第三列方法2()
    Columns("c:c").Select
End Sub
Sub 选取第三列方法3()
    Columns(3).Select
End Sub
'不连续的行列只能用range()
'而且表达式只能放在一个双引号内表示
Sub 选取不连续行方法()
    Range("3:5, 8:10").Select
End Sub
Sub 混合选取不连续行列方法()
    Range("c:e,g:h").Select
End Sub
-------------------------------------
Sub 选取已使用区域() '选取行列最大矩阵
    ActiveSheet.UsedRange.Select
End Sub

Sub 选取相邻的连续区域() '是指行列连续，至少有一条边或边的点相连
    Range("a1").CurrentRegion.Select
End Sub
'xlDown 垂直向下搜索
Sub B列第一个非空单元格()
    If Range("b1") = "" Then
        Range("b1").End(xlDown).Select
    Else
        ActiveCell.Select
        'Range("b1").Select
    End If
End Sub

'xlUp 垂直向上搜索
Sub B列最后一个非空单元格()
    k = Range("b65536").End(xlUp).Row
End Sub
Sub 数据区域下第一个空白单元格()
    Dim xxx As Integer
    xxx = Range("b65536").End(xlUp).Row + 1
    Range("B" & xxx).Select
End Sub
Sub 第2行最左边一个非空单元格()
    If Range("a2") = "" Then
        Range("a2").End(xlToRight).Select
    Else
        ActiveCell.Select
        'Range("a2").Select
    End If
End Sub
'例：
'将sheets(2)已使用区域COPY至sheets(3)中，从顶点a1开始
'Sheets(2).useRange.Copy Sheets(3).Range("a1")


'Range("e2").CurrentRegion.Select

海云飞

辛苦了啦

libenwen2011

谢谢分享。                    

szczm121

谢谢你，辛苦了

Tristone

向你致敬，向你的学习方法学习

jiejiehit

很详细的笔记啊 谢谢

huangcaiguang

这个入门资料好