如何检查单元格的值是否为另一个单元格的子值

Question

I have two columns with and ID such as "TCG45436" in both of them. Column one includes a number in parenthesis like "TCG45436 (5)". I need to check both columns to to see if the IDs match, and clear the cell contents of column two if they don't. The problem is the two won't match if column one includes the (5), but I only need the ID itself to match in both columns. I've done something similar in the past using substrings to find if columns 2 is a substring of column one, but I can't figure out how to apply that here.

Essentially, I want B30, and B32-B37 cleared in this snippet.

Sub TwoColumns()
Do Until ActiveCell.Value = ""
Column1 = ActiveCell.Value
Column2 = ActiveCell.Offset(0, 1).Value

If Column1 = Column2 Then 'needs to be If Column2 is equal to or a subvalue of Column1
Else
    ActiveCell.Offset(0, 1).ClearContents
End If
    ActiveCell.Offset(1, 0).Select
Loop
End Sub

Thanks

Answer 1

您可能要使用InStr函数：

If InStr(0, Column1.Value, Column2.Value) <> 0 Then 'it's a substring.