Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Раскопировать формулы по всем строкам с изменением одной цифры в формуле, Способы реализации.
 
Код
=СЧЁТЗ('C:\Users\***\Desktop\***\[B]01[/B]\[Таблица.xlsm]Таблица'!A$4:A$310)

Скажите как сделать так, чтобы раскопировать эту строчку по остальным, так чтобы значения в этой строчке менялись. Т.е. от 01 до 81
Нужно раскопировать это всё по всем строкам...
Изменено: sabotajue - 31 Июл 2013 21:05:23
 
Sub q()
Dim i&, ar(1 To 81, 1 To 1)
For i = 1 To 81
   ar(i, 1) = "=СЧЁТЗ('C:\Users\***\Desktop\***\" & i & "\[Таблица.xlsm]Таблица'!A$4:A$310)"
Next i
[a1].Resize(81) = ar
End Sub
Живи и дай жить..
 
А почему во всех созданных ячейках появилось вместо значения из файла, #ИМЯ? ?
 
Слэн чуток забыл:
Код
ar(i, 1) = "=СЧЁТЗ('C:\Users\***\Desktop\***\" & Format(i,"00") & "\[Таблица.xlsm]Таблица'!A$4:A$310)"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Не мог ли бы вы мне помочь в заполнении таблицы? (см. приложение)
А то я вообще не понимаю как реализовать...


Заранее благодарю вас за решение этого вопроса.
Изменено: sabotajue - 31 Июл 2013 12:45:32
 
Дорогие друзья, прошу Вас очень сильно помочь мне в решении этого вопроса. С меня а пиво благодарности !!!  :)
Страницы: 1
Читают тему (гостей: 1)