excel宏如何设置条件运行

此为工作表事件，需要放在对应工作表写才会执行

参考版本：2013（其他版本 *** 作基本无差异）

具体 *** 作步骤：

1、ALT+F11，找到对应做工作表，双击

2、粘贴代码

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$3" Then

   Range("c3").Select

End If

End Sub

3、返回工作表测试

Sub cpy() Dim i&i = Cells(1, 1) Select Case i Case 1 Range("a2:c2").Copy Range("d2") Case 2 Range("a2:c2").Copy Range("d3") End SelectE

---