求Excel的统计函数〈高分〉

发布网友 发布时间：2022-04-27 01:19

我来回答

共3个回答

热心网友 时间：2022-06-22 01:50

表我也发给您了，下面是我解决的方法：用vba代码。
Sub aaaaa()
Dim i, k As Integer
For n = 2 To 459
Sheets("Sheet3").Cells(n, 1) = ""
For i = 0 To 9
k = 0
For j = 3 To 32
If Sheets("Sheet1").Cells(n, j) = CStr(i) Then
Exit For
Else
k = k + 1
End If
Next
If k <> 0 Then
If k = 30 Then
Sheets("Sheet3").Cells(n, 1) = Sheets("Sheet3").Cells(n, 1) & "," & i
End If
End If
Next
If Sheets("Sheet3").Cells(n, 1) <> "" Then
Sheets("Sheet3").Cells(n, 1) = Right(Sheets("Sheet3").Cells(n, 1), Len(Sheets("Sheet3").Cells(n, 1)) - 1)
End If
Next
End Sub

上述代码把每行没有出现的数字标出来了。
然后在sheet2里复制您的源数据（在这里操作避免错了无法找到源数据），录制宏，在宏代码里添加for循环，对每行进行单独排序。
下面代码解决只出现一次的数字标出来。
Sub ccc()
For n = 2 To 459
Sheets("Sheet3").Cells(n, 10) = ""
i = 3
If Sheets("Sheet2").Cells(n, i) <> Sheets("Sheet2").Cells(n, i + 1) Then
Sheets("Sheet3").Cells(n, 10) = Sheets("Sheet3").Cells(n, 10) & "," & Sheets("Sheet2").Cells(n, i)
End If
For i = 4 To 31
If Sheets("Sheet2").Cells(n, i) <> Sheets("Sheet2").Cells(n, i + 1) Then
If Sheets("Sheet2").Cells(n, i) <> Sheets("Sheet2").Cells(n, i - 1) Then
Sheets("Sheet3").Cells(n, 10) = Sheets("Sheet3").Cells(n, 10) & "," & Sheets("Sheet2").Cells(n, i)
End If
End If
Next
i = 32
If Sheets("Sheet2").Cells(n, i) <> Sheets("Sheet2").Cells(n, i - 1) Then
Sheets("Sheet3").Cells(n, 10) = Sheets("Sheet3").Cells(n, 10) & "," & Sheets("Sheet2").Cells(n, i)
End If
If Sheets("Sheet3").Cells(n, 10) <> "" Then
Sheets("Sheet3").Cells(n, 10) = Right(Sheets("Sheet3").Cells(n, 10), Len(Sheets("Sheet3").Cells(n, 10)) - 1)
End If
Next
End Sub

热心网友 时间：2022-06-22 01:50

SHEET1的问题：在B1输入公式=countif(1:1,a1)公式右拉，就可计算出在A1:CV1区域中每个数字出现的次数。其中A1也可换成具体的数字，比如01234567
，就变成统计01234567在其中出现的次数了。

SHEET2 的问题，我硬是没看懂~~

热心网友 时间：2022-06-22 01:50

邮箱给你发信息了，方便发过来一起研究一下吧