[已解决]VBA求助 我的这个随机排序 点击后 没有反应 代码应该怎么修改

香川群子

对于范围：Sheets(2).[a3].Resize(n, 8)

直接运用代码是：

1. 
   
2.     With Sheets(2).[a3].Resize(n, 8)
   
3.         .Borders(xlEdgeLeft).LineStyle = xlContinuous
   
4.         .Borders(xlEdgeTop).LineStyle = xlContinuous
   
5.         .Borders(xlEdgeBottom).LineStyle = xlContinuous
   
6.         .Borders(xlEdgeRight).LineStyle = xlContinuous
   
7.         .Borders(xlInsideVertical).LineStyle = xlContinuous
   
8.         .Borders(xlInsideHorizontal).LineStyle = xlContinuous
   
9.     End With
   
10. 
    

复制代码

把这几句代码复制进去就可以了。