Kopieren nur nicht leere Zeilen und Einfügen in die erste leere Zeile

Question

Ich bin super neu zu VB so Entschuldigungen, wenn das lächerlich einfach ist. Ich habe ein Makro, um ein Bestellformular in ein fortlaufendes Register von Bestellungen zu übertragen.

Hier ist der Code, den ich habe:

Range("B2:X2").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Register of Orders").Select 
Range("B9").Select 
ActiveSheet.Paste 

Statt Bereich B2: X2 Ich brauche alle nicht leeren Zeilen auszuwählen. Und statt Range B9 muss ich die erste leere Zeile am unteren Rand des Registers auswählen.

Ich habe mir hier ein paar Antworten angesehen und versucht, den vorgeschlagenen Code zu verwenden, aber ich habe immer einen Fehler bekommen, der Expected End Sub sagt.

Answer 1

Dies ist eine schwierige Frage, da wir Ihre Tabelle nicht sehen können.

Um Ihnen bei der Kopie zu helfen, kann der folgende Code hilfreich sein. Der Code kopiert Daten von B6 bis X6 von Sheet1 (Sie können dies in das Blatt Ihrer Daten ändern, solange es nicht im selben Blatt ist).

Der Code kopiert Daten aus Blatt1 in die "Register of Orders" Spalte zu einem Zeitpunkt ohne Leerzeichen zu ignorieren.

Sub test_copy_ignoring_blanks() 

    Sheets("Register of Orders").Select 
    Range("A1").select 'Data will be pasted To Cell A1 moving 1 column position 

    'Select the sheet where your data is I'm imagining this is sheet 1 
    Sheets(1).Select 


    Dim starting_column As Long 
    Dim ending_column As Long 

    'Set the starting and ending columns 
    Range("X6").Select 
    ending_column = ActiveCell.Column 
    Range("B6").Select 
    starting_column = ActiveCell.Column 

    'Loop through for the copy 
    For counter = starting_column To ending_column 
     Cells(6, counter).Select 
     If Not IsEmpty(ActiveCell.Value) Then 
     ' The cell is not empty so copy it and paste it to Regist Order 
     Selection.Copy 
     Sheets("Register of Orders").Select 
     'Select the Range you want to paste it in 
     ActiveSheet.Paste 
     'Move the cursor one to the right 
     ActiveCell.Offset(0, 1).Select 
     Sheets(1).Select 
     End If 
    Next 
End Sub