[已解决]修改VBA

guogongyi

目前，有两个VBA，一个是将表二中的内容按照“关键词”复制到“命令”中，一个是将表二中的内容按照“关键词”剪贴到“新建”中。现在我想如果“表二”不含“关键词”中的内容时，在“标记无”列中对应“关键词”标“无”，意思是没有提取到该关键词。谢谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2014-11-5 08:01

标志“有”还容易一点，需要的话再将未标“有”的标为“无”：
Sub 复制()
'................
    For j = 1 To UBound(arr)
        If arr(j, 1) <> "" And InStr(q, arr(j, 1)) > 0 Then
            k = 1
            Cells(j + 1, 2) = "有"
            Exit For
        End If
    Next j
    '...........
End Sub

跳转到最佳答案楼层

zjdh

标志“有”还容易一点，需要的话再将未标“有”的标为“无”：
Sub 复制()
'................
    For j = 1 To UBound(arr)
        If arr(j, 1) <> "" And InStr(q, arr(j, 1)) > 0 Then
            k = 1
            Cells(j + 1, 2) = "有"
            Exit For
        End If
    Next j
    '...........
End Sub

guogongyi

zjdh 发表于 2014-11-5 08:01
标志“有”还容易一点，需要的话再将未标“有”的标为“无”：
Sub 复制()
'................

谢谢，很好用，高手。加分