Excel VBA -用于处理范围的数组更改单元格的格式

Sub ChangeCellFormat()
    Dim rng As Range
    Dim arr As Variant
    Dim i As Long, j As Long
    
    ' 定义要处理的范围
    Set rng = Range("A1:C5")
    
    ' 将范围的值存储到数组中
    arr = rng.Value
    
    ' 遍历数组并更改单元格的格式
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            ' 在此处添加更改单元格格式的代码
            rng.Cells(i, j).Font.Bold = True
            rng.Cells(i, j).Interior.Color = RGB(255, 0, 0)
        Next j
    Next i
    
    ' 将更改后的数组值写回范围
    rng.Value = arr
End Sub