如何将文本从一个单元格复制到同一列的所有空单元格中？

Question

我想将给定单元格（例如A3）的文本内容复制到A列中的所有空单元格中。但是，我不想覆盖A列中已经有数据的内容。空单元不是均匀分开的。有些相隔3行，有些是4行，有些是7行，等等。

Answer 1

此代码将获取所选单元格的任何组中的每个单元格，检查其是否具有任何内容，如果为空，则用单元格A3中的内容填充它。否则，它将仅移至所选内容中的下一个单元格。

Sub foo()

    'you can replace Selection with any kind of range -- Range("A1:A100") for instance.
    For Each c In Selection
        If c.Value = "" Then c.Value = Range("A3").Value

    Next c

End Sub

祝你好运，希望对你有帮助