会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
yanhaidong
博客园
首页
新随笔
联系
订阅
管理
vba 排序和复制指定区域到新的xls文件中
排序:
<span style="font-size:18px;">Range("A:T").Sort Key1:=Range("P1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal</span>
复制指定区域到新的xls中:
<span style="font-size:18px;">//设置复制区域 Set rang1 = Range("A1:T1") Set rang2 = Range(Cells(startline, 1), Cells(i - 1, 20)) Application.Union(rang1, rang2).Copy //打开workbook Workbooks.Add With ActiveWorkbook.ActiveSheet //指定复制的区域 Application.Union(rang1, rang2).Select .Paste //保存文件 .SaveAs filename:=ThisWorkbook.Path + "\" + filename //关闭文件 Workbooks(filename).Close End With</span>
posted on
2011-09-05 14:22
yanhaidong
阅读(
1552
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部