右键点击表单标签,选中“查看代码”,进入VBA编辑器,在对象框选择worksheet,在过程框选择change,编辑器将自动生成以下宏过程,
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
在这首尾两行之间输入以下代码(假设固定单元是A1,记录保存在B列):
If Target.Address = Range("a1").Address Then
ta = WorksheetFunction.CountA(Range("b:b"))
If ta = 0 Then
Range("b1").Offset(ta, 0).Value = Target.Value
ElseIf Range("b1").Offset(ta - 1, 0).Value <> Target.Value Then
Range("b1").Offset(ta, 0).Value = Target.Value
End If
End If
追问能再具体点吗 谢谢了
本回答被提问者采纳