如何让列表框的顶部跟随选取的单元格位置变动

1、在功能区点击开发工具，如果功能区没有，可以通过文件选项自定义加入，如图

2、进入后，我们选择设计模式

3、在将鼠标移动到列表框，单击选中，如图

4、单击鼠标右键弹出新的对话框

5、鼠标移动到查看代码位置

6、鼠标移动到查看代码位置

7、点击后进入VBA工程页面，如图

8、将如下代码复制到最后边：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Me.ListBox1.Top = ActiveCell.Top

End Sub

9、在回到工作表，退出设计模式，在点击单元格，就会随着单元格的位置改变而上下移动了