请高手帮忙

[countliu]

我想在表格中的第二列查找是否有相同的项，如果相同删除现同的项，把第五列数相加，相同行删除，但是我删除时总是出错，可能是删除行的错误吧？那怎么修改啊？请高手帮忙？明天就要的跳楼的难题？
With Grid2
'外层循环
For i = 1 To .Rows - 1
findstr = .TextMatrix(i, 2)
For j = i + 1 To .Rows - 1
If findstr = .TextMatrix(j, 2) Then
.TextMatrix(i, 5) = Val(.TextMatrix(i, 5) + .TextMatrix(j, 5))
' .RemoveItem (j) '删除相同行
End If
Next j

Next i
End With

[1825]

With Grid2
'外层循环
For i = 1 To .Rows - 1
findstr = .TextMatrix(i, 2)
For j = i + 1 To .Rows - 1
If findstr = .TextMatrix(j, 2) Then

.TextMatrix(i, 5) = Val(.TextMatrix(i, 5) + .TextMatrix(j, 5))
.TextMatrix(i, 6)="del"
End If
Next j

Next i
End With

再做一层循环删掉第6列为del的。

[1825]

对了，如果重复的数只能加一遍，在第二层循环 打完标记后加 exit for

[xfyxq]

今天头痛，明天再看。

：（