1、首先在开发工具中打开VBA编辑器
3、在VBA编辑器中插入模块
5、选中A7单元格,用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,当前区域中与当前单元格A7背景色一致的单元格数据自动移至最顶端