110,538
社区成员
发帖
与我相关
我的任务
分享
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
wwwww
End If
End Sub
Sub wwwww()
Dim a As String
a = Sheet1.Range("A1").Value
Sheet1.Range("B1") = a + 1
End Sub