vba 排序和复制指定区域到新的xls文件中

最新推荐文章于 2025-10-26 16:17:03 发布

原创最新推荐文章于 2025-10-26 16:17:03 发布 · 1.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vba #header

前端专栏收录该内容

2 篇文章

订阅专栏

本文详细介绍了如何使用VBA在Excel中批量复制指定区域，并将其导出到新工作簿中，包括设置复制区域、操作工作簿等步骤。

排序：

Range("A:T").Sort Key1:=Range("P1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal

复制指定区域到新的xls中：

//设置复制区域
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