同时按alt和f11进入宏界面,点菜单的插入,模块,粘贴如下代码:
sub test()
dim i as integer
i = inputbox("请输入表格的行数,会自动生成一方表格", "hi")
cells.clearformats
range(cells(1, 1), cells(i, i)).select
selection.borders(xledgeleft).linestyle = xlcontinuous
selection.borders(xledgetop).linestyle = xlcontinuous
selection.borders(xledgebottom).linestyle = xlcontinuous
selection.borders(xledgeright).linestyle = xlcontinuous
selection.borders(xlinsidevertical).linestyle = xlcontinuous
selection.borders(xlinsidehorizontal).linestyle = xlcontinuous
end sub
回到excel,工具,宏,运行此宏,完成。