excel中用按钮将sheet1数据保存到sheet2,并且再次输入后再点保存到下一行？
发布网友
发布时间：2022-05-10 04:14
共1个回答
热心网友
时间：2023-10-30 22:19
Sub 复制到Sheet2()
Sheets("Sheet1").Select
If Cells(1, 1) <> "" Then
Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
If Range("A1") = "" Then
Range("A1").Select
ActiveSheet.Paste
Else
If Range("A1") <> "" And Range("A2") = "" Then
Range("A2").Select
ActiveSheet.Paste
Else
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End If
End If
End If
End Sub
