Kopieren Sie die drei Spalten zu einer Spalte in Excel-VBA

Ich brauche Hilfe beim erstellen einer Excel-VBA-makro. Ich habe eine Arbeitsmappe enthält 4 Arbeitsblätter. Coulmn "A" im Arbeitsblatt Nummer 1, 2 und 3 sind mit Daten gefüllt. Ich brauche zum kopieren dieser Daten in Blatt 4 Spalte "A". Ich habe dies bereits getan, indem Sie mit diesem code, aber es schien nicht zu funktionieren (es werden nur die Daten kopieren durch Austausch ..).

BEISPIEL (ich muss folgende)

(Sheet 1 Col. A)
1
2
3
4

(Sheet 2 Col. A)
5
6

(Sheet 3 Col. A)
7
8
9

Kopieren müssen alle oben in Blatt 4 Col. A wie folgt

1
2
3
4
5
6
7
8
9

So, ich schrieb einen code wie folgt

Sub CopyColumnToWorkbook()
    Dim sourceColumn As Range, targetColumn As Range

    Set sourceColumn = Worksheets("Sheet1").Columns("A")
    Set targetColumn = Worksheets("Sheet4").Columns("A")

    sourceColumn.Copy Destination:=targetColumn
End Sub

Sub CopyColumnToWorkbook2()

    Dim sourceColumn As Range, targetColumn As Range

    Set sourceColumn = Worksheets("Sheet2").Columns("A")
    Set targetColumn = Worksheets("Sheet4").Columns("A")

    sourceColumn.Copy Destination:=targetColumn
End Sub

Sub CopyColumnToWorkbook2()

    Dim sourceColumn As Range, targetColumn As Range

    Set sourceColumn = Worksheets("Sheet3").Columns("A")
    Set targetColumn = Worksheets("Sheet4").Columns("A")

    sourceColumn.Copy Destination:=targetColumn
End Sub

Diese oben genannten Codierung nicht funktioniert, wie ich brauche. Jemand bitte helfen Sie mir zu tun, wie im obigen BEISPIEL.

Danke Ihnen sehr.

InformationsquelleAutor dhammikai | 2013-05-23

  1. 1

    Dies ist quick code warf ich zusammen, nur um Sie auf die richtige Spur. Es kann gereinigt werden. Grundsätzlich, wenn Sie wollen, schauen Sie durch jedes Blatt und sehen, was die Letzte Spalte verwendet wird, und kopieren Sie dann den gesamten Bereich, der für die Spalte Ein, und fügen Sie es auf der master-Platte, die ab der letzten verwendeten Zelle in Spalte A. Sie wollen nicht einfügen ganze Spalten, so habe ich "End(xlUp)", die die letzten verwendeten Zelle in Spalte A.

    Sub ColumnAMaster()

Dim lastRow As Long, lastRowMaster As Long
Dim ws As Worksheet
Dim Master As Worksheet

Application.ScreenUpdating = False
Set Master = Sheets.Add
Master.Name = "Master"
lastRowMaster = 1

For Each ws In ThisWorkbook.Sheets
    If ws.Name <> "Master" Then
        lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
        ws.Range("A1:A" & lastRow).Copy Destination:=Master.Range("A" & lastRowMaster)
        lastRowMaster = Master.Range("A" & Rows.Count).End(xlUp).Row + 1
    End If
Next

Application.ScreenUpdating = True
MsgBox "Done!"

End Sub

    Sorry StackOverflow ist nicht Einrücken der code, wie es sollte...

    Dinge, die Sie tun möchten: prüfen Sie, ob alle Daten innerhalb jedes Blatt vor dem kopieren Eines über den master, loop-through-Arbeitsblätter in einer bestimmten Reihenfolge, zu prüfen, ob ein 'master' Blatt existiert oder nicht bereits, usw.

    Hi Issun, ich Danke Ihnen sehr für Ihre Rost helfen. Ich cleary undestood Ihren code und es funktioniert perfekt für meine Anforderungen. Dank Freund wieder.
    Wenn dies deine Fragen beantwortet, stellen Sie bitte sicher, dass Sie das Häkchen neben der Antwort auf 'akzeptieren' es 🙂 Glücklich war ich in der Lage zu helfen.

    InformationsquelleAutor aevanko

  2. 0

    Hier ist eine weitere Möglichkeit, sehr schnell und einfach, aber macht den job

    Sie könnten natürlich die Kombination aus allen diesen 3 loops in einer Schleife 

    Dim x As Integer
Dim y As Integer

x = 1
y = 1

Do Until Worksheets("Sheet1").Range("A" & x) = ""
    Worksheets("Sheet4").Range("A" & y) = Worksheets("Sheet1").Range("A" & x)
    y = y + 1
    x = x + 1
Loop

x = 1
Do Until Worksheets("Sheet2").Range("A" & x) = ""
    Worksheets("Sheet4").Range("A" & y) = Worksheets("Sheet2").Range("A" & x)
    y = y + 1
    x = x + 1
Loop

x = 1
Do Until Worksheets("Sheet3").Range("A" & x) = ""
    Worksheets("Sheet4").Range("A" & y) = Worksheets("Sheet3").Range("A" & x)
    y = y + 1
    x = x + 1
Loop
    Hi, Zoonose, vielen Dank für Ihre Arbeit. Es ist Rost zu decrese die Zeilen code, und es ist sehr hilfreich, um meine VBA-Kenntnisse. Dank Freund.

    InformationsquelleAutor zoonosis

Schreibe einen Kommentar