通过在Excel VBA中整列循环
下面我们就来看看在Excel VBA程序，通过整个第一列和颜色是超过一定值时的所有值循环。
将工作表上的一个命令按钮并添加以下代码行：
1.首先，声明一个称为类型长的变量i。我们使用类型的变量这儿很久了，因为龙变量比整型变量更大的容量。
Dim i As Long
2.接下来，添加代码行，其改变的所有单元的A列中的字体颜色为黑色。
Columns(1).Font.Color = vbBlack
3.添加循环。
For i = 1 To Rows.Count Next i
注：工作表最多可有1,048,576行在Excel 2007或更高版本。
无论你使用的是什么版本，代码行通过以上的所有行循环。
4.接着，我们颜色是比输入到单元格D2的值的情况下的所有值。空单元格将被忽略。下面的代码行添加到循环。
If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Font.Color = vbRed
End If
结果当您单击工作表上的命令按钮（这可能需要一段时间）：
