查找包含特定文本的单元格

Question

我在excel文件中有大量的文本字符串，我试图找出它们中是否包含特定的文本子字符串。例如，工作表1中的列A具有文本字符串。工作表2中的列A和B具有我想在工作表1中找到的文本子字符串。标准是它们都必须以模拟方式存在。如果在工作表1中找到工作表2中的子字符串，则在工作表1中的B列和C列中提到了特定的标准。

在下面的代码中需要帮助解决两个问题。首先，我的代码不起作用。第二，如何使用代码中的所有子字符串循环遍历Sheet 2中的所有子字符串？

Sub Find_Text()
Dim cell As Range
Dim DataCount As Integer
With Worksheets("Sheet 1")
    DataCount = Range("A" & Rows.Count).End(xlUp).Row
    For Each cell In Range("A1:A" & DataCount)
        If cell.Contains("sub-string_A1") And cell.Contains("sub-string_B1") Then
            Range("B" & DataCount).Value = Criteria_1 And Range("C" & DataCount).Value = Criteria_1_1
        End If
    Next cell
End With
End Sub