Работа с массивом

[Aleks2215]

допустим имеется массив
q0
q1
q2
как сделать из него массив объединенных элементов, например
q1
q0 q2
я нашел лишь функцию join, но она работает только с целым массивом, а не с частью

[Aent]

Есть такое слово "цикл" ...
Или в лоб:

Sub Example()
  Dim a1 As Variant
  Dim a2 As Variant
  Dim i As Long  
  a1 = Array("q0", "q1", "q2")
  a2 = Array(a1(1), a1(0) & a1(2))
  For i = LBound(a2) To UBound(a2)
       Debug.Print a2(i)
  Next i
End Sub

[Aleks2215]

А можно ли как то сравнить ячейку Excel с 2 переменными, с какой либо другой ячейкой, например массив
q0 q2 (я так понимаю необходим разделитель)
q1
и ячейки
q0
q1
q2
к примеру q0 q2 сравнить с q2, и раз они частично совпадают то произвести какие то действия. Как такое провернуть?

[Hugo121]

Цикл в цикле и сравнение по Instr() или Like

For i = 1 To aa
For ii = 1 To bb
'сравнение
Next ii, i

На примере выше:

Sub Example()
  Dim a1 As Variant
  Dim a2 As Variant
  Dim i As Long, ii As Long
  a1 = Array("q0", "q1", "q2")
  a2 = Array(a1(1), a1(0) & a1(2))
  For i = LBound(a1) To UBound(a1)
  For ii = LBound(a2) To UBound(a2)
       If a2(ii) Like "*" & a1(i) & "*" Then Debug.Print a1(i) & " = " & a2(ii)
  Next ii, i
End Sub

вывод:
q0 = q0q2
q1 = q1
q2 = q0q2

[Aleks2215]

Спасибо всем большое за помощь) Но назрел еще вопрос Сколько я ни пытался, переложить на нужный мне лад полученные знания не удалось(
Можно ли как то отфильтровать исходный многомерный массив
q0 q1 q0
q1 q1 q2
q2 q1 q0
так, чтобы на выходе получился
q0q2 q1q1 q0q0
q1 q1 q2
Там где 2 переменные рядом это один элемент.

[motorway]

По какому принципу идет эта фильтрация?

[Aleks2215]

Фильтрация идет по первому столбцу. Обозначим столбцы S, a, b
S__a__b
q0 q1 q0
q1 q1 q2
q2 q1 q0

Объединяем 2 строчки S, например q0 и q2, следовательно объединяются соответствующие строчки a и b. Получаем
S_____a____b
q0q2 q1q1 q0q0
q1____q1___q2

Некоторые элементы я разделил знаком _ чтобы было наглядней

[Aleks2215]

Подскажите, как сравнить 2 переменные
q0q2 и q1q0 так, чтобы они считались подобными
(не поиск через Instr по q0)

[motorway]

Сравнить на равенство? <>

[Aleks2215]

Да, на равенство. И в первой и во второй присутствует элемент q0. Нужно чтобы на основании этого они равными считались.