把下面代码复制到你这个单元格所在的表就好了。记得是这个单元格所在的表,不要复制到模块里面去了。
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 1 Then
Application.EnableEvents = False
Range("B1").FormulaR1C1 = "1"
Range("B2").FormulaR1C1 = "1"
Range("B3").FormulaR1C1 = "1"
Application.EnableEvents = True
End If
End Sub
可以啊,这个很好办吧,把你的宏加入单元格Change事件中,然后判断A1单元格是否有数字1就行了啊