Question

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

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

我基本上要做的是使用VBA用'G'列中的空单元格填充列'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'单元格，并且当它找到一个空白单元格时不从头开始计数。

希望有人可以提供帮助。如果我需要进一步澄清事情，请告诉我。

问候，

阿德里安

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：使用相邻单元格值填充空单元格

1 个答案: