发布网友 发布时间:11小时前
共1个回答
热心网友 时间:10小时前
用VBA才行,
ALT+F11
然后双击你想实现功能的表格,例如SHEET1
贴入下面代码即可
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Column = 1 Then
i = Target.Row
If Target.Value = "a" Then
Cells(i, 2) = 1
End If
End If
End Sub