[已解决]A列单元格的数字包还在B列单元格数字出现错误

hhaa999

tq51t5hZ.rar (8.43 KB, 下载次数: 0)

2010-10-24 09:10 上传

点击文件名下载附件
A列单元格的数字包还在B列单元格数字出现错误

最佳答案

月排行榜 / 总排行榜

Zipall

2010-10-24 10:49

If InStr(1, "," & arr(i, 2) & ",", "," & arr(i, 1) & ",") Then

跳转到最佳答案楼层

bbwsj

看不懂 LZ是什么意思

hhaa999

第二行，A列单元格为6，B列单元格为15,10,12,16,17,20,13,8,14,18，B列里的数字15,10,12,16,17,20,13,8,14,18，不包含6，16是一个整数字

EPP

Sub test3()
Dim arr, i%, arrt, k%
arr = Range("a2:c" & [a65536].End(3).Row)
For i = 1 To UBound(arr)
    arrt = Split(arr(i, 2), ",")
    For k = 0 To UBound(arrt)
        If Val(arrt(k)) = arr(i, 1) Then
            arr(i, 3) = "*"
            Exit For
        Else
            arr(i, 3) = ""
        End If
    Next
Next i
    [a2].Resize(UBound(arr), 3) = arr
End Sub

Zipall

If InStr(1, "," & arr(i, 2) & ",", "," & arr(i, 1) & ",") Then

hhaa999

好精辟的代码

hhaa999

Zipall好精辟的代码

[此贴子已经被作者于2010-10-24 11:42:32编辑过]