Excel篩選符合條件的對象？

悄悄告訴妳，EXCEL裏有VBA神器，用下圖做就行了。

1.把妳的數據粘貼到壹個新的Excel表格的Sheet1(也就是工作表1)(由於沒有妳的數據，我直接用ABC做前置)。

2.按住Alt和F11。

3.在出現的新窗口中單擊插入和模塊。

4.在光標所在的區域輸入以下代碼:

子查找()

字符串形式的Dim temp

將I標註為整數

Dim j為整數

將r標註為整數

將最大值設為整數

j = 1

Dim rngA As範圍

Dim rngC As範圍

Set rngA = Sheet1。範圍(" A:A ")

設置rngC = Sheet1。範圍(" C:C ")

temp = rngA(2)

Max = rngC(2)

r = 2

對於i = 2到Sheet1。UsedRange.Rows.Count

如果(temp = rngA(i))則

If (rngC(i)>Max)然後

Max = rngC(i)

r = i

如果…就會結束

其他

Sheet1。行數(r)。復印紙張2。行數(j)

j = j + 1

temp = rngA(i)

Max = rngC(i)

r = i

如果…就會結束

接下來我

末端接頭

5.單擊此窗口上的綠色三角形(在單擊之前，請確保您的工作簿中有Sheet2)。

6.您可以在Sheet2中找到上述搜索的結果。

在編寫上述代碼之前，請確認該Excel有壹個Sheet2工作表。如果沒有，請先創建壹個新的(壹般情況下，新的序列號自動為Sheet2)。如果無法解決，請對上面的代碼稍做如下修改:

子查找()

字符串形式的Dim temp

將I標註為整數

Dim j為整數

將r標註為整數

將最大值設為整數

暗淡的床單

設置SheetMY = ThisWorkbook。工作表。添加

j = 1

Dim rngA As範圍

Dim rngC As範圍

Set rngA = Sheet1。範圍(" A:A ")

設置rngC = Sheet1。範圍(" C:C ")

temp = rngA(2)

Max = rngC(2)

r = 2

對於i = 2到Sheet1。UsedRange.Rows.Count

如果(temp = rngA(i))則

If (rngC(i)>Max)然後

Max = rngC(i)

r = i

如果…就會結束

其他

Sheet1。行數(r)。復印紙張。行數(j)

j = j + 1

temp = rngA(i)

Max = rngC(i)

r = i

如果…就會結束

接下來我

末端接頭

這樣，程序將自動創建壹個新的工作表，並在新的工作表中匯總符合要求的結果。當然，如果妳用的是WPS或者不完整版本的Office，請先安裝VBA或者完整版OFFICE...