Vba把Excel某个范围保存为XLS工作薄文件
时间:2022-12-18 17:27:21
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
.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教程
0
投稿
猜你喜欢
word2013快速插入表格的方法
2023-11-27 12:17:32
excel单元格中含有公式,复制时也把公式也复制过来了,怎么办?
2023-06-25 00:42:04
如何通过安装Office Tab实现Office文档以标签页形式显示
2023-11-07 18:39:07
Win10如何以管理员去运行cmd?Win10以管理员去运行cmd的方法
2023-12-13 21:15:22
word中有两个一样的MathType按钮怎么删除
2022-11-30 20:36:23
excel单元格为空值时显示红色效果的设置方法图解
2022-12-15 09:46:54
如何将word边框的颜色变成无色
2022-09-22 05:19:15
让领导看傻!Excel动态报表来了!
2022-09-26 06:13:24
Word表格制作的几种方法
2023-05-01 13:54:59
Word目录............怎么打?
2022-05-06 14:52:02
word总页码不对怎么办?减少word页码总页数的教程
2023-09-12 11:47:18
Excel制作双斜线表头?
2023-08-19 13:53:43
edge浏览器需要等待很长时间才能打开怎么回事?
2023-06-06 22:41:21
怎么在word中输入生僻字?
2022-12-12 19:44:06
电脑安装Mathtype导致office 2013弹窗报错的解决方法
2023-11-08 23:24:46
金舟投屏设置文件输出目录的步骤教程
2023-06-03 21:45:29
Word文档自动拼写检查(红色波浪线)去除办法
2022-12-21 17:06:52
如何在word2007显示或隐藏格式标记
2023-05-07 16:49:53
用Word 字体隐藏 功能来制作部分文字打印的模板的方法
2022-07-01 00:26:32
word如何快速生成绘制表格的技巧
2023-07-07 08:11:15