EXCEL表格的处理，比较有难度..高手快来!!!!

E列排序，再用I列排序，筛选一下，把最低价的剪切、复制到另一个工作表，这样虽然笨一点，但却最简单，其实做起来也不复杂不麻烦的。
****还有一个函数公式****
先按在I列后插入一个空白列"J",再把“I”从高到低排序，再在J2单元格输入如下公式：
=COUNTIF(E$2:E2,E2),然后下拉填充。结束后再按J列从低至高排序，将J列里显示"1"的行留下，其余删除。

选把价格列从低到高排序，然后在边上空列（假设为J列）的J2单元格输入公式：
=COUNTIF(E$2:E2,E2),然后下拉填充。结束后再按J列从低至高排序，将上面的1的行留下，其余删除。

18000行是不是18000列的笔误？
如果必须保持原顺序不变，用数据--筛选--自动筛选，选定最低价格的一行后，删除其他行的相同零件号（用查找替换即可），是很简单的。
如果零件号相同的必须放在一起，就使用数据--排序--扩展选定区域，选择主要关键字：零件号，次要关键字：价格即可。

很简单 用IF函数实现
步骤：
1：首先 按零件号升序排列
2：在辅助列中 ：K2=E2 , K3=IF(E3=E2,0,1),向下填充，然后自动筛选除0的 删除就行了

将数据复制到新表中（确保数据安全），以E列为主要关键字，I列为次要关键字排序；单击“工具-宏-visual basic编辑器”单击：“插入-模块”，在出现的编辑窗口中输入以下程序：

Sub del()

Dim lastrow As Long
Dim i As Long

lastrow = InputBox("输入最后一行的行号：")

Application.ScreenUpdating = False

For i = lastrow To 2 Step -1

If ActiveSheet.Cells(i, 1).Value = ActiveSheet.Cells((i - 1), 1).Value Then Rows(i