Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как в формуле зафиксировать значение ячейки на использование ее 4 раза?
 
Привет.

В Ячейкaх А1-A10 есть разные
В ячейках B1-B4 есть значения разные
В ячейки столбца C1 нужно попеременно с использованием функции СЦЕПИТЬ подставить значения (A1+B1, A2+B2, A3+B3, A4+B4), затем A2+B1. A2+B2 и т.д.

Фиксирую формулу, но все равно не получается
Изменено: Limyh - 7 Апр 2015 09:48:37
 
Не хочет и всё.
ПОлучается если зафиксировать, то эти фиксированные ячейки "протягиваются" до конца диапазона, а мне нужно, чтобы после четырех заполненных ячеек, одно из значений менялось в формуле
 
Тихо сам с собою я веду беседу...В чем вопрос-то? Пример в файле покажите? Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
 
Прикрепил пример
 
Цитата
Limyh
ПОлучается если зафиксировать, то эти фиксированные ячейки "протягиваются" до конца диапазона, а мне нужно, чтобы после четырех заполненных ячеек, одно из значений менялось в формуле
Так задавайте НОВУЮ формулу, для новых 4-х значений и протягивайте ее. И т.д.
Если автоматизировать бардак, то получится автоматизированный бардак.
 
wowick
так таких блоков будет несколько сотен

хотелось бы автоматом как-то)
 
Похоже придется самому мучаться)
 
Себе, что ли, в контекстную рекламу податься...Ваш матрас то в начале строки, то в конце, логика... Опишите подробнее задачу, может, и найдутся помощники.
Цитата
Похоже придется самому мучаться)
Выход есть - раздел Работа :)
 
В модуль листа:
Код
Public Sub www()
    Dim a, lr&, i&, n&, s$, s1$, s2$
    s = "матрас "
    s1 = "купить матрас "
    s2 = " цена"
    n = 1
    lr = Cells(Me.Rows.Count, 1).End(xlUp).Row
    a = Me.Range("a1:b" & lr).Value
    ReDim b(1 To UBound(a) * 4, 1 To 2)
    For i = 1 To UBound(a)
        b(n, 1) = a(i, 1): b(n, 2) = a(i, 2)
        b(n + 1, 1) = s & a(i, 1): b(n + 1, 2) = a(i, 2)
        b(n + 2, 1) = s1 & a(i, 1): b(n + 2, 2) = a(i, 2)
        b(n + 3, 1) = a(i, 1) & s2: b(n + 3, 2) = a(i, 2)
        n = n + 4
    Next
    Me.[c1].Resize(UBound(b), 2) = b
End Sub
Изменено: KuklP - 7 Апр 2015 11:34:05
Я сам - дурнее всякого примера! ...
 
см Лист3. Если понял правильно. Ну там под себя подработайте
F1 творит чудеса
 
Спасибо. Помучался- получилось..+ в удаленной теме человек подсказал. спасибо)
 
А показать ссылку на эту удаленную нельзя, да?
Страницы: 1
Читают тему (гостей: 1)