1 录制宏
开发工具---录制新宏（开发工具在：自定义快速访问工具栏（最上面的倒三角）---常用---勾选）
操作
结束录制
点击开发工具就可以查看代码了
2 添加一个命令按钮
开发工具--插入--命令按钮
3 设置单元格的颜色
Sheet8.Cells(4, 2).Interior.Color = 0
以此类推，也可以设置单元格的其他属性，具体的属性值可以通过录制宏来去的，或者查阅VBA的帮助。
4 清除指定区域的单元格
Worksheets("sheetname").Range("A11:Q2048").Clear
这里的sheetname是电子表的名字。比如：
Worksheets("销售数据").Range("A11:Q2048").Clear
5 表之间的复制
方法一
Worksheets("销售数据").Range("A1:P1").Copy Destination:=Worksheets("有效回款").Range("A11")
Sheets("sheet1").Rows(1).Copy Sheets("sheet2").Rows(1)
方法二
Sheets("sheet2").Rows(1).Value= Sheets("sheet1").Rows(1).Value
6 单元格赋值和取的单元格的值
赋值
Sheet8.[A10]="汽车"
取的单元格的值
ccc = Sheet8.Cells(2, 1).Value
MsgBox (ccc)
7 单元格操作
返回A列的最后一个非空单元格的行号
[Sheets("sheet1").A65536].End(xlUp).Row”语句来
xlToLeft ：向左移动，相当于在源区域按Ctrl 左方向键。
xlToRight：向右移动，相当于在源区域按Ctrl 右方向键。
xlUp：向上移动，相当于在源区域按Ctrl 上方向键。
xlDown：向下移动，相当于在源区域按Ctrl 下方向键。
A列最后增加一个值：
ActiveSheet.Cells([A65536].End(xlUp).Row 1, 1).Value = "汽车型号2"
VBA帮助可以查看execl帮助中的Excel 2007 开发人员参考
