zhouyunj 发表于 2012-3-27 23:02

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

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

【第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()
    .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()
    .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

海云飞 发表于 2012-3-28 08:38

辛苦了啦

libenwen2011 发表于 2012-3-29 11:25

谢谢分享。                  

szczm121 发表于 2012-4-17 22:06

谢谢你，辛苦了):P

Tristone 发表于 2012-4-20 11:12

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

jiejiehit 发表于 2012-4-25 14:20

很详细的笔记啊 谢谢

huangcaiguang 发表于 2013-7-15 22:01

这个入门资料好                        
页: [1]
查看完整版本: 每周二培训笔记分享【第11讲】单元格操作--2012年03月13日