Использование VBA для оценки формулы и добавления результатов в диапазон

Question

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

=UPPER(CONCATENATE(IF(J2=0,"",AlphaNumericOnly(SUBSTITUTE(J2,"0",""))),IF(M2=0,"",LEN(M2)),IF(N2=0,"",UPPER(AlphaNumericOnly(SUBSTITUTE(N2,"0","")))),IF(P2=0,"",UPPER(AlphaNumericOnly(SUBSTITUTE(P2,"0","")))),IF(R2=0,"",UPPER(AlphaNumericOnly(SUBSTITUTE(R2,"0","")))),IF(W2=0,"",UPPER(AlphaNumericOnly(SUBSTITUTE(W2,"0","")))),IF(X2=0,"",UPPER(AlphaNumericOnly(SUBSTITUTE(X2,"0","")))),IF(Y2=0,"",UPPER(AlphaNumericOnly(SUBSTITUTE(Y2,"0","")))),IF(Z2=0,"",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Z2,"-","1"),".",""),"0","")),IF(AD2=0,"",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(AD2,"-","1"),".",""),"0","")))) 

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

Может ли кто-нибудь предоставить метод добавления этой формулы в каждую строку? Я прочитал, вы можете оценить результат формулы в vba и вернуть результаты, а не добавлять формулу к листу. Должен ли я смотреть на этот маршрут?

Answer 1

В верхней части листа модуля поместите это объявление (под Option Explicit, если оно есть).

Public Const csFORMULA = "=UPPER(CONCATENATE(IF(J2=0,"""",AlphaNumericOnly(SUBSTITUTE(J2,""0"",""""))),IF(M2=0,"""",LEN(M2)),IF(N2=0,"""",UPPER(AlphaNumericOnly(SUBSTITUTE(N2,""0"","""")))),IF(P2=0,"""",UPPER(AlphaNumericOnly(SUBSTITUTE(P2,""0"","""")))),IF(R2=0,"""",UPPER(AlphaNumericOnly(SUBSTITUTE(R2,""0"","""")))),IF(W2=0,"""",UPPER(AlphaNumericOnly(SUBSTITUTE(W2,""0"","""")))),IF(X2=0,"""",UPPER(AlphaNumericOnly(SUBSTITUTE(X2,""0"","""")))),IF(Y2=0,"""",UPPER(AlphaNumericOnly(SUBSTITUTE(Y2,""0"","""")))),IF(Z2=0,"""",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Z2,""-"",""1""),""."",""""),""0"","""")),IF(AD2=0,"""",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(AD2,""-"",""1""),""."",""""),""0"",""""))))" 

Теперь вы можете заполнить формулу в любом диапазоне. Пример:

Range("L2:L10").Formula = csFORMULA 
'Range("L2:L10") = Range("L2:L10").Value 

Вторая прокомментированная строка на случай, если вы хотите вернуться к значениям из введенной формулы. Обратите внимание, что я использую .Formula, а не .FormulaR1C1.