2017-05-31 336 views
1

我想知道是否有人可以提供幫助 -Excel VBA:用相鄰單元格值填充空單元格

我有一列'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」細胞,但它似乎總是填充何時開始與所述第二「G」細胞。我希望它填充空白的'I'單元格,它與相鄰的'G'單元格相同,並且當它找到一個空白單元格時,不會從頭開始計算。

希望有人能幫忙。讓我知道是否需要進一步澄清事情。

問候,

阿德里安

回答

2
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 
+1

我喜歡這個 「無循環」 的方法! –

+0

「要循環或不循環,那就是問題...」 - 不,不要。 :) –

+1

謝謝,老兄!不是所有的英雄穿着斗篷。 :D –

相關問題