Excel 插入特定单元格的公式

由于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（行）。

欢迎使用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

试试：

Sub test()

    Dim rng1 As Range, rng2 As Range, rng3 As Range, rngDelete As Range

    With ThisWorkbook.Worksheets("Sheet1")

        Set rng1 = .Range("C4")
        Set rng2 = Union(.Range("C6"), .Range("C7"), .Range("C8"), .Range("C9"))
        Set rng3 = Union(.Range("C11"), .Range("C12"), .Range("C13"))
        Set rngDelete = Union(.Range("C3"), .Range("C5"), .Range("C10"))

        rng1.Value = .Range("C3").Value
        rng2.Value = .Range("C5").Value
        rng3.Value = .Range("C10").Value

        rngDelete.EntireRow.Delete

    End With

End Su