Как щелкнуть букву алфавита, чтобы перейти к ячейке, которая начинается с этой буквы в Excel?
При использовании листа Excel с большим объемом данных знаете ли вы, как быстро перейти или найти определенные ячейки, содержащие заданное содержимое? С помощью метода, описанного в этой статье, вы можете щелкнуть ячейку с буквой алфавита, чтобы автоматически перейти к ячейке, содержимое которой начинается с этой буквы алфавита.
Нажмите на букву алфавита, чтобы перейти к ячейке, которая начинается с этой буквы с кодом VBA.
Нажмите на букву алфавита, чтобы перейти к ячейке, которая начинается с этой буквы с кодом VBA.
Чтобы перейти к ячейке, щелкните ячейку с алфавитом в Excel, сделав следующее.
1. На рабочем листе вам нужно перейти к ячейке, щелкнув ячейку с алфавитом, щелкнув правой кнопкой мыши вкладку листа, а затем щелкнув Просмотреть код из контекстного меню. Смотрите скриншот:
2. Затем Microsoft Visual Basic для приложений появится всплывающее окно, скопируйте и вставьте ниже код VBA в окно кода.
Код VBA: щелкните букву алфавита, чтобы перейти к ячейке, начинающейся с этой буквы.
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Внимание: В коде 1: 1 означает, что буквы алфавита находятся в первой строке рабочего листа.
3. нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.
С этого момента при нажатии на ячейку с алфавитом все ячейки, начинающиеся с этой буквы, автоматически выбираются на листе.
Если ни одна ячейка не начинается с выбранной буквы, вы получите диалоговое окно Kutools for Excel, как показано ниже.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
