仅在空白单元格中插入值答案

【问题标题】：insert a values only in blank cell仅在空白单元格中插入值
【发布时间】：2019-06-06 03:21:35
【问题描述】：

我有一列特定名称，并且一列中的一个单元格是空白的，我想从一个选定的单元格中复制一个值并将其粘贴到这个空白单元格中。

Worksheets("project Allocation").Range("B8").Copy

Worksheets("Project Allocation").Range("****").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

我从单元格 B8 中复制了值，并希望将值粘贴到 (R13: R200) 单元格范围内，该单元格为空白。我无法定义该粘贴范围。

【问题讨论】：

您可以使用Range 函数的SpecialCells 属性来执行此操作。我已经在下面回答了如何使用它。

标签： excel vba

【解决方案1】：

这应该可以解决问题：

Worksheets("project Allocation").Range("B8").Copy

Worksheets("Project Allocation").Range("R13:R200").SpecialCells(xlCellTypeBlanks).PasteSpecial xlPasteValues

Application.CutCopyMode = False

它将B8 中的值粘贴到R13:R200 范围内的所有空白单元格中。在您的情况下，您只有一个空白单元格，因此将获得值。

【讨论】：