У меня есть функция, которая принимает два параметра: String и ParamArray неопределенной длины. Мне нужно иметь возможность динамически загружать функцию из рабочего листа, содержащего строку, которая будет передана функции в столбце A, и все значения в ParamArray во всех следующих столбцах. Код, с которым я работаю, для справки:
Function Filter(StringValue As String, ParamArray ParamArray1() As Variant)
Dim wb As Workbook: Set wb = ThisWorkbook
Dim dataSheet As Worksheet: Set dataSheet = wb.Sheets("Paste Data")
Dim j As Integer
Dim r As Range
CCCol = dataSheet.Rows(1).Find("Code", LookAt:=xlWhole).Column
ColumnLetter = Split(Cells(1, CCCol).Address, "$")(1)
Set r = Range("$" & ColumnLetter & ":$" & ColumnLetter)
dataSheet.Range("$" & ColumnLetter & ":$" & ColumnLetter).AutoFilter Field:=1, _
Criteria1:=Array(ParamArray1), Operator:=xlFilterValues
CreateWorkbooks StringValue 'uses StringValue to create a Workbook with said name and the autofilters applied
End Function
Идея состоит в том, чтобы создать итератор в основном Sub, который будет l oop через все строки с доступными данными в листе, который содержит параметры фильтра, что не является сложной частью. Мне трудно понять, как построить ParamArray из значений всех последующих столбцов в столбец A, чтобы передать его функции фильтра на каждой итерации. Любая помощь?
Спасибо!