如何用代码清除所有工作表的外框黑边

rayhen

其他行和内容保留，只有清除外框黑边所有工作表

有人可以帮帮我吗 ？ 将不胜感激

02761752696

这个意思吗？

录了个宏...

rayhen

谢老师  这行出现黄色 sh.UsedRange.Select 不能执行下去了

1. Sub Test()
   
2. Dim sh As Worksheet
   
3. For Each sh In Sheets
   
4. sh.UsedRange.Select
   
5. Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   
6. Selection.Borders(xlDiagonalUp).LineStyle = xlNone
   
7. Selection.Borders(xlEdgeLeft).LineStyle = xlNone
   
8. Selection.Borders(xlEdgeTop).LineStyle = xlNone
   
9. Selection.Borders(xlEdgeBottom).LineStyle = xlNone
   
10. Selection.Borders(xlEdgeRight).LineStyle = xlNone
    
11. Next
    
12. End Sub

复制代码

rayhen

运行时错误“1004”
范围类的选择方法失败

sh.UsedRange.Select

rayhen

老师是那意思可是代码出不来

02761752696 老师四楼可以再帮忙吗？不能完成工作