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

以下是VBA代码，可以获取指定范围内所有单元格的信息并逐一输出：

Sub getCellInfo()
    Dim rng As Range
    Set rng = Range("A1:D4") '指定范围
    
    Dim cell As Range
    For Each cell In rng.Cells
        Debug.Print "单元格地址：" & cell.Address
        Debug.Print "单元格值：" & cell.Value
        Debug.Print "单元格行号：" & cell.Row
        Debug.Print "单元格列号：" & cell.Column
        Debug.Print "单元格所在行的第一个单元格地址：" & Range("A" & cell.Row).Address
        Debug.Print "单元格所在列的第一个单元格地址：" & Range(Chr(cell.Column + 64) & "1").Address
        Debug.Print "------------------------"
    Next cell
End Sub

在上面的代码中，我们首先指定要获取信息的范围，然后使用For Each循环逐一遍历范围内的所有单元格。对于每个单元格，我们输出了以下信息：

• 单元格地址：单元格的地址，例如"A1"。
• 单元格值：单元格中的值。
• 单元格行号：单元格所在行的行号。
• 单元格列号：单元格所在列的列号。
• 单元格所在行的第一个单元格地址：单元格所在行的第一个单元格的地址。
• 单元格所在列的第一个单元格地址：单元格所在列的第一个单元格的地址。

以上信息可以根据需要进行调整和扩展