Copie jusqu'à ce lastRow et la coller dans une autre feuille de calcul

Je suis actuellement en utilisant le code ci-dessous pour copier coller la plage, mais il crée un très gros fichier, une fois que les données sont collées, comment puis-je modifier cela pour copier coller que jusqu'à la dernière ligne active? Ou est le fichier se big cause d'un autre facteur?
Nouveau à VB, toute aide serait grandement appréciée.

Private Sub CommandButton1_Click()
Dim WB1 As Workbook
Dim WB2 As Workbook

Set WB1 = ActiveWorkbook
Set WB2 = Workbooks.Open(WB1.Path & "\RawData.xlsm")

WB1.Sheets("CR Details").Columns("A:AW").Value = WB2.Sheets("sheet1").Columns("A:AW").Value

WB2.Close
End Sub
InformationsquelleAutor GavinJones | 2016-02-17
  1. 0

    La réponse courte à votre question est:

    Private Sub CommandButton1_Click()
Dim WB1 As Workbook
Dim WB2 As Workbook
Dim LastRow As Long

Set WB1 = ActiveWorkbook
Set WB2 = Workbooks.Open(WB1.Path & "\RawData.xlsm")

With WB1.Sheets("CR Details")
    'Find the last cell's row with data in any column
    '(You can also use ".Cells(Rows.Count, 1).End(xlUp).row")
    LastRow = .Range("A:AW").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
    'Copy the values
    WB2.Sheets("sheet1").Range("A1", "AW" & LastRow) = .Range("A1", "AW" & LastRow).Value
End With

WB2.Close
End Sub

    Une explication plus détaillée:

    Très commun, extrait de code pour trouver la dernière ligne est à utiliser:

    (va utiliser Une colonne de regarder pour la dernière utilisation de la ligne) 

    Dim LastRow as Long

With ThisWorkbook.Sheets("CR Details")
    LastRow = .Cells(Rows.Count, 1).End(xlUp).row 
End With

    Changement "1" pour le numéro de la colonne que vous voulez regarder dans.

    De trouver la ligne de la dernière cellule dans une colonne de la range("A:AW"), ensuite, vous besoin de quelque chose comme ceci:

    Dim LastRow as Long

With ThisWorkbook.Sheets("CR Details").Range("A:AW")
    LastRow = .Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
End With

    Que c'est. Ron de Buin a une grande page expliquant cela. Les réponses peuvent également être trouvés sur Un Débordement De Pile.

    • Merci @Niklas Johannsson, cela fonctionne parfaitement.
    InformationsquelleAutor Niklas Johansson
  2. 3

    La taille du fichier est un résultat de l'utilisation de l'ensemble des colonnes. Cette lien couvre quelques façons de trouver, puis à la fin d'une plage de données. Dans votre sous vous pouvez faire ceci:

    Private Sub CommandButton1_Click()
Dim WB1 As Workbook
Dim WB2 As Workbook

Set WB1 = ActiveWorkbook
Set WB2 = Workbooks.Open(WB1.Path & "\RawData.xlsm")

'Find the last row with data
With WB1.Sheets("CR Details")
    LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
End With
WB1.Sheets("CR Details").Range("A1:AW" & LastRow).Copy
WB2.Sheets("sheet1").Range("A1").PasteSpecial xlPasteValues

WB2.Close
End Sub
    • C'est le collage seulement une ligne? Le code a modifié depuis la copie des données à partir de WB2.feuil1 WB1.CR de Détails.
    • Vous avez raison, il y avait un problème avec elle. J'ai corrigé.
    InformationsquelleAutor Jonathan