标签：style os io ar for 数据 cti sp on
最近一直在研究VBA，写报表的工作。将所得的知识，经验总结一下，与大家分享。
工具篇，VBA
1.EXCEL一个最好用的功能就是录制宏，当一个函数拿不准要怎么写，用什么函数表示的时候，录制就帮了大忙了。
2.VBA相对于录制的宏，可以更精确，更聪明，逻辑更清晰，执行也更有效。特别是它的循环和递归，直接解放了人的双手。
3.VBA的基本操作
（1）定位：
基本单位：sheets(页)，Rows(行），Columns(列），cells(单元格），RANGE(一个范围的单元格）
相对于每个基本单位，我们都可以选择跳转（select),清空（clear),取消合并（UnMerge),合并（Merge).删除（delete),激活（activate),复制（copy），粘贴（paste)
其实它并不局限于当前的某行某列，更加有效的方法是在规则上的控制。比如：某页的最后一行，某页的最后一列。
这样的方式就会更加灵活。
LastRow = Sheets("名称“).Range("a65536").End(xlUp).Row ‘取数据表的最后一行数据的行号
Lastcol = Sheets("名称").Cells(6, 255).End(xlToLeft).Column ‘取数据部的第六行的最后一列的数据。
(2) 时间
如果你想定位时间，比如今天
1.直接用EXCEL的函数。并且只取其值，不取函数。
Range("D6").Select
ActiveCell.FormulaR1C1 = "=Today()"
Range("D6") = Range("D6").Value
2. VBA函数DATE.
Range("D6").Select
Range("D6").Value=date
（3）.排版
列宽
Columns("C").ColumnWidth = 5
Columns("B").ColumnWidth = 22
Range(Columns(4), Columns(40)).ColumnWidth = 9
行宽
（4）.循环
while
........
wend
优点：当有两个表，或者两个变量的时候，该while特别好用。
for i =0 to 18 step 2
......
next
优点：特别适合一张表。
（5）条件判断
IF .....THEN..... 条件判断的利器
（6） 统计
1 COUNTIF. Application.CountIf(Range(Cells(8, 3), Cells(32, 3)), "Up") 统计范围内”UP“的个数。
2 VLOOKUP.Application.VLookup(Cells(mNum, 2), Worksheets("UMP关键key值").Range("A:I"), 9, 0) 查询函数。
（7）创建新页并起名
Sheets.Add After:=Sheets(Sheets.count)
aa = Sheets("名称").Cells(38, i)
Sheets(Sheets.count).Name = aa
Sheets(Sheets.count).Select
（8）连字符&。具有无比的粘性，将字符和数字连在一起。
aa = Sheets("UMP关键key值").Range("I" & i)
ab = Sheets("UMP关键key值").Range("J" & i)
ac = aa & " - " & ab
标签：style os io ar for 数据 cti sp on
原文地址：http://www.cnblogs.com/wutongyuhou/p/3964010.html
