Excel VBA:填充具有相邻单元格值的空细胞

Question

我想知道是否有人可以帮助 -

i有一个列包含不同值的单元格；这些细胞中的一些是空白的。我也有一个相邻的完整列" g" - 无空白单元。

我基本上要做的是使用VBA用" i"列中的空单元格填充其相邻单元格的值。

我在命令按钮中写下了以下代码：

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"单元格开始。我希望它可以用相邻的" G"单元格填充空白的" i"单元，并且在找到空白单元时从一开始就开始计数。

希望有人可以提供帮助。让我知道我是否需要进一步澄清。

问：

阿德里安

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