Есть две таблицы на разных листах, с разным количеством строк. Во 2,3,4 столбцах формулы, хотелось бы вставить в макрос протягивание формул до последней заполненной ячейки. Формулы содержатся в листах в разных строках. Помогите пожалуйста. Sheets(1).Range("D2").FormulaR1C1 = "=CONCATENATE(RC[1],TEXT(RC[2],""ДД.ММ.ГГГГ""),RC[4])" Sheets(1).Range("C2").FormulaR1C1 = "=COUNTIF(R2C4:R2000C4,RC[1])" Sheets(2).Range("D5").FormulaR1C1 = "=CONCATENATE(RC[2],TEXT(RC[3],""ДД.ММ.ГГГГ""),RC[11])" Sheets(2).Range("C5").FormulaR1C1 = "=COUNTIF(R5C4:R2000C4,RC[1])" Sheets(2).Range("B5").FormulaR1C1 = "=MATCH(RC[2],АСФК!R2C4:R2000C4,0)" Sheets(1).Range("B2").FormulaR1C1 = "=MATCH(RC[2],СУФД!R5C4:R2000C4,0)"[vba][code][/code][/vba]
Есть две таблицы на разных листах, с разным количеством строк. Во 2,3,4 столбцах формулы, хотелось бы вставить в макрос протягивание формул до последней заполненной ячейки. Формулы содержатся в листах в разных строках. Помогите пожалуйста. Sheets(1).Range("D2").FormulaR1C1 = "=CONCATENATE(RC[1],TEXT(RC[2],""ДД.ММ.ГГГГ""),RC[4])" Sheets(1).Range("C2").FormulaR1C1 = "=COUNTIF(R2C4:R2000C4,RC[1])" Sheets(2).Range("D5").FormulaR1C1 = "=CONCATENATE(RC[2],TEXT(RC[3],""ДД.ММ.ГГГГ""),RC[11])" Sheets(2).Range("C5").FormulaR1C1 = "=COUNTIF(R5C4:R2000C4,RC[1])" Sheets(2).Range("B5").FormulaR1C1 = "=MATCH(RC[2],АСФК!R2C4:R2000C4,0)" Sheets(1).Range("B2").FormulaR1C1 = "=MATCH(RC[2],СУФД!R5C4:R2000C4,0)"[vba][code][/code][/vba]Фортуна777
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
