新建一个Excel工作簿,Alt+F11打开VBA编辑器,新建一个模块,复制以下代码,注意如提示变量未定义,则把OptionExplicit行删除即可