第一张表
Private Sub CommandButton5_Click()
Range("_ESF1000").Select
If Range("_ESF1000") <> "" Then
Selection.Copy
NewReport ("物料基本信息修改表")
Else
MsgBox "请选择要修改的物料"
End If
End Sub
第二张表
Private Sub Workbook_Open()
Range("_ESF1000").Select
If Range("_ESF1000") = "" Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub