excel - 为特定单元格插入公式

Question

由于 VBA 的初学者，我很难找到这个代码。我需要创建“命令按钮”以根据当前单元格位置插入公式。示例：我有这些单元格有数据 C3、C5、C10，所以你可以看到 C4、C6、C7、C8、C9、C11、C12、C13 没有数据，所以这就是我想要的结果。

所以对于 C4 我想在 C3 中获取数据

在 C6、C7、C8、C9 中我想获取 C5 中的数据

在 C11、C12、C13 中，我想获取 C10 的数据。

复制空单元格中的数据后，C3 C5 和 C10 将被删除（行）。

标签： excelvba

Answer 1

欢迎来到 SO。即使您是新手，您至少应该发布您尝试过的代码。

无论如何，这段代码会做你想做的事：

Dim rng As Range

'copy text
For Each rng In Range("C3:C13")
    If rng.Value = "" Then rng.Value = rng.Offset(-1, 0).Value
Next rng

'delete rows
Set rng = Union(Rows("3:3"), Rows("5:5"), Rows("10:10"))
rng.EntireRow.Delete