excel - VBA-更换空白单元格

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

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

但是“= DN2”在每个单元格中都像“= @'DN2'”一样结束。这会导致错误。
有人知道我如何从同一行获取DN中的单元格吗？

提前非常感谢您!

最佳答案

如果您要使用R1C1，请输入公式R1C1

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