如何在Excel中单击字母以转到以该字母开头的单元格？

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！