vba - Excel VBA : To store 'a word in a string' into a variable if that word is there in an array of strings

Question

假设我的字符串是

my_string="MY PET IS CAT "

我也有一个数组

my_animals=Array ("CAT","DOG","LION")

由于数组 (CAT) 中的字符串之一位于 my_string 中，因此我希望将 CAT 放入变量中。

我们怎样才能做到呢？

Answer 1

Dim my_string As String, my_animals As Variant, element As Variant, variable as String
my_string = "MY PET IS CAT "

my_animals = Array("CAT", "DOG", "LION")

For Each element In my_animals
  If InStr(my_string, element) Then
  variable = element
  End If
Next element