楼主，这样就可以了（经过试验）：Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value"test" Then
Range("A1").Value = "test"
End If
End Sub其实，就在你原先的基础上加个判断就行。第一次change事件，A1单元格的值被修改为test；第二次change事件，判定已经等于test了，就没有修改单元格内容。这样后面就不会再有change事件发生。ActiveCell.Offset(-1, 0).Range("A1").Select...
