EXCEL表格处理（宏优化或者提供一个更好的办法）

一个工程材料管理用的表格需要处理，表头项目有7项，分别是“材料名称”“材料规格”“单位”“数量”“单价”“金额”“使用地点”。现在需要合并重复项，即同个地点的同种材料且单价相同的，数量合并。我编写了一个宏处理这个表格，宏如下：

Sub Macro1()
k = 10837 '共有10837行
For i = 1 To k '
For j = i + 1 To k '第一行为表头
If Cells(i, 7) = Cells(j, 7) Then '判断是否同一地点
If Cells(i, 1) = Cells(j, 1) Then '判断是否同一种材料
If Cells(i, 2) = Cells(j, 2) Then '判断规格是否相同
If Cells(i, 3) = Cells(j, 3) Then '判断单位是否相同
If Cells(i, 5) = Cells(j, 5) Then '判断单价是否相同
Cells(i, 4) = Cells(i, 4) + Cells(j, 4) '数量相加
Cells(i, 6) = Cells(i, 4) * Cells(i, 5) '计算金额
Rows(j).Select '删除重复项
Selection.Delete Shift:=xlUp '
j = j - 1 '
k = k - 1 '
End If
End If
End If
End If
End If
Next j
Next i
End Sub

因表格行数多，处理一次时间很长，同样操作经常有，恳请高手给出更好的处理办法或将这个小宏程序优化。

excel表格＠怎么处理 Excel 表格处理 excel 表格日期处理 excel表格处理 excel表格行数不够怎么处理？ 用Excel处理表格数据的问题 关于Excel表格底纹的处理方法。 CAD中的表格能不能转化成Excel，如何处理？ 我想处理一个Excel表格的重复数据 关于excel表格处理数据的一个问题