在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