如何用EXCEL或者编程进行数据筛选

发布网友发布时间：2022-03-04 18:46

我来回答

共3个回答

热心网友时间：2022-03-04 20:16

一个宏

Sub bj()

'从第一行到最后一行

For n = 1 To Range("a1").End(xlDown).Row

用空格为间隔得到当前行第一列，数组

l = Split(Cells(n, 1), " ")

'得到当前行的列数

ls = Range(Cells(n, 1), Cells(n, 1)).End(xlToRight).Column

'从第二列到最后一列

For m = 2 To ls

p = Split(Cells(n, m), " ")

c = 0

For a = 0 To 5

For b = 0 To 5

'对比计数

If l(a) = p(b) Then c = c + 1

If c >= 4 Then

'如果一组数据有4个或4个以上的相同，写到数据的后面

Cells(n, ls + 1) = Cells(n, ls + 1) + 1

End If

End Sub

热心网友时间：2022-03-04 21:34

Sub Macro1()
'
' Macro1 Macro
' 宏由 ynzsvt 录制，时间: 2010-6-28
'
n = 1000
For i = 1 To n - 1
For j = i + 1 To n
a = Split(Cells(i, 1), " ")
b = Split(Cells(j, 1), " ")
m = 0
For k = 0 To 5: For l = 0 To 5
If a(k) = b(l) Then m = m + 1
Next l: Next k
If m >= 4 Then
Cells(i, 2) = Cells(i, 2) + 1
Cells(j, 2) = Cells(j, 2) + 1
End If
Next j
Next i
'
End Sub

参考资料：注意只能运行一次该宏。否则会被累加的。

热心网友时间：2022-03-04 23:08

用ACCESS

首页

文章

如何用EXCEL或者编程进行数据筛选