Excel如何批量调整多个工作簿的行高和列宽

发布网友发布时间：2022-03-06 16:16

共2个回答

热心网友时间：2022-03-06 17:45

Sub test()
Dim wb As Workbook, MyPath$, MyFile$
MyPath = ThisWorkbook.Path & "\"
MyFile = Dir(MyPath & "*.xls*")
Application.ScreenUpdating = False
Do While MyFile <> ""
If MyFile <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(MyPath & MyFile)
wb.Sheets(1).Columns("A").ColumnWidth = 10
wb.Close True
End If
MyFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "OK"
End Sub

热心网友时间：2022-03-06 19:03

用宏可以做到

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

首页

文章

Excel如何批量调整多个工作簿的行高和列宽