Leere Zellen im Bereich ignorieren - Excel, VBA, Excel-VBA, Bereich

Ich habe nur 2 Bereiche, sagen wir Range ("A1: A10") und Range ("B1: B10") und dann diesen Code:

Dim a, b, i, j
i = 2: j = 2


For Each a In range("A1:A10")
For Each b In range("B1:B10")
range("D" & i).Value = a
range("E" & j).Value = b
j = j + 1
i = i + 1
Next b
Next a

End Sub

Ich muss ein erstellen If Bedingung, um Leerzeichen zu überspringen, aber es scheint nicht zu funktionieren.

Zweite Frage:

Wenn ich den Bereich benennen würde, nachdem ich sie als Auswahl und Xltodown gesetzt habe, wie würdest du das machen?

Antworten:

Du kannst es so machen:

Dim a, b, i, j
i = 2: j = 2


For Each a In range("A1:A10")
For Each b In range("B1:B10")
If b.Value="" Then
GoTo ContinueInnerForLoop
End If
range("D" & i).Value = a
range("E" & j).Value = b
j = j + 1
i = i + 1
ContinueInnerForLoop:
Next b
Next a

schon seit Fortsetzen wird in VBA nicht unterstützt, bevorzugte Möglichkeit, eine Beschriftung zu verwenden und zu springen.

Ich hoffe es hilft!