摘要： Dim wn$, shp As Shape, arr Application.ScreenUpdating = False
Application.DisplayAlerts = False
wn = [a1]
arr = Range("o3:o" & Range("o65536").End(xlUp).Row)
Sheets("报表")....
Dim wn$, shp As Shape, arr
Application.ScreenUpdating = False
Application.DisplayAlerts = False
wn = [a1]
arr = Range("o3:o" & Range("o65536").End(xlUp).Row)
Sheets("报表").Copy
With ActiveWorkbook
With .Sheets(1)
.Rows("1:2").Delete Shift:=xlUp
.Range("D:D,P:P").NumberFormatLocal = "@"
.[o1].Resize(UBound(arr)) = arr
With .UsedRange
步骤是：选定区域A10:C12(先选A10)
Excel处理数据之便捷众人皆知，可在其单元格内换行就略显不便，不知你是否也遇到过此类问题?通过摸索，以下四法便能轻松实现单元格内的自动换行。 1. 输入数据随时换行 用户若要在输入数据时换行，只要通过Alt Enter组合键即可轻松实现。此方法同样可使已输入内容的单元格在光标所在处换行。 2. 单元格区域
.Value = .Value
End With
For Each shp In .Shapes
shp.Delete
Next
End With
.SaveAs ThisWorkbook.Path & "" & wn & ".xls", IIf(Application.Version <= 11, xlNormal, xlExcel8)
.Close
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "ok"
然后单击文件–打印; ②在设置栏下
我们经常使用Excel打印表格时，常常会遇到这样一个问题，打印出来的表格时常在纸张上显示不完整。 如何才能将这些多出的部分打印到一张纸上呢? 如果你的版本是Excel2010，那么可以尝试一下方法来帮你解决： ①打开需要打印的Excel文档，然后单击“文件–>打印&rdquo
