第2个回答 2014-09-01
Sub CommandButton1_Click()
[a1].Copy
If [b1].Value <> [a1].Value Then
[b1].Select
ActiveSheet.Paste
ElseIf [b2].Value <> [a1].Value Then
[b2].Select
ActiveSheet.Paste
ElseIf [b3].Value <> [a1].Value Then
[b3].Select
ActiveSheet.Paste
ElseIf [b4].Value <> [a1].Value Then
[b4].Select
ActiveSheet.Paste
End If
End Sub本回答被网友采纳