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”单元格开始。我希望它用它的相邻“G”单元填充空白的“i”单元，当它发现一个空白单元格时，不从开始计数。 希望有人能帮忙。如果我需要进一步澄清，请告诉我

问候,

---

阿德里安

我喜欢这种“无回路”的方法！“循环还是不循环，这就是问题所在…”不，只是不要：）谢谢，伙计！并非所有英雄都戴斗篷多福，哪一个没穿斗篷？我以为我们很久以前就同意了着装规定*

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