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

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

sub test()

Dim i, j As Integer

For i = 1 To 10000 '1000行最大

For j = 1 To 3 'A,B,C三列

If Cells(i, j).Value = "2012年度考核" Then

Cells(i, j + 1) = "2012" '这里可以改为其他单元格的值

Cells(i, j + 2) = "5"

End If

Next

Next

顶一下

(0)

0%

踩一下

(0)

0%