Sub 复制()
If Sheet1.[D9] = "" Then MsgBox "目前没有数据需要生成!": Exit Sub
Dim i As Integer
On Error Resume Next
With Sheets("2")
For i = 2 To .Range("A65536").End(xlUp).Row
If .Range("A" & i) = Sheet1.[D9] Then
x = i
Exit For
End If
Next i
If x = 0 Then
Sheets("1").Range("D9:N9").Copy .Range("A65536").End(xlUp)(2, 1)
MsgBox "数据已录入,请进行数据保存!"
Else
Sheets("1").Range("D9:N9").Copy .Range("A" & x)
MsgBox "数据已更新,请进行数据保存!"
End If
End With
End Sub
Sub 复制()
If Sheet1.[D9] = "" Then MsgBox "目前没有数据需要生成!": Exit Sub
Dim i As Integer
On Error Resume Next
With Sheets("2")
For i = 2 To .Range("A65536").End(xlUp).Row
If .Range("A" & i) = Sheet1.[D9] Then
x = i
Exit For
End If
Next i
If x = 0 Then
Sheets("1").Range("D9:N9").Copy .Range("A65536").End(xlUp)(2, 1)
MsgBox "数据已录入,请进行数据保存!"
Else
Sheets("1").Range("D9:N9").Copy .Range("A" & x)
MsgBox "数据已更新,请进行数据保存!"
End If
End With
End Sub