请高手帮忙

Question

我想在表格中的第二列查找是否有相同的项，如果相同删除现同的项，把第五列数相加，相同行删除，但是我删除时总是出错，可能是删除行的错误吧？那怎么修改啊？请高手帮忙？明天就要的跳楼的难题？
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

Answer 1

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的。

Answer 2

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