Excel - VBA实例: 遍历若干cell的值

在VBA里输入代码并运行以下的例子。

设置某个单元格的值为数值或字符串：

Worksheets("Sheet1").Range("A1").Value = 3.14159

Worksheets("Sheet1").Range("A1").Value = "Hello"

当前活动的Workbook的Sheet1上的操作，遍历A1:D10的单元格，对值进行判断操作：

For Each cell in Worksheets("Sheet1").Range("A1:D10")

    If cell.Value < .001 Then

        cell.Value = 0

    End If

Next cell

For Each cell in Worksheets("Sheet1").Range("A1:D10")

    If cell.Value = "Hi" Then

        cell.Value = "Hello"

    End If

Next cell

下面的例子，使用Array的方法，来操作Range里的内容。Range.Value属性，可以看作一个Variant类型，种类是RangeValueDataType。它是一个2维数组。

Public Sub TruncateSmallValuesInDataArea()

    Dim dataArea As Excel.Range

    Set dataArea = ThisworkBook.Worksheets("Sheet1").Range("A1:CC5000")

    Dim valuesArray() As Variant

    valuesArray = dataArea.Value

    Dim rowIndex As Long

    Dim columnIndex As Long

    For rowIndex = LBound(valuesArray,1) To UBound(valuesArray,1)

        For columnIndex = LBound(valuesArray, 2) To UBound(valuesArray, 2)

            If valuesArray(rowIndex, columnIndex) < 0.001 Then

                valuesArray(rowIndex, columnIndex) = 0

            End If

        Next

    Next

    

    dataArea.Value = valuesArray

    

End Sub

参考：

Range.Value property (Excel) | Microsoft Learn