[已解决]菜鸟求一个能一键设定工作表中所有工作薄单元格自动换行居中的代码！

alxixi520

{:2512:}如题，没有附件
菜鸟求设定工作表中所有工作薄单元格自动换行居中的代码！

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-26 05:21

1. Sub Macro1()
   
2. For i = 1 To Sheets.Count
   
3.     With Sheets(i).UsedRange
   
4.         .HorizontalAlignment = xlCenter
   
5.         .VerticalAlignment = xlCenter
   
6.         .WrapText = True
   
7.     End With
   
8. Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. For i = 1 To Sheets.Count
   
3.     With Sheets(i).UsedRange
   
4.         .HorizontalAlignment = xlCenter
   
5.         .VerticalAlignment = xlCenter
   
6.         .WrapText = True
   
7.     End With
   
8. Next
   
9. End Sub

复制代码