Excel VBA: mit benachbarter Zelle in leeren Zellen füllen Werte

Question

Ich frage mich, wenn jemand helfen kann -

ich eine Spalte ‚I‘ enthalten Zellen verschiedenen Werte; Einige dieser Zellen sind leer. Ich habe auch eine angrenzende vollständige Spalte 'G' - keine leeren Zellen.

Was ich im Grunde versuche zu tun ist, verwenden Sie VBA, um die leeren Zellen in Spalte 'I' mit dem Wert ihrer benachbarten Zellen in Spalte 'G' ausfüllen.

schrieb ich den Code unten in einer Befehlsschaltfläche:

Sub CommandButton2_Click() 

    Lastrow = Cells(Rows.Count, "G").End(xlUp).Row 

    Range("I2:I" & Lastrow).SpecialCells(xlCellTypeBlanks).Value = Range("G2:G" & Lastrow).Value 

End Sub 

Der obige Code der Rohling auffüllt ‚I‘ Zellen, aber es scheint immer mit dem zweiten ‚G‘ Zelle zu starten, wenn bevölkern. Ich möchte, dass es die leere "I" -Zelle mit seiner benachbarten "G" -Zelle füllt und nicht von vorne beginnt zu zählen, wenn es eine leere Zelle findet.

Hoffe, dass jemand helfen kann. Lassen Sie es mich wissen, wenn ich weitere Fragen klären muss.

Grüße,

Adrian

Answer 1

Dim blanks As Excel.Range 

Set blanks = Range("I2:I" & Cells(Rows.Count, 7).End(xlUp).Row).SpecialCells(xlCellTypeBlanks) 

blanks.Value = blanks.Offset(0, -2).Value