Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = False If Target.Row = 13 Then Cells(13, 1) = "温度数据"End If Application.EnableEvents = true End Sub 在前后加上这两个语句就不会重复执行了