请高手帮忙

countliu 2003-05-18 02:45:17
我想在表格中的第二列查找是否有相同的项,如果相同删除现同的项,把第五列数相加,相同行删除,但是我删除时总是出错,可能是删除行的错误吧?那怎么修改啊?请高手帮忙?明天就要的跳楼的难题?
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
...全文
6 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xfyxq 2003-05-18
今天头痛,明天再看。

:(
回复
1825 2003-05-18
对了,如果重复的数只能加一遍,在第二层循环 打完标记后加 exit for
回复
1825 2003-05-18

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的。
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-18 02:45
社区公告
暂无公告