Доброго времени суток, уважаемые форумчане. Хотелось бы узнать ответ на чисто теоретический вопрос. Итак, ситуация такая: имеется наполненный словарь с данными и значение переменной, начинаем наполнять итоговый массив:
далее необходимо заново сформировать и выгрузить массив Arr_data, но для отбора данных использовать новое значение переменной Arr_Mem. Сейчас это организовано повтором кода, но ведь код ПОЛНОСТЬЮ идентичен. Отсюда вопрос, можно ли каким-либо образом использовать этот код повторно. Я додумался только до применения оператора GoTo (сразу после изменения Arr_Mem, ну и метку в соответствующее место выставить), но я многократно видел на форумах негативное отношение к этому оператору и хотелось бы узнать можно ли и как ,решить такой вопрос иначе.
Заранее спасибо всем откликнувшимся
Код |
---|
Arr_Mem = Array("аренда", "коммерческий") 'первоначальное значение переменной ReDim Arr_data(1 To dicData.Count, 1 To 7) 'формирование итогового массива For Each k In dicData.keys If IsNumeric(Application.Match(dicData.keys()(1), Arr_Mem, 0)) Then j = j + 1 Arr_data(j, 1) = ... Arr_data(j, 2) = ... ... end if next k .Cells(4, 1).Resize(UBound(Arr_data), 6).Value = Arr_data 'выгрузка Arr_Mem = Array("сторонний", "аренда (к)") 'изменение значения переменной |
Заранее спасибо всем откликнувшимся