我有一个名为“任务”的 Excel 表,其中包含两个选项卡“数据”和“数据库任务”。我想将数据从工作表“数据”复制到“数据库任务”。工作表“数据”有五列(例如 A、B、C、D、E、F)。我希望如果有人在第一行输入数据,它应该被转移到另一个选项卡。如果任何一列未填充,则应在将数据传输到另一张表之前弹出一个输入值的窗口。并且如果第二行包含所有数据,则应将其转移到另一张纸上,并且仅对第一行给出错误。
我正在使用下面的代码复制数据,它成功地将数据从一张纸复制到另一张纸。现在我不确定我应该如何有效地使用 if 条件才能实现我想要的
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Dim endrow As Long
Set sheet1 = ActiveWorkbook.Sheets("Data")
Set sheet2 = ActiveWorkbook.Sheets("Delivery Task")
Application.ScreenUpdating = False
endrow = sheet2.Range("A" & sheet2.Rows.Count).End(xlUp).Row
sheet1.Range("A2:E10").Copy
sheet2.Activate
sheet2.Range("A" & endrow + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
sheet1.Activate
Range("A2:E10").ClearContents
End Sub