Como clicar em uma letra do alfabeto para ir para a célula que começa com essa letra no Excel?

Ao usar uma planilha do Excel com uma grande quantidade de dados, você sabe como navegar ou encontrar rapidamente as células que contêm um determinado conteúdo? Com o método deste artigo, você pode clicar em uma célula de letra do alfabeto para navegar até a célula cujo conteúdo começa com essa letra automaticamente.

Clique em uma letra do alfabeto para ir para a célula que começa com essa letra usando código VBA

Clique em uma letra do alfabeto para ir para a célula que começa com essa letra usando código VBA

Por favor, siga os passos abaixo para ir a uma célula clicando em uma célula de letra no Excel.

1. Na planilha, onde você precisa ir a uma célula clicando em uma célula de letra, clique com o botão direito na aba da planilha e depois clique em Visualizar Código no menu de contexto. Veja a captura de tela:

2. Em seguida, uma janela do Microsoft Visual Basic for Applications será aberta; por favor, copie e cole o seguinte código VBA na janela de Código.

Código VBA: Clique em uma letra do alfabeto para ir para a célula que começa com essa letra

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

Observação: No código, 1:1 significa que as letras do alfabeto estão localizadas na primeira linha da planilha.

3. Pressione simultaneamente as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.

A partir de agora, ao clicar em uma célula de letra do alfabeto, todas as células que começam com essa letra serão selecionadas automaticamente na planilha.

Se nenhuma célula começar com a letra selecionada, você receberá uma caixa de diálogo do Kutools para Excel, conforme mostrado na captura de tela abaixo.