活动行上转到特定列的vba代码

Question

我有一个excel，它有很多列，传播时间很长。 我想创建一个带有下拉列表的vba，其中列标题作为选择。 选择它时，我应该转到活动行的选定列。

Answer 1

如果在单元格A1中添加数据验证列表，并列出列名称，则此代码将激活正确的列标题。我认为你的列标题在Range A1到Z1中。将此范围更改为列范围。

此代码位于您正在使用的任何工作表的工作表模块中。

Private Sub worksheet_change(ByVal target As Range)
    If target.Cells.Count = 1 And target.Address = "$A$1" Then
        Set Rng = Range("A1:Z1").Find(What:=Range("a1").Value, LookIn:=xlValues)
        Rng.Activate
    End If
End Sub