VB基础类
请高手帮忙
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我想在表格中的第二列查找是否有相同的项，如果相同删除现同的项，把第五列数相加，相同行删除，但是我删除时总是出错，可能是删除行的错误吧？那怎么修改啊？请高手帮忙？明天就要的跳楼的难题？
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
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
...全文
