小编G M*_*G M的帖子

我试图在sheet2中的每个时候将我的选择sheet1粘贴到sheet2新行的B列中时,将今天的日期添加到sheet2中的A列.

我的脚本可以添加新行并将我的选择粘贴到sheet2中,但是我无法弄清楚如何在第一列中获取新的sheet2行.这是我宏中的脚本;

Sub move()  
        Dim i As Integer 
        Application.ScreenUpdating = False
        ActiveWorkbook.Sheets("Sheet1").Range("A1,A2,A3,A4,A5").Copy

        Sheets("Sheet2").Select
        i = 3
        While Range("B" & i).Value <> ""
            i = i + 1
        Wend
        Range("B" & i).Select

        Selection.PasteSpecial (xlValues), Transpose:=True

        Worksheets("Sheet1").Range("A1:A5").Clear

End Sub

任何帮助表示赞赏.谢谢