vba - 在 Excel 中打印行单元格值

Question

我想打印 Excel 行中的值。我可以到达该行并选择它，但如何循环访问单元格？或者有一个我可以读取的行对象吗？

Range("A1").End(xlUp).Offset(1, 0).Select

    Do Until IsEmpty(ActiveCell)

        r = Rows(ActiveCell.Row).EntireRow.Select

        For Each cell In r.Cells
            Debug.Print cell.Value
        Next cell

    Loop

Answer 1

我认为执行 Do UntilIsEmpty(ActiveCell)` 不是一个好主意:
您可以有一些空单元格，然后是非空单元格。

此代码对您有何帮助？

Sub print_some_values()

    Dim c As Long
    Dim r As Long
    Dim max_col As Long

    r = ActiveCell.Row
    max_col = ActiveSheet.UsedRange.Columns.Count

    For c = 1 To ActiveSheet.UsedRange.Columns.Count
       Debug.Print ActiveSheet.Cells(r, c).Value
    Next c

End Sub