Excel-VBA Finden Zeile Anzahl der übereinstimmenden Wert

Für Ihren ersten Methode ändern ws.Range("A") zu ws.Range("A:A") die Suche nach der Gesamtheit der Spalte ein, etwa so:

Sub Find_Bingo()

        Dim wb As Workbook
        Dim ws As Worksheet
        Dim FoundCell As Range
        Set wb = ActiveWorkbook
        Set ws = ActiveSheet

            Const WHAT_TO_FIND As String = "Bingo"

            Set FoundCell = ws.Range("A:A").Find(What:=WHAT_TO_FIND)
            If Not FoundCell Is Nothing Then
                MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
            Else
                MsgBox (WHAT_TO_FIND & " not found")
            End If
End Sub

Für die zweite Methode, die Sie verwenden Bingo als variable statt einem string-literal. Dies ist ein gutes Beispiel dafür, warum ich hinzufügen Option Explicit auf der Oberseite der alle meine code-Module, als wenn Sie versuchen, führen Sie den code, es wird direkt auf diese "variable", die undefiniert ist und nicht beabsichtigt, eine variable überhaupt.

Darüber hinaus, wenn Sie mit With...End With benötigen Sie einen Zeitraum . bevor Sie auf Cells, so Cells sollte .Cells. Dies imitiert den normalen qualifying-Verhalten (d.h. Tabelle1.Zellen.Finden..)

Ändern Bingo zu "Bingo" und ändern Cells zu .Cells

With Sheet1
        Set FoundCell = .Cells.Find(What:="Bingo", After:=.Cells(1, 1), _
        LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    End With

If Not FoundCell Is Nothing Then
        MsgBox ("""Bingo"" found in row " & FoundCell.Row)
Else
        MsgBox ("Bingo not found")
End If

Update

In meinem

With Sheet1
    .....
End With

Den Sheet1 bezieht sich auf eine Arbeitsblatt-code name, nicht der name das Arbeitsblatt selbst. Zum Beispiel, sagen wir ich öffne eine neue, leere Excel-Arbeitsmappe. Die Standard-Arbeitsblatt ist nur Sheet1. Ich kann finden, dass in den code entweder mit der code-name der Sheet1 oder kann ich entnehmen das es mit dem index der Sheets("Sheet1"). Der Vorteil zum verwenden ein codename ist, dass es sich nicht ändern, wenn Sie ändern Sie den Namen des Arbeitsblatts.

Fortsetzung dieses Beispiel, sagen wir, ich umbenannt Sheet1 zu Data. Mit Sheet1 würde weiterhin funktionieren, da der code-name nicht ändern, aber jetzt mit Sheets("Sheet1") zurückkehren würde, die Fehler und die syntax muss aktualisiert werden, um den neuen Namen des Blattes, so müsste es sein Sheets("Data").

In den VB-Editor würden Sie sehen, so etwas wie dieses:

Bemerken, wie, obwohl ich änderte den Namen zu Data gibt es noch eine Sheet1 auf der linken Seite. Das ist das, was ich damit meine Codenamen.

Den Data Arbeitsblatt kann auf zwei Arten verwiesen werden:

Debug.Print Sheet1.Name
Debug.Print Sheets("Data").Name

Beide sollten zurück Data

Mehr Diskussion auf dem Arbeitsblatt code-Namen gefunden werden kann hier.

InformationsquelleAutor Soulfire