Excel常用VBA语句_200条

Excel常用VBA语句_200条

'将页面设置更改为横向
(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ''在页面设置的表尾中输入文件路径
ActiveSheet.PageSetup.LeftFooter=Application.UserName ''将用户名放置在活动工作表的页脚

单元格/单元格区域
(32) ActiveCell.CurrentRegion.Select
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select
''选择当前活动单元格所包含的范围，上下左右无空行
(33) Cells.Select ''选定当前工作表的所有单元格
(34) Range(“A1”).ClearContents ''清除活动工作表上单元格A1中的内容
Selection.ClearContents ''清除选定区域内容
Range(“A1:D4”).Clear ''彻底清除A1至D4单元格区域的内容，包括格式
(35) Cells.Clear ''清除工作表中所有单元格的内容
(36) ActiveCell.Offset(1,0).Select ''活动单元格下移一行，同理，可下移一列
(37) Range(“A1”).Offset(ColumnOffset:=1)或Range(“A1”).Offset(,1) ''偏移一列
Range(“A1”).Offset(Rowoffset:=-1)或Range(“A1”).Offset(-1) ''向上偏移一行
(38) 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属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列
(39) ActiveWindow.RangeSelection.Value=XX ''将值XX输入到所选单元格区域中
(40) ActiveWindow.RangeSelection.Count ''活动窗口中选择的单元格数
(41) Selection.Count ''当前选中区域的单元格数
(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,””) ''返回单元格中超级链接的地址并赋值
(43) TextColor=Range(“A1”).Font.ColorIndex ''检查单元格A1的文本颜色并返回颜色索引
Range(“A1”).Interior.ColorIndex ''获取单元格A1背景色
(44) cells.count ''返回当前工作表的单元格数
(45) Selection.Range(“E4”).Select ''激活当前活动单元格下方3行，向右4列的单元格
(46) Cells.Item(5,”C”) ''引单元格C5
Cells.Item(5,3) ''引单元格C5
(47) Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)
或 Range(“A1”).Offset(4,5) ''指定单元格F5
(48) Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)
Rnage(“B3”).Resize(11,3) ''创建B3：D13区域
(49) Range(“Data”).Resize(,2) ''将Data区域扩充2列
(50) Union(Range(“Data1”),Range(“Data2”)) ''将Data1和Data2区域连接
(51) Intersect(Range(“Data1”),Range(“Data2”)) ''返回Data1和Data2区域的交叉区域
(52) Range(“Data”).Count ''

上一页第2页下一页