<em>excel</em>中循环遍历函数-excel 单元格遍历,遍历单元格如果为空则结束遍历

为什么要遍历所有百单元格呢，度你查找指定的单元格就行了
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

你是要填入H列是百吧，没有那度么复杂啊
H2=VLOOKUP(E2,J:K,2,0)
这样就可以了!

如果要设置版一个出错检查：
H2=IF(ISERROR(VLOOKUP(E2,J:K,2,0)),"错误权",VLOOKUP(E2,J:K,2,0))
这样也可以
Sub 统计()
Dim row As Integer, col As Integer
For row = 1 To 10
For col = 1 To 10
If Cells(row, col) = 1 Then
Exit For
End If
Next col
Next row
MsgBox row
MsgBox col

End Sub

不需要循环，N27=if(M27>C$19,"大",if(M27=C$19,"相等","小"))，向下复制到N69Excel遍历单元格