Drucken von Zeilen-Zelle Werte in Excel

Ich würde gerne drucken Sie die Werte in eine Excel-Zeile. Kann ich die die Zeile und wählen Sie es aus, aber wie mache ich eine Schleife durch die Zellen? Oder ist es ein row-Objekt, dass ich Lesen kann?

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

InformationsquelleAutor Lorenzo | 2010-12-02

  1. 2

    Ich denke, dass dies Do UntilIsEmpty(ActiveCell)` ist keine gute Idee:

    Sie konnte einige leere Zellen, gefolgt von nicht-leeren Zellen.

    Wie funktioniert dieser code funktioniert für Sie?

    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
    Glaube, du hast Recht über das leere Zelle.

    InformationsquelleAutor bernie

  2. 1

    Ich bin mir nicht sicher, was Sie versuchen zu erreichen, aber dieser code druckt die aktuelle Zeile, bis eine leere Zelle gefunden

    Sub a()

Dim r As Range
Dim c As Range

    Set r = Rows(ActiveCell.Row)
    For Each c In r.Cells
        If (IsEmpty(c)) Then Exit For
        Debug.Print c.Value
    Next c

    Bearbeiten

    Ich denke, das ist, was du suchst: 

    Sub a()

Dim TheArray As Variant

TheArray = Range("A4:E4").Value
Debug.Print TheArray(1, 4)

End Sub
    Nur um zu klären meine ich will gehen durch alle Zeilen, Lesen Werte und sendet Sie an den SQL-Server. Gibt es einen besseren Weg, dies zu tun? Ich hatte erwartet, zur Behandlung einer Zeile als ein recordset-Zeile, lustig Excel nicht alles besser zum Lesen von Werten in den Zeilen.
    De Leo finden Sie unter Bearbeiten
    Ist das ernsthaft die einzige MS-Referenz für Excel? msdn.microsoft.com/en-us/library/aa272268%28v=office.11%29.aspx
    De Leo Sorry, weiß es wirklich nicht. Ich in der Regel surfen Sie im web, wenn Sie diese benötigen. MS doc-Organisation macht mich Weinen.
    Ihre erste Ansatz inspiriert meine Lösung, zusammen mit einigen hinweisen von Adam. Dank

    InformationsquelleAutor Dr. belisarius

  3. 0

    Ich einen gemischten Ansatz, der ">" sagt mir, wenn die Zeile ist verschmutzt (wurde bearbeitet)

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

max_col = ActiveSheet.UsedRange.Columns.Count

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

Do Until IsEmpty(ActiveCell)
    Debug.Print ActiveCell.Value

    If ActiveCell.Value = ">" Then
        Set r = Rows(ActiveCell.Row)

        For Each c In r.Cells
            'print the value of each cell in the row
            If c.Column = 1 Then
                'skip
            ElseIf c.Column <= max_col Then
                Debug.Print c.Value
            Else
                Exit For
            End If
        Next c
    End If

    ActiveCell.Offset(1, 0).Select

Loop

    InformationsquelleAutor Lorenzo

Schreibe einen Kommentar