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.
Click on alphabet letter to go to cell which starts with that letter with VBA code
Click on alphabet letter to go to cell which starts with that letter with VBA code
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 SubNote: 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.
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
