在VBA中没有 .Contains 方法。

您可以使用 字典 对象实现相同的功能，该对象具有 .Exist 函数来检查键是否存在。

Dim objDict As Object
Set objDict = CreateObject("Scripting.Dictionary")
Dim TotalRows As Long
Dim i As Long
TotalRows = Rows(Rows.Count).End(xlUp).Row
For i = 2 To TotalRows
    If Not objDict.Exists(Cells(i, 1).Value) Then
        objDict.Add Cells(i, 1).Value, vbNullString
    End If
Next

变量strArray是一个类型为字符串的普通数组，而不是一个列表或其他对象，因此它没有一个“包含”方法，您必须这样做：

Dim strArray() As String
Dim TotalRows As Long
Dim i As Long
TotalRows = Rows(Rows.Count).End(xlUp).Row
ReDim strArray(1 To TotalRows)
For i = 2 To TotalRows
    Dim x As Long
    Dim contains As Boolean
    contains = False
    For x = LBound(strArray) To UBound(strArray)
        If strArray(x) = Cells(i, 1).Value Then
            contains = True