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:
0 für die Antwort № 1Du 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!
Verwandte Fragen
Am beliebtesten
Php
Zxing
Am beliebtesten C
Beliebteste JAVA
Beliebteste PHP