Question

我正在寻找一个vba代码，用于查找列的单元格中是否包含（不完全匹配）字符串数组。我有一个假电子邮件列表存储在A1：A3242的表格“助手”中，在JP表格中我有电子邮件列表（I：I）我想查看。

如果在第二列中找到第一个列表中的电子邮件，我需要将该行涂成黄色。

Dim list As Variant, FF As Long, qq As Long

list = Sheets("Helper").Range("A1:A3242").Value
FF = Range("I" & Rows.count).End(xlUp).Row
For qq = 1 To FF
    If InStr(1, list, cell.Value) <> 0 Then
        Range("I" & qq).EntireRow.Interior.Color = vbRed
    End If
Next qq

End Sub

我是VBA的新手，我不知道这是否正确的方法，我收到错误“424对象需要”，任何帮助将不胜感激，谢谢你提前:)

Answer 1

您应该使用File.Copy(src, dest)函数，请参阅下面的代码（代码注释中的解释）：

<ion-content style="background-image: url('assets/images/background-image.jpg');">
    <h2>Welcome to Ionic!</h2>
</ion-content>

Answer 2

 Function GetDomain(s as String) as String
Dim x as Integer
X = instr(s,"@")
If x=0 then
     GetDomain = s
Else
     GetDomain = right(s,len(s)-x)
End IF
End Function

然后用你的字符串包围这个函数：

     If Not IsError(Application.Match(GetDomain(.Range("I" & qq).Value), list, 0))

（应该工作，未经测试）

在InStr

2 个答案: