VBA从最后一个空单元格复制粘贴到第一个空单元格

Question

首先，我确实知道已经提出了这个问题，但是我对vba的了解不是很好，所以请寻求您的帮助，因为我无法实现找到的解决方案。.

所以我必须列出“ alfa”和“ beta”。我需要将范围B2：E2复制到空B。 然后将其复制到B列的第一行。

最后一个和第一个空将始终是不同的。

非常感谢您的帮助！

Answer 1

尝试一下：

Sub Kopy()
    Dim N As Long, r1 As Range, r2 As Range
    N = Cells(Rows.Count, "B").End(xlUp).Row
    Set r1 = Range("B2:E" & N)
    Set r2 = Range("B" & (N + 1))
    r1.Copy r2
End Sub

注意：

我们只需要在目标范围内指定单个单元格。
格式和值将被复制。