Исключить из массива определенные члены - VBA
Формулировка задачи:
Здравствуйте!
Есть массив данных arrO, есть массив ненужных членов arrE. Подскажите, пожалуйста, как сделать, что бы на выходе в массиве arrOO были все члены массива arrO, без ненужных членов.
Пример:
Нужно на выходу получить : A,B,1,F
Спасибо!
Листинг программы
- Sub nCh()
- Dim arrO(), arrE(), arrOO()
- Dim tOut As String
- Dim k As Long
- arrO = Array("A", "B", "1", "2", "F") 'первоначальный массив
- arrE = Array("2", "3") ' массив ненужных членов
- k = 1
- For m = LBound(arrO) To UBound(arrO)
- For t = LBound(arrE) To UBound(arrE)
- -
- -
- -
- -
- -
- -
- -
- ReDim Preserve arrOO(k)
- Next
- Next
- tOut = Join(arrOO, ",")
- MsgBox tOut
- End Sub
Решение задачи: «Исключить из массива определенные члены»
textual
Листинг программы
- For m = LBound(arrO) To UBound(arrO)
- elem = arrO(m)
- found = False
- For t = LBound(arrE) To UBound(arrE)
- If elem = arrE(t) Then
- found = True
- Exit For
- End If
- Next
- If Not found Then
- ReDim Preserve arrOO(k)
- arrOO(k) = elem
- k = k + 1
- End If
- Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д