VBA常用代码分类介绍

对象（表述名字）
工作簿/工作表
workbooks(序号)：以序号来表示 1、2、3
workbooks("工作簿名称") 以文件名来表示
workbooks 工作簿集合 （打开的多个工作簿）
thisworkbook 当前工作簿（当前代码所写的工作簿）
Activeworkbook 正在活动的工作簿（激活的工作簿）

单元格/区域
[a1] or [a1:b1] 简单表示方法
rang("a1:b1") 标准表现方法
cells(1,1) 单个单元格区域表示（行，列）可在写入单元格时使用！！！！
Activecell 活动单元格 （鼠标点选单元格）
selection 所选区域 （点选区域）

动作
worksheets.add 新建工作表 （.add为动作）
Activecell.clear 清除选定区域内容 （.clear为动作）
selection.clearformats 清除所选区域格式
workssheets("sheet1").range("a1:g37").clearformats 清除sheet1 A1-G37的格式
.delete 删除 .insert 插入 .copy 复制 .selsct 选择 .resize(列,行)扩展区域 .count计算数量

属性
.name 名字 .value 数值 rowheight 行高 version 属性 path 路径 range范围
Activecell.rowheight 活动单元格高度 .NumberFormatLocal格式

变量
dim 声明变量 const 声明常量 （xx=3.1415926） redim 重新声明变量（用于某些不能声明变量的情况）

数据类型
byte 字节 （数值）不能大于255
Boolean 布尔true/false (对错）
integer 整数 %
long 长整数（数位大，占用大）&
single 小数点 ！
Double 长小数 #
date 日期
string 字符串长度 $ 加了^3 后代表 只显示前3个字
object 对象 使用设置语法（声明为对象的变量）可对其分配任何对象引用
variant 变体 （不确定是什么）

声明SET 对象附给变量需要加 set 变量
选择一个区域设为变量表达为（set 变量= Range("a3", Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 15)).select ）

运算
1、算数运算符
幂 ^ 负号- 乘* 除/ 整除\ 求余数MOD 加+ 减-
2、连接运算符
字符串连接& 字符串连接+
3、比较运算符
不等于<> 大于等于>=
4、逻辑运算符
非逻辑 NOT 与逻辑 and 或逻辑OR
5、like运算符（重要）
？ 任何一个字符 * 零个或多个字符 #任何一个数字（0-9） [charlist]charlist.中任何单一字符 [！charlist]不在charlist.中任何单一字符

条件判断语句 （单条件用IF 多条件用select）
1、if 开始 then那么 else否则 endif(exitif)结束 elseif多重判断
2、select case 开始 case“XXX”判断结果 CASE ELSE否则 END selsct结束 go to去到（跳转）
(语句变量= inputbox("请输入数字：1、2" )selsct case变量 CASE“1” case"2" case else end selest)
循环语句
1、FOR 变量=3TO1 STEP-1(步速度） NEXT变量 endfor结束 应用：双循环
2、FOR each 变量 in 目标， NEXT 变量 循环格range("a1:c3")

存在的时候不操作，不存在的时候判断操作
3、DO else loop结束 （可配搭 until和while） until直到条件成立时，停止循环。 while 单条件成立时，开始循环。
（DO until unmber>=5 unmber=unmber+1 ）（DO while unmber<=5 unmber=unmber+1）

偏移
.offset(1,1) offset坐标为0

退出语句
1、end 结束 2、stop 断点 3、exit sub
4、exit do循环语句下使用 5、exit for循环语句下使用
6、appliocation.quit 退出工作簿

错误避免
1、on error goto 0： 如果发生错误，立即跳转指定的位置继续执行
2、on error resume next 如果有错误，忽略，继续执行
3、appliction.displayalerts=false 关闭警告对话框，appliction.displayalerts=true 打开警告对话框

函数 dir 遍历
变量=worsheetfunction.countif([b:b]."财务部") (获取B列 财务部的次数）

数组 1、Ubound 返回long数据类型；为数组中可用的最大标值
2、Lubound 返回long数据类型；为为数组中可用的最小标值
例：arr(1to 3,9 to 12) 中 Ubound (arr,1) 显示值为3； Ubound (arr,2) 显示值为12.
3、join 把一维数组的所有内容合并
例：arr=array(1,2,3) join(arr,"") 值=123
4、split 拆分字符串至数组
例：arr=split("a-b-c-d","-") 数组（一维）= a,b,c,d
5、filter 筛选数组里包含关键字的数据
例：arr=array(23,24,58,90) ar=filter(arr,2,true) ar值=23,24 ar=filter(arr,2,false) ar值=58,90