i=range("A65536").end(xlup).row'最大行號
j=range("A1").end(xltoright).column'最大列號
range("A1").resize(i,j).borders.linestyle=1'添加邊框
end sub