Excel VBA循环遍历判断简单语句

1. 循环遍历：

Dim i As Integer
	For i = 1 To 20
	Sheet1.Cells(i, 3) = Sheet1.Cells(i, 1)
Next

2. 判断：

If 3 > 0 Then
	MsgBox "是"
End If

3. 循环判断结合：

Dim i As Integer
For i = 1 To 20
	/*如果 i 行第一列的值不包含数字 0 ;/
    If InStr(Sheet1.Cells(i, 1), "0") = 0 Then
    /*i行第3列的的值为第一列判断为true的值*/
    Sheet1.Cells(i, 3) = Sheet1.Cells(i, 1)
    End If
Next