1、打开以前已经制作好的表格
2、在功能区点击开发工具，如果功能区没有，可以通过文件选项自定义加入，如图
3、进入后，我们选择设计模式
4、在将鼠标移动到列表框，单击选中，如图
5、单击鼠标右键弹出新的对话框
6、鼠标移动到查看代码位置
7、点击后进入VBA工程页面，如图
8、将如下代码复制到最后边：Private Sub Worksheet_SelectionChange(ByVal Target As Ran爿讥旌护ge)Me.ListBox1.Top = ActiveCell.TopEnd Sub
9、在回到工作表，退出设计模式，在点击单元格，就会随着单元格的位置改变而上下移动了