Excel VBA - la façon la plus efficace de copier plusieurs cellules d'un fichier à un autre?

actuellement, je suis struggeling avec les éléments suivants:
J'ai deux fichiers Excel. L'un des fichiers contient beaucoup de données, l'autre est utilisée pour l'évaluer.
Maintenant, j'ai besoin de manière efficace copier les données de la source vers la cible classeur. La source datapattern ressemble à la suivante:

x A   B   C   D   E   F   G   H   I
1 Oct bla bla bla bla bla bla bla bla
2             75              66 
3 Nov bla bla IMT Frm bla bla IMT Frm

Où bla représente inintéressant de données, Une Colonne représente le Mois (important) et de la GTI est important de données, qui est la cause de pourquoi je fais cela. Aussi, Frm signifie que la cellule contient une formule, plutôt qu'une valeur et doit être préservée/restauré.
En outre, la cellule de mise en forme du fichier cible doit être préservée (peut être réalisé avec des .PasteSpecial).

La Cible Classeur ne regarder exactement la même, en omettant la moitié emty ligne "2".

Chaque ligne a environ 10 précieuse entrées. Comment pourrais-je, le plus efficace, d'être en mesure de copier les données dans le classeur deuxième?
S'il vous plaît laissez-moi savoir si il y a plus d'informations que je pouvais offrir.
Je vous remercie pour votre temps!

EDIT: exemple de capture d'écran
Clarification: La capture d'écran montre la feuille source. L'information importante est celle qui est sélectionnée dans la ss. La feuille passe sur la droite comme ceci (jusqu'BF). J'ai besoin de copier tous les sixième entrée. La cible de la feuille ressemble exactement la même (en omettant la moitié vide de la rangée du milieu), sauf pour les informations nécessaires qui, dans la source, est une formule, mais elle doit être la valeur de la cible.
Merci beaucoup de m'aider!

InformationsquelleAutor replax | 2011-12-19
  1. 1

    Voici un exemple de code qui vous va dans la bonne direction:

    Public Sub CopyValues()

Dim wb_src As Workbook, wb_dst As Workbook
Dim ws_src As Worksheet, ws_dst As Worksheet

Set wb_src = Workbooks.Open("....")
Set wb_dst = Workbooks.Add()

Set ws_src = wb_src.Sheets(1)
Set ws_dst = wb_dst.Sheets(1)

Dim data() As Variant
Dim r_src As Range
Dim r_dst As Range

Set r_src = ws_src.Range("B4").Resize(1000, 100)
Set r_dst = ws_dst.Range("B4").Resize(1000, 100)

data = r_src.Value2
r_dst.Value2 = data

End Sub
    InformationsquelleAutor ja72
  2. 0

    Essayez ceci:

    Option Explicit
Sub test()
    Dim wb As Workbook, wb2 As Workbook
    Dim ws As Worksheet
    Dim vFile As Variant

    'Set source workbook
    Set wb = ActiveWorkbook
    'Open the target workbook
    vFile = Application.GetOpenFilename("Excel-files,*.xls", _
        1, "Select One File To Open", , False)
    'if the user didn't select a file, exit sub
    If TypeName(vFile) = "Boolean" Then Exit Sub
    Workbooks.Open vFile
    'Set targetworkbook
    Set wb2 = ActiveWorkbook

    'Copy data from a range in the first workbook to another range in the other workbook
    wb2.Worksheets("Sheet2").Range("C3:D4").Value = wb.Worksheets("Sheet1").Range("A1:B2").Value
End Sub
    • merci pour votre aide! le code ci-dessus cependant m'oblige à connaître la gamme, dans lequel est collé à l'avance. Qui varie toutefois selon le mois. Je peux trouver de la Cellule qui contient le mois et je sais que le décalage. Mais j'aurais besoin de quelque parcourir pour arriver à ma cellule cible n'aurais-je pas?
    • est-ce à vous aider? msdn.microsoft.com/en-us/library/aa221353(v=office.11).aspx ... vous aurez à mettre dans une condition à vérifier pour le mois
    • merci encore, oui ça aide! cependant, comme il n'y a pas de condition qui je peut généralement s'appliquer à filtrer le besoin de cellules, il est un moyen d'aller au moyen, par exemple, chaque cellule tiers?
    • pouvez-vous décrire en détail ce que vous voulez faire pour chaque ligne de la source (étape par étape) et ce que vous voulez faire dans la cible classeur pour cette ligne (étape par étape)? Je ne suis pas la compréhension de ce que le but est. Il peut aider beaucoup si vous pouvez prendre une capture d'écran de l'image de la source et de faire un rapide dur copie de la cible et de l'insérer ces images dans vos questions si je peux aider.
    • on dirait que vous voulez déplacer toutes les données à l'exception de la ligne 2 dans la cible, c'est exact? si c'est le cas, pourquoi ne pas copier la totalité de la plage. Puis faire le nettoyage UNIQUEMENT dans la cible une fois que les données sont là? Une astuce que j'utilise pour obtenir rapide et facile du code VBA est pour enregistrer une macro, puis arrêter l'enregistrement, voir à quoi ressemble le code de la macro et de l'appliquer à votre code personnalisé.
    • dans ce cas, supprimez manuellement la ligne 2 avec la souris en cliquant sur pendant que vous enregistrez et découvrez ce que le code est.
    • J'ai ajouté une capture d'écran et quelques informations supplémentaires. en fait, les deux rangées supérieures sont nécessaires pour calculer certaines données dans la troisième ligne, ainsi nécessaire sur la feuille source.
    • Set wb2 = Workbooks.Open vFileest plus court et plus sûr

    InformationsquelleAutor MacGyver
  3. -2

    donc, après un peu plus de recherche, je pense avoir trouvé une réponse.
    S'il vous plaît, de corriger ou d'améliorer moi si mon approche est off/mauvais/pas idéal.
    Je suis l'aide d'une boucle et puis juste assingin la valeur... je me demande, à venir à partir de C++, si c'est le "plus court" façon de faire? ressemble à un ballonnement de boucle for pour moi...

    Dim i As Integer
For i = 6 To 55
    targetSheetSal.Cells(ActiveCell.Row, i + 1).Value = sourceSheet.Cells(24, i).Value
    i = i + 5
Next i

    Merci à tous pour votre temps, vos commentaires et conseils!

    • -1 Ne pas copier la cellule par cellule. Regarder d'autres exemples et copie des plages de plusieurs cellules. Il est de nombreuses fois plus rapide. Exemple: Range("A2").Resize(300,20).Value retourne un tableau de 300 x 20 valeurs à partir de la cellule "A2". Vous pouvez affecter un tableau à une plage dans un mode similaire.
    • Merci pour l'entrée. Il est cependant possible, afin de définir une plage avec des "lacunes" sans saisir de chaque colonne individuelle (éventuellement+ de 100)? comme dans tous les sixième cellule? en utilisant éventuellement offset() ou comment pourriez-vous y parvenir?
    • Oui, vous pouvez. Une option est de sélectionner une gamme basée sur une liste de cellules comme les cellules Range("B4:C9,E4:D9"). Sinon, vous pouvez le faire en VBA portées par le tableau directement. Poster une autre question afin d'obtenir une réponse complète.
    InformationsquelleAutor replax