從最后一個空單元格復制粘貼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

注意：

我們只需要在目標范圍內指定一個單元格即可 。
格式和值將被復制。