Kopieren Sie eine Liste mit nicht leeren und leeren Zeilen als Kopf- und Endlosschleife

Question

HI, also habe ich eine Reihe von Daten, die ich gerne kopieren würde. Grundsätzlich möchte ich eine if-Funktion erstellen. Wenn wir in Spalte B nach einer leeren Zeile suchen und diese leer ist, führen Sie eine Schleife zur nächsten Zeile durch und fahren Sie fort bis zur ersten nicht leeren Zeile. Wenn wir eine nicht leere Kopie treffen, werden alle Zellen aus allen leeren Zeilen in Spalte c kopiert.

Sub NotReadys() 

' NotReadys Macro' 
Dim Z As Integer 'Supplier Beginning Row' 
Dim X As Integer 'Next Non Blank row' 
Dim Q As Integer '# of suppliers' 
Dim Y As Integer 'Paste Row' 
Y = 6 
'For T = 1 To 195 


ActiveWindow.SmallScroll Down:=-33 


Range("B" & Y).Select 
Selection.Copy 

Range("E" & Y).Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Range("F" & Y).Select 
Application.CutCopyMode = False 
ActiveCell.FormulaR1C1 = "=TEXTJOIN(CHAR(10),FALSE,RC[-3]:R[30]C[-3])" 
Range("F" & Y).Select 
ActiveWindow.SmallScroll Down:=-30 
Range("F" & Y).Select 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
    Y = Y + 1 
    Next T 

    End Sub 

http://imgur.com/XGwB4XR

Answer 1

Ich habe Schwierigkeiten, die Struktur Ihrer Daten zu verstehen, aber For Each x In Selection mit Ihnen helfen könnte. Ich gehe davon aus, dass Ihre Daten zumindest ähnlich dem unten, wo die Lieferanten Namen in der Spalte A sind, und POs sind in Spalte B

 
    | A | B | C | D | 
-----|-------|-------|-------|-------| 
    1 | s1 | PO1 |  |  | 
-----|-------|-------|-------|-------| 
    2 | s2 | PO2 |  |  | 
-----|-------|-------|-------|-------| 
    3 | s3 |  |  |  | 
-----|-------|-------|-------|-------| 
    4 | s4 | PO3 |  |  | 
-----|-------|-------|-------|-------| 

Dieser Code wird jeder Lieferant und PO kopieren (wo PO nicht leer ist) zu den Spalten C und D:

outRow = 1 ' Set this to the index of the first row you want to output to 

' Run through each cell in Selection, left to right, top to bottom 
For Each selCell In Selection 
    ' Check for non-blank, but only if we're looking at column 2 (B) 
    If selCell.Column = 2 & selCell <> "" then 
    ' Store the selected Row and Column 
    sRow = selCell.Row 
    sCol = selCell.Column 

    ' Has the effect of prefixing ActiveSheet to any values that start with "." 
    With ActiveSheet 
     ' Copy value from cols 1 and 2 (A & B) to col 3 and 4 (C & D) 
     .Cells(outRow, 3).Value = .Cells(sRow, sCol - 1).Value 
     .Cells(outRow, 4).Value = selCell.Value 
    End With 

    outRow = outRow +1 ' Moves to next output row 
    End If 
Next 

In meinem Beispiel vorausgesetzt, Sie A1 ausgewählt: B4, bevor die Funktion ausgeführt wird, werden Sie die folgende Ausganges.

 
    | A | B | C | D | 
-----|-------|-------|-------|-------| 
    1 | s1 | PO1 | s1 | PO1 | 
-----|-------|-------|-------|-------| 
    2 | s2 | PO2 | s2 | PO2 | 
-----|-------|-------|-------|-------| 
    3 | s3 |  | s4 | PO3 | 
-----|-------|-------|-------|-------| 
    4 | s4 | PO3 |  |  | 
-----|-------|-------|-------|-------| 

Ich nehme an, dass Sie die Macro Aufnahmeoption verwenden, um den Code zu produzieren, den Sie haben; Dies ist ein guter Weg, um zu lernen, wie VBA funktioniert (die meisten von uns haben dies irgendwann getan), produziert aber keinen guten Code. Die eingebaute Dokumentation in Excel ist wirklich sehr gut und es lohnt sich, sie anzuschauen, wenn Sie die Beschränkungen des Rekorders treffen.

Edit: Je mehr ich auf Ihre Frage schaue, desto weniger sicher bin ich über das, was Sie fragen, aber hoffentlich drückt das oben genannte zumindest Sie in die richtige Richtung.