求教老师们，工作簿的工作表中区指定列内容保存的问题

yamiedie

老师们表中内容如图，要求取标黄的三列单独保存到一个工作簿的工作表中，怎么vba实现

迪尼索斯

0123456789

dsmch

1. Sub dsmch()
   
2. Dim arr, brr, i&
   
3. arr = Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To 3)
   
5. For i = 1 To UBound(arr)
   
6.     brr(i, 1) = arr(i, 1)
   
7.     brr(i, 2) = arr(i, 4)
   
8.     brr(i, 3) = arr(i, 6)
   
9. Next
   
10. With Workbooks.Add
    
11.     .Sheets(1).Range("a1").Resize(UBound(brr), 3) = brr
    
12.     .SaveAs Filename:=ThisWorkbook.Path & "\新建.xlsx"
    
13.     .Close 0
    
14. End With
    
15. End Sub
    

复制代码

gwjkkkkk

Sub test()
    Dim Rng As Range
   
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
   
    With [A1].CurrentRegion
        Set Rng = Union(.Columns(1), .Columns(4), .Columns(6))
        With Workbooks.Add
            Rng.Copy .Sheets(1).[A1]
            .SaveAs ThisWorkbook.Path & "\新建"
            .Close
        End With
    End With
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。