|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
24.10.2013, 06:31
|
#1 |
|
Пользователь
Регистрация: 06.05.2011
Сообщений: 38
|
Как автоматически применить формулу к каждой строчке диапазона
Не могу сообразить, есть формула в excel:
=ЕСЛИ(B2="";"";ПСТР(B2;ДЛСТР(B2)-8;2)) Нужно её применить с помощью VBA к диапазону с 1 по 100 строку, т.к. предыдущий макрос добавляет новые строки и формул в них уже нет 
|
|
|
|
24.10.2013, 07:38
|
#2 |
|
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Запишите рекордером макрос записи формулы в одну ячейку. Потом поменяйте на запись в диапазон.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
|
|
|
|
24.10.2013, 08:00
|
#3 |
|
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Код:
Правильно поставленная задача - три четверти решения.
|
|
|
|
|
24.10.2013, 13:40
|
#4 | |
|
Пользователь
Регистрация: 06.05.2011
Сообщений: 38
|
Цитата:
Но за идею спасибо! Получилось как то так: Dim src As Range, out As Range, wks As Worksheet Set out = Worksheets("Лист1").Range("C3:C10") Set src = Worksheets("Лист1").Range("C2") src.Copy out |
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Коментарии к каждой строчке | ganster | Общие вопросы C/C++ | 10 | 09.07.2012 22:42 |
| Как автоматически подставить в формулу значения из ячеек на какую она ссылается? | Buchhalter | Microsoft Office Excel | 4 | 24.06.2012 12:31 |
| К каждой строчке добавляется фраза | Dominatorsha | Общие вопросы Delphi | 1 | 30.05.2011 16:21 |
| Какую формулу применить? | rusgaz | Microsoft Office Excel | 3 | 18.10.2010 23:43 |
| Как добавить сразу несколько ячеек к каждой ячейке некоего диапазона? | eugenerud | Microsoft Office Excel | 20 | 24.07.2009 19:18 |
