Wie legen Sie einen Zeitraum, als die Schnittmenge von UsedRange OHNE erste Zeile + eine Andere Spalte?

Ich habe eine range-variable "rng".
Ich rng auf die Kreuzung:
(1) Den usedrange auf dem Blatt mit AUSNAHME der ersten Spalte, UND
(2) die Spalte mit der Nummer 6, beispielsweise

Derzeit habe ich:

Set rng = Intersect(.UsedRange, .Columns(6)).SpecialCells(xlCellTypeVisible)
' Because the range is filtered and i only need to select visible cells

Aber das gibt eine Spalte, die hat auch die header-Zeile in es. Ich braucht nur die zahlen in der Spalte.

(1) quick-Funktion/Methode/Eigenschaft zu tun?
(2) wie finde ich die Größe dieses Bereichs? rng.Zeilen.count gibt immer EINEN, auch wenn es mehrere Zellen im rng. Sollte ich mit rng.zählen? was ist der Unterschied?

Vielen Dank,

Al

  • .usedrange.offset(0,1).resize(.usedrange.rows.count,usedrange.columns.count-1)
InformationsquelleAutor Alaa Elwany | 2012-06-28
  1. 2

    Ich sehe, Sie haben bereits akzeptiert eine Antwort, und doch sehe ich nicht, wie Sie die Antwort auf Ihre Anforderung, dass es nicht die Kopfzeile. Hier ist meine Lösung, die funktioniert. Es beantwortet auch deine Frage 2, wie man die Zeilenanzahl:

    Sub GetRangeAndCountRows()
Dim rng As Excel.Range
Dim rngArea As Excel.Range
Dim RowCount As Long

With ActiveSheet
    Set rng = Intersect(.UsedRange.Resize(.UsedRange.Rows.Count - 1, .UsedRange.Columns.Count).Offset(1, 0), .Columns(6)).SpecialCells(xlCellTypeVisible)
    Debug.Print rng.Address
    For Each rngArea In rng.Areas
        RowCount = RowCount + rngArea.Rows.Count
    Next rngArea
    Debug.Print RowCount
End With
End Sub
    • Ich sah, dass der Wortlaut zwei über die Kopfzeile, aber ich dachte, da die OP war hartnäckig auf die Spalte, er wollte nur abhacken der ersten Spalte. Aber es ist lustig, weil es eigentlich nicht das gleiche wie die original-Zeile, in der es wählt alle verwendeten Zellen in Spalte F. ich ignorierte es zuerst, aber Sie machen einen guten Punkt.
    • Dank Scott und Doug. Es dauerte ein wenig Experimentieren, bis ich herausfand, dass ich brauche, mehr als die erste Antwort von Scott. Doch immer noch sowohl das Scott 's und Doug' s Antwort hat mir einen Einblick in, wie zu beheben einen großen Teil des Problems (ich bin ein Durchschnitts-VBA-user, aber nicht ein absoluter Anfänger, also manchmal, auch wenn der post nicht zu 100% beantworten Sie meine Frage, es gibt mir einen Einblick, wie es zu ändern und es effizient zu nutzen).
    InformationsquelleAutor Doug Glancy
  2. 1

    Tim ' s Kommentar oben funktioniert natürlich auch nicht.

    Diese Antwort ist zu halten, im Einklang mit den obigen code, und kann auch leichter zu Lesen.

    Hinzufügen .UsedRange.Offset(,1) statt .UsedRange ignorieren die erste Spalte in der UsedRange in Ihrem Interesect Formel.:

    Set rng = Intersect(.UsedRange.Offset(,1), .Columns(6)).SpecialCells(xlCellTypeVisible)
    • Beachten Sie, dass dieses scheitern wird mit einem Laufzeitfehler, wenn es etwas in der letzten Spalte.
    • Tatsächlich, nach mehr gedacht, ich glaube, Sie wirklich wollen, wenn Sie versuchen, um loszuwerden, Ihre header-Zeile Set rng = Intersect(.UsedRange,.UsedRange.Offset(1), .Columns(6)).SpecialCells(xlCellTypeVisible) Dies gibt Ihnen im wesentlichen F2:F(lastrow im verwendeten Bereich). Ich habe diesen in einem Kommentar, da Sie angenommen habe, die Antwort... (das ist vor allem deshalb ignorierte ich es, nachdem ich es erwischt.)
    • Just bewusst sein, dass dies fehlschlagen wird, wenn es etwas in der letzten Zeile, ähnlich wie mein Kommentar oben. Allgemein, wenn es etwas in der letzten Zeile (oder Spalte), und Sie tun ein Offset(1,) (oder (,1)), die Sie versuchen, erstellen Sie einen Bereich, der jenseits der letzten Zeile (oder Spalte) im Arbeitsblatt ein. Das ist, warum Sie benötigen, zu tun, eine Größe von weniger Zeile (oder Spalte) vor dem Offset.
    • D'uh! Sie würde denken, ich hätte darauf hingewiesen, dass, da dein Erster Kommentar. Nicht ein heller Tag für mich heute 🙂 vielen Dank für die Geduld und Erklärung. Es hilft definitiv. Habe ich nicht oft verwenden Sie Größe ändern, aber dachte, ich brauche, um zu entdecken, dass es mehr.
    • Darauf können Sie Wetten! Es ist toll, dass wir haben dieses hervorragende forum zu teilen, was wir wissen.
    InformationsquelleAutor Scott Holtzman
Schreibe einen Kommentar