怎么实现列表框跟随单元格改变位置

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、在回到工作表，退出设计模式，在点击单元格，就会随着单元格的位置改变而上下移动了