Wie Finde ich Die Zellen Mit Zusammenhängenden Daten In Einer Zeile In Excel VBA?

Gegeben, das Bild... Wenn ich weiß, dass es einige Daten ab Range("B3").

Wie kann ich die Zellen mit zusammenhängenden Daten, die bis in die Zelle E3? Da F3 leer ist G3 ab, sollten Sie nicht berücksichtigt werden.
Das Ergebnis kann entweder ein range-Objekt (B3:E3) oder Anzahl der Zellen( 4 in diesem Fall).

Durch Einstellung B3 als die Aktive Zelle und tun..

Range(ActiveCell, ActiveCell.End(xlToRight).Count

Bekomme ich die zählen, aber diese Methode ist nicht zuverlässig, im Fall B3 hat nur Daten-es zählt die Zellen bis zum Ende der Platte.

Natürlich konnte dies auch erreicht werden, indem die Schleife durch die Zellen, aber ich würde lieber eine Tabellenfunktion oder eine andere effiziente Methode.

InformationsquelleAutor Kevin Boyd | 2009-10-20

Es scheint, dass Sie versuchen, um zu bestimmen, die Anzahl der fortlaufenden Spalten verwendet, die in einer Zeile ab Zelle B3.

Den code unten zurück, die Werte von $B$3:$E$3 und 4 auf der Grundlage der Daten. Wenn nur die Zelle B3 hat, wird Sie Ihre Daten return $B$3 und 1.

Sub GetDataArea()

Dim strCellToTest As String
Dim rngMyRange As Range
Dim lngColumns As Long

strCellToTest = "B3"

lngColumns = ActiveWorkbook.ActiveSheet.Range("" & strCellToTest).End(xlToRight).Column - 1

If lngColumns >= 256 Then
 Set rngMyRange = ActiveWorkbook.ActiveSheet.Range("" & strCellToTest)
 lngColumns = 1
Else
 Set rngMyRange = ActiveWorkbook.ActiveSheet.Range _
 (strCellToTest & ":" & Range("" & strCellToTest).Offset(0, lngColumns - 1).Address)
End If

MsgBox "Columns: " & lngColumns & vbCr & vbLf & "Range: " & rngMyRange.Address

End Sub

Scheint gut zu sein! Lassen Sie mich überprüfen, dass aus.

InformationsquelleAutor Robert Mearns

Intersect(Activecell.CurrentRegion, ActiveCell.EntireRow)

Zurück B3:E3. Alternativ

If IsEmpty(ActiveCell.Offset(0,1).Value) Then
   Set rMyRange = ActiveCell
Else
   Set rMyRange = ActiveCell.Parent.Range(ActiveCell, ActiveCell.End(xlToRight))
End If

rMyRange wird auch zurück, B3:E3

Die zweite Lösung scheint gut zu sein! Lassen Sie mich noch einmal überprüfen, bis auf das, dass!

InformationsquelleAutor Dick Kusleika

1

Könnten Sie die CurrentRegion-Eigenschaft. Dies gibt der Bereich, der zusammenhängend ist, um den angegebenen Bereich. So...
```
Range("B3").CurrentRegion returns the range B3:E3
Range("B3").CurrentRegion.Columns.Count returns 4
Range("B3").CurrentRegion.Cells.Count also returns 4
```
Jedoch, wenn Sie Daten in Zeilen 4 und unten (sagen wir, Sie hatte data in B4:E6), dann hätte man diese Ergebnisse
```
Range("B3").CurrentRegion returns the range B3:E6
Range("B3").CurrentRegion.Columns.Count returns 4
Range("B3").CurrentRegion.Cells.Count returns 16
```
Ist es das, was Ihr nach?
- Nette Idee aber ich hätte die Daten auf die Zeilen oben und unten die besagte Zeile so CurrentRegion nicht wieder die richtigen Werte.
- Würde CurrentRegion.Spalten.Zählen nicht für Sie arbeiten?
- Ich denke CurrentRegion gibt immer das umgebende Gebiet, das >= die Gesamtfläche. Deshalb, gegeben, er hat Spaltenüberschriften, CurrentRegion.Spalten würde immer wieder 4.
- In seinem ursprünglichen Frage, er sagt, die Folge könnte ein Angebot oder ein Zähler. Ich dachte, er wollte eine Anzahl von 4 in diesem Fall, was ihm die Anzahl der Spalten in der currentregion um B3. Vielleicht Kevin klären könnte?
- Nun zu deiner 1. Frage, ich weiß wirklich nicht, dachte ich, dass die aktuelle region eine Zelle leeren Bereich auf allen Seiten von den Daten gut zu funktionieren. Aber in meinem Fall könnten Sie mit Daten in der Zeile beginnend bei B2 und auch bei der B1 und auch bei B4 und B5, die ich nicht im Bild gezeigt. so wirklich weiß es nicht, es CurrentRegion funktioniert, überprüfen Sie bestückungsvorschlag obwohl
- Shannon: Nun habe ich beantwortet, um die dendarii und hoffe, dass klärt Ihre Frage, ich habe gerade überprüft in Bezug auf die Spalten.Zählen und, wenn es gibt einige Daten über die Zeile B3 oder unten, und es erstreckt sich mehr als die Spaltenüberschriften CurrentRegion auch diese auswählt.
- zu deiner 2. Frage, ich hätte Daten aus Zelle B2 ab, könnte es zu verlängern, um 2 Zellen,3 Zellen mehr, die nicht wissen, zur compile-Zeit, aber ich weiß sicher, dass die Daten beginnt bei B2. nun, die info-das Programm sollte in der Lage sein zu entziffern die Zahl von Spalten der Daten erstreckt sich auf, bevor es auf eine leere Zelle.
InformationsquelleAutor dendarii

Ich gerne eine Funktion benutzen, die Grafen von Spalten, die Werte enthalten, bis es, Auftritt eine leere Zelle. Der Rückgabewert kann benutzt werden, um einer "FOR NEXT" - Schleife, um die Abwanderung durch eine Tabelle. Hier ist, wie ich es tun würde:

Sub tester()
    Dim Answer
    Answer = CountColumns(3, 2)
    MsgBox "There are " & Answer & " columns."
 End Sub
Public Function CountColumns(ByVal startRow As Integer, ByVal startColumn As Integer)
    'Pass starting location in spreadsheet for function to loop through until
    'empty cell is found. Return count of columns function loops through

     Do While ActiveSheet.Cells(startRow, startColumn).Value <> ""
        startColumn = startColumn + 1
     Loop
     startColumn = startColumn - 1
     CountColumns = startColumn
 End Function

InformationsquelleAutor Krashman5k

0

Je nachdem, wie Sie allgemein brauchen, um, es könnte so einfach sein wie
```
Application.WorksheetFunction.Count([b4:e4])
```
Wenn Sie möchten, binden Sie in die ActiveCell, versuchen
```
Application.WorksheetFunction.Count(intersect(activecell.CurrentRegion, activecell.EntireRow))
```
- WorksheetFunction.count wird nicht funktionieren, da ich nicht weiß, die parameter e4 zur compile-Zeit, überprüfen Sie meine Antworten auf dendarii. Lassen Sie mich einen Blick auf den anderen.
InformationsquelleAutor Ryan Shannon

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.