比如A列姓名,B列是你划正的列,C列统计票数
B列你每记一票,输入单个字符一次比如每一票输入一个1
C2输入＝len(B2) 公式下拉
这种方法的缺点是输入字符时不方便.
用VBA解决就很方便了,您可以设置点击该姓名一次,统计列自动增加1,如果误点,可以设置击点该姓名行统计列单元格就减去1,这样就能够准确的统计,还可以设定列来记录每读一票划上一竖而统计列直接统计数字.
代码如下
把代码复制到您的表格VBA中的统计中下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim t As String
t = "|"
If Target.Row > 1 And Target.Column = 1 And Target.Count = 1 Then '指定点击的列为A列且只选一个单元格从第二行开始（第一行标题行）
Cells(Target.Row, 3) = Cells(Target.Row, 3) + 1 '每点姓名一次,C列统计+1
Cells(Target.Row, 2) = Application.Rept(t, Cells(Target.Row, 3)) '每点姓名一次,B列增加一竖
Cells(Target.Row, 2).Select
End If
If Target.Row > 1 And Target.Column = 3 And Target.Count = 1 Then '指定点击C列且只选一个单元格从第二行开始
Cells(Target.Row, 3) = Cells(Target.Row, 3) - 1 '每点击统计一次,统计减1
If Cells(Target.Row, 3) > 0 Then
Cells(Target.Row, 2) = Application.Rept(t, Cells(Target.Row, 3)) '根据统计列划竖线
Else
Cells(Target.Row, 2) = "" '统计为
