Excel VBA: 用相邻的单元格值填充空单元格

Question

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

我有一列 'I' 包含不同值的单元格；其中一些单元格是空白的。我还有一个相邻的完整列 'G' - 没有空白单元格。

我基本上想做的是使用 VBA 用列 'G' 中相邻单元格的值填充列 '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

Excel VBA: 用相邻的单元格值填充空单元格

Excel VBA: Fill in empty cells with adjacent cell values

vba

excel

cells