- 循环遍历:
Dim i As Integer
For i = 1 To 20
Sheet1.Cells(i, 3) = Sheet1.Cells(i, 1)
Next
- 判断:
If 3 > 0 Then
MsgBox "是"
End If
- 循环判断结合:
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