时间戳

首页 > 解决方案 > 将所有行（范围）从一个工作簿复制到新的 excel - 但首先删除重复项

excel - 将所有行（范围）从一个工作簿复制到新的 excel - 但首先删除重复项

问题描述

我消除了重复，没有给出任何错误。然后我尝试选择所有行（每次都不相同）给出超出范围的错误

MyBook.Sheets("Excel").Range("C1:P1000000").Copy .Sheets("Sheet1").Rows("1") 

Dim rg As Range
    Dim rg2 As Range
    Set rg = Range("F2").CurrentRegion
    rg.RemoveDuplicates Columns:=1, Header:=xlYes
       
    Dim MyBook As Workbook, newBook As Workbook
    Dim FileNm As String

    Set MyBook = ThisWorkbook

    FileNm = ThisWorkbook.Path & "\" & "TEST-BOOK.xls"
    Set newBook = Workbooks.Add

    With newBook
        MyBook.Sheets("Excel").Range("C1:P1000000").Copy .Sheets("Sheet1").Rows("1")

        'Save new wb with XLS extension
        .SaveAs Filename:=FileNm, FileFormat:=xlNormal, CreateBackup:=False

        .Close Savechanges:=False
    End With

标签： excelvba

解决方案

dim newWb as workbook

activesheet.cells.copy
set newWb = workbooks.add
newWb .worksheets(1).cells(1,1).pastespecial

推荐阅读