エクセルVBA：隣接セルが

Question

値と、誰かが助けることができる場合、私は思っていた空のセルに入力します -

を私は列「I」が異なる値の細胞を含むがあります。これらのセルのいくつかは空白です。隣接する完全な列 'G'もあります。空白のセルはありません。

私が基本的にしようとしているのは、VBAを使用して、列 'I'の空のセルに列 'G'の隣接するセルの値を入力することです。

私はコマンドボタンに以下のコードを書いた：

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 

を上記のコードは空白の「I」細胞を移入し、常に取り込むときに、第2の「G」のセルで始まるようです。空の 'I'セルに隣接する 'G'セルを挿入し、空のセルが見つかると最初から数え始めないようにします。

誰かが助けてくれることを願っています。私が事をもっと明確にする必要があるかどうかを教えてください。

よろしく、

エイドリアン

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