将上面单元格中的数据复制到下面的特定单元格中

Question

我有一个 table 上面有年份，我想将它复制到下面的特定单元格中：

例如，我想通过选择 H78 并使用 Ctrl+V 作为快捷方式等将 (H1; I1) 中的年份复制到 (H78; I78) 等...我不想填充所有空白单元格，只是具体细胞。谢谢你，对不起我的英语不好。

Answer 1

我认为您在这里是在玩火，但这应该适合您...

Private rngSelectedRange As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Then
        Application.EnableEvents = False
        Me.Cells(Target.Cells(1, 1).Row, rngSelectedRange.Cells(1, 1).Column).PasteSpecial xlPasteValues
        Application.EnableEvents = True
    Else
        Set rngSelectedRange = Target
    End If
End Sub

...将该代码粘贴到您要应用此逻辑的工作表中，如下所示。

要使其正常工作，只需复制其中一个 headers，然后开始点击。

要停止它的工作，按 ESC 它将禁用复制操作。

它可以通过一次允许多行来变得更高级，但尚未内置。

将上面单元格中的数据复制到下面的特定单元格中

Copy data from cell above in specific cell below

excel

vba

copy

paste

fill