Страницы: 1
RSS
Запись формулы, через VBA
 
Добрый вечер просьба подсказать как данную формулу можно записать через VBA  
Формула следующая: =ЕСЛИ(СЧЁТЕСЛИ($B$2:$B$3;$B$3)=1;МАКС(A$2:A2)+1;"")  
 
и ее необходимо размножить на 100 ячеек вниз, все это надо сделать макросом.  
 
Проблема следующая, у меня эта формула вычисляет уникальные значения в столбце, как это указано на данном сайте в одном из уроков. Таблица в которой хранятся данные загружаются через xml, и после загрузки данная формула бьется, указывая вместо значения $B$2:$B$3, $B$2:$B$X, где X последняя строка в загруженной таблице и следующие формулы идут прибавлением, т.е. X+1, X+2, X+3  
 
Идея следующая записать формулу в ячейку через VBA после загрузки данных через импорт XML, и дальше размножить ее на последующие ячейки
 
Допустим вам эту формулу нужно вставить в F2:F100, то  
 
   With Range("F2:F100")  
       .Formula = "=IF(COUNTIF($B$2:$B$3,$B$3)=1,MAX(A$2:A2)+1,"""")"  
       'если нужно перевести формулу в значения, то удалите начальный апостроф  
       '.Value = .Value  
   End With
Страницы: 1
Читают тему
Наверх