珍惜des

摘要： sheet1 格式 Sub 统计人数() 'A为号码C姓名 D时间 Dim j As Integer j = 1 For i = 2 To 100000 Step 1 If Range("a" & i).Value Range("a" & i + 1).Value Then j = j + 1 Sheets("sheet3").Range("a" & j).V... 阅读全文