Excel-VBA - how, um effizient zu kopieren mehrerer Zellen aus einer Datei in die andere?

derzeit bin ich struggeling mit den folgenden:
Ich habe zwei Excel-Dateien. Eine Datei enthält eine Menge von Daten, die andere wird verwendet, um es zu bewerten.
Jetzt brauche ich, um effizient kopieren von Daten von der Quelle zu der Ziel-Arbeitsmappe. Die Quelle datapattern, die der folgenden ähnelt:

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

Wo bla steht, uninteressante Daten, in Spalte A steht der Monat (wichtig) und IMT ist wichtig, die Daten, das ist die Ursache, warum ich das Tue. Auch, Frm bedeutet, dass die Zelle eine Formel enthält, sondern als einen Wert und muss bewahrt werden/wiederhergestellt.
Darüber hinaus die Formatierung der Zellen der Ziel-Datei erhalten werden muss (erreicht werden kann mit .PasteSpecial).

Die Ziel-Arbeitsmappe wird genau gleich Aussehen, das weglassen der Hälfte emty Zeile "2".

Jede Zeile hat etwa 10 wertvolle Einträge. Wie würde ich die meisten effizient in der Lage sein, kopieren Sie die Daten in die zweite Arbeitsmappe?
Bitte lassen Sie mich wissen, wenn es mehr Informationen, die ich liefern könnte.
Vielen Dank für Ihre Zeit!

EDIT: Beispiel screenshot
Klarstellung: Der screenshot zeigt die Quell-Platte. Die wichtige information ist die eine, die ausgewählt ist in der ss. Das Blatt geht auf der rechten Seite, wie hier (bis auf BF). Ich muss eine Kopie jeder sechste Eintrag. Die Ziel-sheet sieht genau das gleiche (wobei die Hälfte leer mittlere Reihe), außer der notwendigen Informationen, die Sie in der Quelle ist eine Formel, aber es muss der Wert in der Zielgruppe.
Vielen Dank für die Hilfe!

InformationsquelleAutor replax | 2011-12-19
  1. 1

    Hier ist ein Beispiel code, erhalten Sie gehen in die richtige Richtung:

    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

    Versuchen Sie dies:

    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
    • danke für Eure Hilfe! der code oben wird aber verlangt von mir zu wissen, der Bereich, in die eingefügt wird vorher. Das variiert aber je nach Monat. Ich finde eine Zelle, die enthält den Monat und ich weiß, dass das offset. Aber ich müsste irgendwie Durchlaufen Sie, um zu meinem Ziel-Zelle würde ich nicht?
    • hat dieser Ihnen helfen? msdn.microsoft.com/en-us/library/aa221353(v=office.11).aspx ... haben Sie, um in eine bedingte um zu überprüfen, für den Monat
    • nochmals vielen Dank, ja das hilft! jedoch, da gibt es keine Bedingung, die ich gelten in der Regel für filter die benötigten Zellen, gibt es eine Möglichkeit, den Weg über z.B. jede Dritte Zelle?
    • können Sie beschreiben im detail, was Sie tun soll für jede Zeile in der Datenquelle (Schritt für Schritt) und was Sie tun möchten, in der Ziel-Arbeitsmappe für die betreffende Zeile (Schritt für Schritt)? Ich bin nicht zu verstehen, was das Ziel ist. Es könnte helfen, eine Menge, wenn Sie können, nehmen Sie ein Screenshot-Bild von der Quelle und machen eine schnelle hard-Kopie der Ziel-und legen Sie die Bilder in Ihren Fragen, so kann ich helfen.
    • klingt wie Sie wollen, verschieben Sie alle Daten mit Ausnahme von Zeile 2 in das Ziel, richtig? wenn das der Fall ist, warum kopieren nicht die gesamte Palette. Dann tun die Bereinigung NUR in der Ziel-sobald die Daten vorhanden sind? Ein trick, den ich verwenden, um schnell und einfach VBA-code, um ein makro aufzuzeichnen und dann die Aufzeichnung beenden, sehen, wie der code aussieht, in der makro und wenden es auf Ihre benutzerdefinierten code.
    • in diesem Fall löschen Sie manuell die Zeile 2 mit der Maus, indem Sie während der Aufzeichnung und herauszufinden, was das für code ist.
    • Ich habe soeben einen screenshot und einige weitere Informationen. tatsächlich, die beiden oberen Zeilen sind erforderlich, um zu berechnen, werden einige Daten in der Dritten Zeile, so notwendig Sie auf der Quell-Platte.
    • Set wb2 = Workbooks.Open vFileist kürzer und sicherer

    InformationsquelleAutor MacGyver
  3. -2

    also nach etwas mehr Forschung, ich glaube, ich habe eine Antwort gefunden.
    Bitte, korrigieren oder verbessern Sie mich, wenn mein Ansatz ist aus/falsch/nicht ideal.
    Ich bin mit einer Schleife und dann einfach assingin der Wert... ich Frage mich, kommend von C++, wenn dies der "kürzeste" Weg, es zu tun? sieht aus wie ein aufgeblähter for-Schleife, um mir...

    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

    Danke Euch allen für Eure Zeit, input und Ratschläge!

    • -1 nicht kopieren, Zelle für Zelle. Schau dir andere Beispiele und Kopie reicht von mehreren Zellen. Es ist um ein Vielfaches schneller. Beispiel: Range("A2").Resize(300,20).Value gibt ein array von 300 x 20 Werte ab Zelle "A2". Sie kann weisen Sie ein array, um eine Reihe in eine ähnliche Mode.
    • Vielen Dank für den input. Ist es jedoch möglich, zu definieren, einen Bereich mit "Lücken" ohne Eingabe jeder einzelnen Spalte (vielleicht 100+)? wie in jedem sechsten Zelle? möglicherweise Nutzung offset () - oder wie könnte man das erreichen?
    • Ja, Sie können. Eine Möglichkeit ist, wählen Sie einen Bereich basierend auf einer Liste von Zellen, wie Range("B4:C9,E4:D9"). Alternativ können Sie es in VBA durch modyfing das array direkt. Nach einer anderen mit dieser Frage, um eine vollständige Antwort.
    InformationsquelleAutor replax
Schreibe einen Kommentar