vba用cells方式获取指定范围内所有单元格逐一获取单元格信息

以下是使用VBA Cells方法获取指定范围内所有单元格并逐一获取单元格信息的示例代码：

Sub GetCellsInfo() Dim rng As Range Set rng = Range("A1:D10") '指定范围，可以根据实际情况修改

Dim row As Long
For row = 1 To rng.Rows.Count '遍历所有行
    Dim col As Long
    For col = 1 To rng.Columns.Count '遍历所有列
        Dim cell As Range
        Set cell = rng.Cells(row, col) '获取指定单元格

        '获取单元格信息
        Dim value As Variant
        value = cell.Value
        Dim formula As Variant
        formula = cell.Formula
        Dim address As String
        address = cell.Address
        Dim fontName As String
        fontName = cell.Font.Name
        Dim fontSize As Long
        fontSize = cell.Font.Size

        '在输出窗口显示单元格信息
        Debug.Print "单元格地址：" & address
        Debug.Print "单元格值：" & value
        Debug.Print "单元格公式：" & formula
        Debug.Print "字体名称：" & fontName
        Debug.Print "字体大小：" & fontSize
    Next col
Next row

End Sub

以上代码会遍历A1:D10范围内的所有单元格，并逐一获取单元格的值、公式、地址、字体名称和字体大小等信息，然后在输出窗口显示出来。你可以根据自己的需要修改代码中的范围和信息获取方式