vba将数组写入单（繁：單）元格

VBA遍历所有单元格，并在指定单元格输入内容？为什么要遍历所有单元格呢，你查找指定的单元格就行了sub test()Dim i， j As IntegerFor i = 1 To 10000 "10

VBA遍历所有单元格，并在指定单元格输入内容？

为什么要遍历所有单元格呢，你查找指定的单元格就行了

sub test()

Dim i， j As Integer

For i = 1 To 10000 "1000行最《练：zuì》大

F澳门新葡京or j = 1 To 3 "A，B，C三《读：sān》列

If Cells(i， j).Value = "2012年度考核（读：hé）" Then

Cells(i， j 1) = "2012" "这里可以改【pinyin：gǎi】为其他单元格的值

Cells(i， j 2) = "5"

End If

在excel的工具功gōng 能中进(拼音：jìn)入vba编辑器执行宏保护公式的功能，即可对指【练：zhǐ】定单元格，或区域单元格进行保护。

具体操作(拼音：zuò)步骤如下：

1、打开EXCEL2003世界杯，输入《拼音：rù》并编辑好相关的数据。

2、编辑相关的统计[拼音：jì]公式，如在原始数据最后一列增加总分列，并在K4单元格输入：=SUM(D4:J4)，然后往下拖拉填tián 充公式。

3、点击EXCEL工作薄的工具（拼音：jù）——宏

4、在弹出的界面选择保护[繁：護]公式，点击执行。

5、最后按极速赛车/北京赛车Alt F11在弹出的界面输入密码(繁：碼)即可。

注意事shì 项：

为了避免别人进(繁：進)入VBA编辑模式查看解锁密码或者乱修改代码【练：mǎ】，最后一定要记得将宏设置密{mì}码。

提示：插入模块，编辑一个宏：

1、用GetObject函数，澳门银河将 D:MyDocuments数据备份.xls文件读【练：dú】取到内存。

2、用{yòng}语句Range("A1000").End(xlUp).Row读取最后一行行号n，假若超【练：chāo】过1000行，只要改变1000即可。

3、判断A5单元[读：yuán]格是否(pinyin：fǒu)为零，若为零，则用Range("A"&n&":C"&n).EntireRow.ClearComments清(pinyin：qīng)除数据；

4、清幸运飞艇除完毕后(繁：後)，用 MsgBox"数据清除成功" 语句提示结束。

5、在目前文档中一个单元格用于标识数据清除标识，例(pinyin：lì)如A5单(拼音：dān)元格，若A5=0，表示未清除，若A5=1，则表示已清除。

6、在打开文件模块语句中，将A5单元格清零。以上{shàng}为提示，具体代码，你不妨自己jǐ 写。