Wählen Sie alle nicht leeren Zellen und die zugehörigen Zeilen

Question

Ich habe seit mehr als 3 Stunden für eine Formel oder VBA-Lösung gesucht und aus irgendeinem Grund kann nichts finden.

Ich brauche etwas, um eine Spalte zu betrachten, alle nicht leeren Zellen zu finden und sie woanders auszugeben. Hier ist eine kleine Beispiel-Tabelle der Daten:

Und hier ist das, was ich mag outputed haben:

ich viele Lösungen gefunden habe, von denen die meisten waren Kombinationen von = value und = match, aber ich bekomme entweder null Ergebnisse, oder die Ergebnisse haben Leerzeichen in der Spalte, die niemals Leerzeichen enthalten sollte.

Answer 1

dieses Makro Versuchen

Sub findBlankCells() 

Dim ws As Worksheet 
Dim lastrow As Long 
Dim i As Long 
Dim j As Long 
'change the sheet to whatever name sheet you have 
ws = ThisWorkbook.Sheets("Sheet1") 
'didn't chose A since it seems like you have more blank values there 
lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row 
'j represents the row to copy to 
j = 1 
'loop through all the rows 
For i = 1 To lastrow 
'only copy to I and J column if both do not equal blank 
If ws.Cells(i, "A") <> "" And ws.Cells(i, "B") <> "" Then 
    ws.Cells(j, "I") = ws.Cells(i, "A") 
    ws.Cells(j, "J") = ws.Cells(i, "B") 
    'increase j if the statement is true to go on to the next row to copy to 
    j = j + 1 
End If 
Next i 
End Sub