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 开发人员参考