VBA - 复制并粘贴在B列开始的下一个空行中

时间:2014-08-14 21:13:31

标签: excel vba

我试图从Data!A2:Z2复制并粘贴到另一张纸上的第一个空行。但是,列A有一个公式,我正在寻找第一行,其中B中有一个空单元格来插入数据。所以,如果我通过第25行有数据,我希望它复制数据并从单元格B26开始粘贴。当然下次运行它会粘贴在B27中。任何帮助将不胜感激!

1 个答案:

答案 0 :(得分:0)

考虑:

Sub gr47fgsdgf()
    Dim n As Long
    n = Sheets("other").Cells(Rows.Count, "B").End(xlUp).Row + 1
    Sheets("Data").Range("A2:Z2").Copy Sheets("other").Range("B" & n)
End Sub