Формула длинного массива в макроре

Я обнаружил, что у меня не может быть более 255 символов в моей формуле, которая является формулой массива в моем коде VBA; однако я не могу понять, как использовать метод replace. Это моя формула массива:

{= IF (ISNUMBER («Файл директора»! $ H $ 11), IF (ISERROR (OFFSET (INDEX («Входы 17-1»! $ A $ 2: $ V $ 183, SMALL (IF («Входы 17-1»! $ A $ 2: $ A $ 183 = 'Файл директора'! $ H $ 11, ROW ('Входы 17-1'! $ A $ 2: $ A $ 183)), 2), 10), – 1,0)), ", OFFSET (ИНДЕКС (« Входы 17-1 »! $ A $ 2: $ V $ 183, SMALL (IF (« Входы 17-1 »! $ A $ 2: $ A $ 183 =« Файл директора »! $ H $ 11, ROW («Входы 17-1»! $ A $ 2: $ A $ 183)), 2), 10), – 1,0)), "")}

Я прочитал, что у вас должны быть рабочие формулы в каждой части вашего метода замены; однако все, что я пытаюсь, не работает.

Любая помощь будет принята с благодарностью!

Я пробовал следующее и до сих пор не могу заставить его работать:

Sub Enter_SellerFormulas() Dim formulaPart1 As String Dim formulaPart2 As String formulaPart1 = "=IF(ISNUMBER('Director File'!$H$11),IF(ISERROR(""X_X_X"")),"")" formulaPart2 = "OFFSET(INDEX('Inputs 17-1'!$A$2:$V$183,SMALL(IF('Inputs 17-1'!$A$2:$A$183='Director File'!$H$11,ROW('Inputs 17-1'!$A$2:$A$183)),2),10),-1,0)),"",OFFSET(INDEX('Inputs 17-1'!$A$2:$V$183,SMALL(IF('Inputs 17-1'!$A$2:$A$183='Director File'!$H$11,ROW('Inputs 17-1'!$A$2:$A$183)),2),10),-1,0" With Range("E17") .FormulaArray = formulaPart1 .Replace "X_X_X", formulaPart2 End With End Sub 

Новый код с рекомендацией Scotts:

 Sub Enter_SellerFormulas() Range("E17").Select ActiveCell.FormulaArray = _ "=IF(ISNUMBER('Director File'!$H$11),IFERROR(OFFSET(INDEX('Inputs 17-1'!$A$2:$V$183,SMALL(IF('Inputs 17-1'!$A$2:$A$183='Director File'!$H$11,ROW('Inputs 17-1'!$A$2:$A$183)),2),10),-1,0),""),"")" 

Давайте будем гением компьютера.