How to click on alphabet letter to go to cell which starts with that letter in Excel?
While using an Excel worksheet with large amount of data, do you know how to navigate to or find the certain cells which contain specified content quickly? With the method in this article, you can click on an alphabet letter cell to navigate to the cell which content starts with that alphabet letter automatically.
- Reuse Anything: Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
- More than 20 text features: Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
- Merge Tools: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
- Split Tools: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
- Paste Skipping Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
- Super Filter: Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
- More than 300 powerful features; Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.
Please do as follows to go to a cell by clicking on an alphabet cell in Excel.
1. In the worksheet, you need to go to a cell by clicking on an alphabet cell, right click on the sheet tab, and then click View Code from the right-clicking menu. See screenshot:
2. Then a Microsoft Visual Basic for Applications window pops up, please copy and paste below VBA code into the Code window.
VBA code: Click on alphabet letter to go to cell which starts with that letter
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: In the code, 1:1 means that the alphabet letters locate on the first row of the worksheet.
3. Press the Alt + Q keys simultaneously to close the Microsoft Visual Basic for Applications window.
From now on, when clicking on an alphabet cell, all cells which start with that letter are selected at once in the worksheet automatically.
If no cell starts with the selected letter, you will get a Kutools for Excel dialog box as below screenshot shown.