Исключить из массива определенные члены - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Есть массив данных arrO, есть массив ненужных членов arrE. Подскажите, пожалуйста, как сделать, что бы на выходе в массиве arrOO были все члены массива arrO, без ненужных членов. Пример:
Листинг программы
  1. Sub nCh()
  2. Dim arrO(), arrE(), arrOO()
  3. Dim tOut As String
  4. Dim k As Long
  5. arrO = Array("A", "B", "1", "2", "F") 'первоначальный массив
  6. arrE = Array("2", "3") ' массив ненужных членов
  7. k = 1
  8. For m = LBound(arrO) To UBound(arrO)
  9. For t = LBound(arrE) To UBound(arrE)
  10. -
  11. -
  12. -
  13. -
  14. -
  15. -
  16. -
  17. ReDim Preserve arrOO(k)
  18. Next
  19. Next
  20. tOut = Join(arrOO, ",")
  21. MsgBox tOut
  22. End Sub
Нужно на выходу получить : A,B,1,F Спасибо!

Решение задачи: «Исключить из массива определенные члены»

textual
Листинг программы
  1. For m = LBound(arrO) To UBound(arrO)
  2.    
  3.     elem = arrO(m)
  4.     found = False
  5.     For t = LBound(arrE) To UBound(arrE)
  6.        
  7.         If elem = arrE(t) Then
  8.             found = True
  9.             Exit For
  10.         End If
  11.  
  12.     Next
  13.    
  14.     If Not found Then
  15.        
  16.         ReDim Preserve arrOO(k)
  17.         arrOO(k) = elem
  18.         k = k + 1
  19.        
  20.     End If
  21.    
  22. Next

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы