Excel Macro VBA ไม่ใช่ Instr

ฉันเชื่อว่าคุณกำลังพยายามใช้ Ifs สองตัว คุณต้องการเพิ่มตามสตริงที่อยู่ในช่วงและเฉพาะในกรณีที่ยังไม่ได้เพิ่มสตริงเท่านั้น

ลองสิ่งนี้:

Function Lookup_concat(Search_string As String, _
Search_in_col As Range, Return_val_col As Range)
   Dim i As Long
   Dim result As String

   For i = 1 To Search_in_col.Count

      If (Instr(1, Search_in_col.Cells(i, 1), Search_string) > 0 )
          And ( InStr(1, result, Return_val_col.Cells(i, 1).Value) = 0 ) Then

         result = result & " " & Return_val_col.Cells(i, 1).Value

      End If

   Next

   Lookup_concat = Trim(result)

End Function

มันคือสิ่งที่คุณกำลังมองหา?

Function Lookup_concat(Search_string As String, Search_in_col As Range, Return_val_col As Range)
    Dim i As Long
    Dim result As String
    For i = 1 To Search_in_col.Count
        If InStr(1, Search_in_col.Cells(i, 1).Value, Search_string, vbTextCompare) > 0 Then
            result = result & " " & Return_val_col.Cells(i, 1).Value
        End If
    Next
    Lookup_concat = Trim(result)
End Function

ไม่แน่ใจว่าคุณกำลังทำอะไรกับ Search_in_col และ Return_val_col แต่คุณจำเป็นต้องใช้การทดสอบ If Instr() > 0 อย่างแน่นอน

หากผลลัพธ์ > 1 แสดงว่าคุณไม่จำเป็นต้องดำเนินการใดๆ หากผลลัพธ์เป็น 0 คุณจะต้องทำการต่อข้อมูลของคุณ นั่นคือส่วนที่ฉันไม่แน่ใจว่าทำไมคุณส่ง search_in_col.cells(i,1).Value เป็นพารามิเตอร์การค้นหา แต่จากนั้นต่อด้วย Return_val_col.Cells(i,1).Value ดังนั้นคุณจึงไม่ได้ต่อค่าที่คุณใช้เป็นพารามิเตอร์การค้นหา...

'if the cell's value exists in the search_string
If InStr(1, Search_in_col.Cells(i, 1).Value, search_string, vbBinaryCompare) > 0 Then
    'probably you want to do nothing here, since it's already existing
Else:
    'the cell's value does not exist in the search_string, so concatenate it
    result = result & " " & "whatever value you want to append to the result"
End If