Excel 将日期复制到新工作表中的下一个单元格

与下面的代码斗争

我试图实现的是，我有一个采购订单表单，当生成一个表单时，我希望能够将某些单元格复制到另一张表单上的采购订单日志中

目前我有这个代码

Sub Range_PasteSpecial_Values1()

    Worksheets("Sheet1").Range("A1").Copy
    Worksheets("Sheet2").Range("A10").PasteSpecial Paste:=xlPasteValues

    Worksheets("Sheet1").Range("B1").Copy
    Worksheets("Sheet2").Range("B10").PasteSpecial Paste:=xlPasteValues

    Worksheets("Sheet1").Range("C1").Copy
    Worksheets("Sheet2").Range("C10").PasteSpecial Paste:=xlPasteValues

    Worksheets("Sheet1").Range("D1").Copy
    Worksheets("Sheet2").Range("D10").PasteSpecial Paste:=xlPasteValues

    Worksheets("Sheet1").Range("E1").Copy
    Worksheets("Sheet2").Range("E10").PasteSpecial Paste:=xlPasteValues

    Worksheets("Sheet1").Range("F1").Copy
    Worksheets("Sheet2").Range("F10").PasteSpecial Paste:=xlPasteValues

End Sub

这是可行的，但它会将这些单元格复制到我的采购订单日志中下面的行中

希望这是清楚的，谢谢你的帮助

Public Sub CopyRows() 
    Sheets("Sheet1").Select 
    ' Find the last row of data 
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 
    ' Loop through each row 
    For x = 2 To FinalRow 
        ' Decide if to copy based on column D 
        ThisValue = Cells(x, 4).Value 
        If ThisValue = "A" Then 
            Cells(x, 1).Resize(1, 33).Copy 
            Sheets("SheetA").Select 
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 
            Cells(NextRow, 1).Select 
            ActiveSheet.Paste 
            Sheets("Sheet1").Select 
        ElseIf ThisValue = "B" Then 
            Cells(x, 1).Resize(1, 33).Copy 
            Sheets("SheetB").Select 
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 
            Cells(NextRow, 1).Select 
            ActiveSheet.Paste 
            Sheets("Sheet1").Select 
        End If 
    Next x 
End Sub

---

你的帖子不清楚，你想达到什么目的？你们能发布一个前后的屏幕截图吗？你们应该试着