接着上期内容继续分享vba实操
单元格/单元格区域的操作
ActiveCell.CurrentRegion.Select
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select
''选择当前活动单元格所包含的范围,上下左右无空行
Cells.Select ''选定当前工作表的所有单元格
Range(“A1”).ClearContents ''清除活动工作表上单元格A1中的内容
Selection.ClearContents ''清除选定区域内容
Range(“A1:D4”).Clear ''彻底清除A1至D4单元格区域的内容,包括格式
Cells.Clear ''清除工作表中所有单元格的内容
ActiveCell.Offset(1,0).Select ''活动单元格下移一行,同理,可下移一列
Range(“A1”).Offset(ColumnOffset:=1)或Range(“A1”).Offset(,1) ''偏移一列
Range(“A1”).Offset(Rowoffset:=-1)或Range(“A1”).Offset(-1) ''向上偏移一行
Range(“A1”).Copy Range(“B1”) ''复制单元格A1,粘贴到单元格B1中
Range(“A1:D8”).Copy Range(“F1”) ''将单元格区域复制到单元格F1开始的区域中
Range(“A1:D8”).Cut Range(“F1”) ''剪切单元格区域A1至D8,复制到单元格F1开始的区域中
Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) ''复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中
注:CurrentRegion属性等价于定位命令,由一个矩形单元格块组成,周围是一个或多个空行或列
ActiveWindow.RangeSelection.Value=XX ''将值XX输入到所选单元格区域中
ActiveWindow.RangeSelection.Count ''活动窗口中选择的单元格数
Selection.Count ''当前选中区域的单元格数
GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,””) ''返回单元格中超级链接的地址并赋值
TextColor=Range(“A1”).Font.ColorIndex ''检查单元格A1的文本颜色并返回颜色索引
Range(“A1”).Interior.ColorIndex ''获取单元格A1背景色
cells.count ''返回当前工作表的单元格数
Selection.Range(“E4”).Select ''激活当前活动单元格下方3行,向右4列的单元格
Cells.Item(5,”C”) ''引单元格C5
Cells.Item(5,3) ''引单元格C5
Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)
或 Range(“A1”).Offset(4,5) ''指定单元格F5
Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)
Rnage(“B3”).Resize(11,3) ''创建B3:D13区域
Range(“Data”).Resize(,2) ''将Data区域扩充2列
Union(Range(“Data1”),Range(“Data2”)) ''将Data1和Data2区域连接
Intersect(Range(“Data1”),Range(“Data2”)) ''返回Data1和Data2区域的交叉区域
Range(“Data”).Count ''单元格区域Data中的单元格数
Range(“Data”). Columns.Count ''单元格区域Data中的列数
Range(“Data”). Rows.Count ''单元格区域Data中的行数
Selection.Columns.Count ''当前选中的单元格区域中的列数
Selection.Rows.Count ''当前选中的单元格区域中的行数
Selection.Areas.Count ''选中的单元格区域所包含的区域数
ActiveSheet.UsedRange.Row ''获取单元格区域中使用的第一行的行号
Rng.Column ''获取单元格区域Rng左上角单元格所在列编号
ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) ''在活动工作表中返回所有符合条件格式设置的区域
Range(“A1”).AutoFilter Field:=3,VisibleDropDown:=False ''关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称
Range(“A1:C3”).Name=“computer” ''命名A1:C3区域为computer
或Range(“D1:E6”).Name=“Sheet1!book” ''命名局部变量,即Sheet1上区域D1:E6为book
或 Names(“computer”).Name=“robot” ''将区域computer重命名为robot
Names(“book”).Delete ''删除名称
Names.Add Name:=“ContentList”,_
RefersTo:=“=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))” ''动态命名列
Names.Add Name:=“Company”,RefersTo:=“CompanyCar” ''命名字符串Company
Names.Add Name:=“Total”,RefersTo:=123456 ''将数字123456命名为Total。注意数字不能加引号,否则就是命名字符串了。
Names.Add Name:=“MyArray”,RefersTo:=ArrayNum ''将数组ArrayNum命名为MyArray。
Names.Add Name:=“ProduceNum”,RefersTo:=“=$B$1”,Visible:=False ''将名称隐藏
ActiveWorkbook.Names(“Com”).Name ''返回名称字符串