La sélection UsedRange dans des Colonnes et des Lignes dans la Feuille

  • J'ai deux feuilles dans mon fichier excel, DTMGIS et DTMEdit
  • la DTMEdit feuille est vide
  • et je suis en train de xopy tout de DTMGIS et Coller uniquement les Valeurs de la Feuille de DTMEdit

Je ne sais pas comment sélectionner le UsedRange seulement le et collez-le à DMTEdfit

Dim ws As Worksheet
Dim LastRow As Long, LastCoulmn As Long, Header As Long
Header = 2
Set ws = ThisWorkbook.Sheets("DTMGIS")
LastRow = ws.UsedRange.Rows.Count
LastCoulmn = ws.UsedRange.Column.Count

With ws.UsedRange
    .Select
    .Copy
End With
InformationsquelleAutor Behseini | 2013-12-21
  1. 0

    Essayer quelque chose comme cela: 

    Sub CopyPasteValues()
    Dim ws1 As Worksheet, ws2 As Worksheet

    Set ws1 = ThisWorkbook.Sheets("DTMGIS")
    Set ws2 = ThisWorkbook.Sheets("DTMEdit")

    ws1.Range(ws1.UsedRange.Address).Copy
    ws2.Range("a1").PasteSpecial xlPasteValues
End Sub
    • Grâce Soren ne peuvent tout simplement pouvez-vous s'il vous plaît laissez-moi savoir ce que c'est .UsedRange.L'adresse ?
    • Pas de problème. Qui renvoie l'adresse de la plage utilisée dans une feuille de calcul. Dans ce cas, l'adresse de l'adresse dans DTMGIS.
    • Merci pour le code et expenation
    • peut-être pas le début de la UsedRange sur la première feuille
    • Comment est-ce un problème? UsedRange renvoie la plage indépendamment de la première cellule de la plage.
    • Parce que vous êtes la copie A1 ratter que de reproduire le sous-jacent de la feuille et A1 ne peut pas être le début de la UsedRange de la feuille source.
    • C'est vrai, mais qui ne semble pas être un ciriteria dans ce cas particulier. 🙂

    InformationsquelleAutor Netloh
  2. 0

    Une variation ci-dessous qui

    • évite l'hypothèse que le UsedRange commence à partir de A1
    • exécute la copie, sans déplacement de l'formats (si vous ne l'utilisez .Copy utilisation Application.CutCopyMode = False à la fin)

    code

    Sub FastCopy()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("DTMGIS")
    Set ws2 = ThisWorkbook.Sheets("DTMEdit")
    ws2.Range(ws1.UsedRange.Address).Value = ws1.UsedRange.Value
End Sub
    InformationsquelleAutor brettdj