VBA like函数问题

答案:2 悬赏:0 手机版

解决时间 2021-03-09 10:23

提问者网友：ミ烙印ゝ
2021-03-08 13:11

VBA like函数问题

最佳答案

五星知识达人网友：你可爱的野爹
2021-03-08 14:50

通配符的表示方式有问题,改成下面的内容试试
"*" & rb & "*"追问Sub 数据处理()
Dim arr()
For j = 1 To 100
ra = Cells(j, 1).Value
For i = 1 To 120
rb = Sheets(2).Cells(i, 1).Value
If ra Like "*" & rb & "*" Then
Cells(i, 2) = “有”
End If
Next
Next

如上已经改过来了，但是还不不行呢追答Sub 数据处理()
    Dim arr(), i&, j&, ra, rb
    For j = 1 To 100
        ra = Cells(j, 1).Value
        For i = 1 To 120
            rb = Sheets(2).Cells(i, 1).Value
            If ra <> "" And ra Like "*" & rb & "*" Then
                Cells(j, 2) = "有"
            End If
        Next
    Next
End Sub当前工作表A列内容在第二个工作表A列存在时,当前工作表的B列对应位置标记"有".

提醒:Sheets(2)表示工作簿中左数第二个工作表,以工作表名称引用时可以写成Sheets("Sheet2")

全部回答

1楼网友：话散在刀尖上
2021-03-08 15:24

既然只是前后不同你直接用 Instr 不就好了
if instr(ra,rb)>0追问Sub 处理()
Dim arr()
For j = 1 To 100
ra = Cells(j, 1).Value
For i = 1 To 120
rb = Sheets(2).Cells(i, 1).Value
If InStr(ra, rb) > 0 Then
Cells(i, 2) = “有”
End If
Next
Next
End Sub
还是不行，能帮我看看怎么解决吗追答可以运行我测试过了有一个问题就是你Cells(i, 2) = “有”双引号得是英文状态下的

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息