VBA 在 Excel 中查找和替換空白單元格

Question

有人結束了我的問題，盡管我不知道如何才能更“專注”； 這似乎是一個非常直接和簡單的問題：

我正在嘗試編寫一些 VBA 代碼，用另一列中同一行上的值替換工作表一列中的空白單元格。 換句話說，向下移動所有行，如果D列為空，則將其替換為A列。

我試過了，但它只是用 A 列頂行的內容替換了空白值

.Columns("D").Replace What:="", Replacement:=.Columns("A"), LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

有什么建議？

謝謝！

Answer 1

你需要循環這個：

Dim lastRow as Long
lastRow = Range("D" & rows.count).End(xlUp).Row
Dim i as Long
For i = 2 to lastRow ' change 2 if you want to start at any other row
    If Cells(i,4).Value = "" Then Cells(i,4).Value = Cells(i,1).Value
Next i