excel - VBA - 替换空白单元格

Question

我必须用 DN 列中同一行中的数据替换 BM 列中的每个空白单元格。我写的是:

Columns("BM:BM").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=DN2"

但是“=DN2”在每个单元格中都以“=@'DN2'”结尾。这会出错。请问有人知道如何从同一行中获取 DN 中的单元格吗？

非常感谢您!

Answer 1

如果您要R1C1，那么制作公式R1C1

If Application.CountA(ActiveSheet.Range("BM:BM"))<> ActiveSheet.Rows.Count Then
    ActiveSheet.Range("BM:BM").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC118"
End If