Hur klickar man på alfabetets bokstav för att gå till cellen som börjar med den bokstaven i Excel?
När du använder ett Excel-kalkylblad med stor mängd data, vet du hur man snabbt navigerar till eller hittar vissa celler som innehåller specificerat innehåll? Med metoden i den här artikeln kan du klicka på en alfabetbokstavscell för att navigera till cellen vilket innehåll som börjar med den alfabetbokstaven automatiskt.
Klicka på alfabetet för att gå till cellen som börjar med den bokstaven med VBA-kod
Klicka på alfabetet för att gå till cellen som börjar med den bokstaven med VBA-kod
Gör så här för att gå till en cell genom att klicka på en alfabetcell i Excel.
1. I kalkylbladet måste du gå till en cell genom att klicka på en alfabetcell, högerklicka på arkfliken och klicka sedan på Visa kod från högerklickmenyn. Se skärmdump:
2. Sedan a Microsoft Visual Basic för applikationer fönstret dyker upp, vänligen kopiera och klistra in nedanför VBA-koden i kodfönstret.
VBA-kod: Klicka på alfabetet för att gå till cellen som börjar med den bokstaven
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 SubAnmärkningar: I koden betyder 1: 1 att alfabetets bokstäver finns på den första raden i kalkylbladet.
3. tryck på andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.
Från och med nu, när du klickar på en alfabetcell, väljs alla celler som börjar med den bokstaven på en gång i kalkylbladet automatiskt.
Om ingen cell börjar med den valda bokstaven får du en Kutools för Excel-dialogruta som visas nedan.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
