Wie klicke ich auf einen Buchstaben, um zu der Zelle zu gelangen, die mit diesem Buchstaben in Excel beginnt?
Wissen Sie, wie Sie bei Verwendung eines Excel-Arbeitsblatts mit großen Datenmengen schnell zu bestimmten Zellen navigieren oder diese finden können, die bestimmte Inhalte enthalten? Mit der Methode in diesem Artikel können Sie auf eine Alphabetbuchstabenzelle klicken, um zu der Zelle zu navigieren, deren Inhalt automatisch mit diesem Alphabetbuchstaben beginnt.
Klicken Sie auf den Buchstaben, um zur Zelle zu gelangen, die mit diesem Buchstaben mit VBA-Code beginnt
Gehen Sie wie folgt vor, um zu einer Zelle zu gelangen, indem Sie in Excel auf eine Alphabetzelle klicken.
1. Im Arbeitsblatt müssen Sie zu einer Zelle wechseln, indem Sie auf eine Alphabetzelle klicken, mit der rechten Maustaste auf die Registerkarte Blatt klicken und dann auf klicken Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. Dann a Microsoft Visual Basic für Applikationen Das Fenster öffnet sich. Bitte kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Klicken Sie auf den Buchstaben, um zur Zelle zu gelangen, die mit diesem Buchstaben beginnt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim xRgRtn As Range
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("1:1")) Is Nothing Then
Set xRg = ActiveSheet.UsedRange
Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg
If Left(xCell.Value, 1) = Target.Value Then
If xRgRtn Is Nothing Then
Set xRgRtn = xCell
Else
Set xRgRtn = Application.Union(xRgRtn, xCell)
End If
End If
Next
If xRgRtn.Address = Target.Address Then
MsgBox "No matched cell found", , "KuTools For Excel"
Else
xRgRtn.Select
End If
End If
Application.EnableEvents = True
End Sub
Note: Im Code bedeutet 1: 1, dass sich die Buchstaben in der ersten Zeile des Arbeitsblatts befinden.
3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie von nun an auf eine Alphabetzelle klicken, werden alle Zellen, die mit diesem Buchstaben beginnen, automatisch gleichzeitig im Arbeitsblatt ausgewählt.
Wenn keine Zelle mit dem ausgewählten Buchstaben beginnt, wird ein Dialogfeld von Kutools für Excel angezeigt (siehe Abbildung unten).
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!