使用工作表事件，当工作表激活的时候，判断工作表的名字，如果目标工作薄，则进行复制
例如：给表一添加工作表事件
Private Sub Worksheet_Activate()
Dim sht, sht1 As Worksheet
Dim name As String
Set sht = Application.ActiveSheet
name = sht.name
If name = "表一" Then
Set sht1 = Sheets("表三")
sht1.Range("A1:C5").Copy sht.Range("A1")
End If
End Sub
