例二、用Sheet1.Range("a1:a10") 定位 '方法:实际上就是对对象的操作,它是一种动作,一种行为。 Sub 选择方法() Range("a1:a10").Select '注:如果单元格区域前没有写工作表名,则默认为活动工作表 End Sub Sub 复制方法() Sheet1.Range("a1:a10") = 1 '将1写入表一的a1:a10区域 Sheet1.Range("...
Select a rectangular range of cells around a cell Range("A1").CurrentRegion.Select Copy Select a cell relative to another cell ActiveCell.Offset(5,5).Select Copy Range("D3").Offset(5,-1).Select Copy Select a specified range, offset It, and then resize It Range("A1").Offset(3,2).Re...
[a1].Resize(k).Select Resize的参数不能为0(选取的单元格区域不可能是0行或0列)或负数。 11,特殊单元格定位 类似于基础操作中的定位功能(快捷键F5或Ctrl+G)。 比如定位一张表的错误值单元格: Cells.SpecialCells(xlCellTypeFormulas, 16).Select 再比如快速删除A列单元格为空白的记录行: Columns("A:A")...
在VBA世界里,也有与“IF…Then…Else”齐名的条件语句“Select… Case”语句。假如遇到这样的条件:“如果是1就进行A,如果是2就进行B,如果是3就进行C……”,也就是处理好多情况的时候,应用“Select…Case”语句就能编出简明、易懂的宏语言。当然了,应用“IF…Then…Else”语句也能做到,但处理多个条件,“Select...
First off, there was an error in my original post. In the ElseIf block, the lineActiveCell.Offset(-1, -6).Selectshould not be there. That was from an earlier version of the statement where I was just trying to see if it would select the correct cell. I simply forgot to remove it...
Allows you to unselect or deselect a cell within a group of selected cells. Discussion: Once a number of cells have been selected using the Shift and Control keys, Excel does not allow you remove a cell from that selection. This macro makes it possible to deselect any one of the sele...
Cells相对于Range的使用频繁次数,我个人更倾向于Cells的使用,此用法是非常简单明了,cells(a,b),其中a代表的是我们的行号的数字,b代表的是我们工作表的列号。使用起来更适用于循环。现在看一个简单的例子,如下:Cell 过程使用 For...Next 语句为工作表中的 A1:A100 单元格区域自动填入序号1到100. ...
Select Case This Case 0, "sheet","worksheet": If Target Is Nothing Then Set Target =Application.ThisCell vResult = Target.Parent.Name Case 1, "book","workbook": If Target Is Nothing Then Set Target =Application.ThisCell vResult = Target.P...
在VBA世界里,也有与“IF…Then…Else”齐名的条件语句“Select… Case”语句。假如遇到这样的条件:“如果是1就进行A,如果是2就进行B,如果是3就进行C……”,也就是处理好多情况的时候,应用“Select…Case”语句就能编出简明、易懂的宏语言。当然了,应用“IF…Then…Else”语句也能做到,但处理多个条件,“Select...
("D3:F4,G10") '引用多个区域 Range("2:2") '引用第二行 Range("2:12") '引用第二行到第十二行 Range("D:A") '引用第 A 到D 列Rows(2) '引用第二行 Rows("2:4") '引用第二到四行 Columns("B") Columns("B:D") Range(Clee1, Cell2) '左上与右下 Range(Range1, Range2) '取...