Excel VBA:用相邻单元格值填充空单元格
Excel VBA:用相邻单元格值填充空单元格
提问于 2017-05-31 15:09:55
我想知道是否有人能帮上忙-
我有一个列'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’单元格，当它找到空白单元格时，不要从一开始就开始计数。
希望有人能帮忙。如果需要进一步澄清的话，请告诉我。
致以敬意，
禤浩焯
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-05-31 15:14:15
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/44288436
复制相关文章
相似问题
腾讯云开发者
