如何用EXCEL或者編程進行數據篩選

壹個宏

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

Next

Next

If?c?>=?4?Then

'如果?壹組數據有4個或4個以上的相同，寫到數據的後面

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

End?If

Next

Next

End?Sub

上一篇:莆田人可以在石獅辦理護照嗎？

下一篇:怎樣讓表格的內容居中