Вопросы по Excel, понятные только узкому кругу избранных

[KorvinS]

1) можно ли сцеплять сразу целые столбцы, а не прописывать в каждой строчке?

2) СУММЕСЛИ тоже не прописывать в каждой строчке, а сразу на столбец?


Макросы велком.

Подойдет даже, если вы скажете, как покороче

Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(Лист2!C[-3]:C[-3],RC[-3],Лист2!C[-1]:C[-1])"
Range("E4").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(Лист2!C[-3]:C[-3],RC[-3],Лист2!C[-1]:C[-1])"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(Лист2!C[-3]:C[-3],RC[-3],Лист2!C[-1]:C[-1])"

[KorvinS]

ну может я как-то непонятно написал, но это же не повод так переименовывать тему

[Krasnaja Shapka]

ты прав, ни хрена не понятно )))

но есть подозрение, что тебя интересует
Range("E3").AutoFill Range("E3:E5"), xlFillCopy

[RayShade]

KorvinS

По любому так лучше чем просто help

[KorvinS]

попытаюсь внятнее...

приложил файл. Позапускайте макросы - макрос2 на листе 2, макрос3 на третьем. ИТОГО тоже на третьем. Все делается как нужно. Только на 1 листе хз сколько строчек будет...

Откройте визуал бейсика окошко и посмотрите. Как это покороче написать? Т.е. не сцеплять отдельно каждую ячейку (макрос2) и не суммировать в каждой ячейке (макрос ИТОГО), а сразу, чтобы по столбцу. Как-то так

[RayShade]

Куда ты его приложил?

[KL]

1) можно ли сцеплять сразу целые столбцы, а не прописывать в каждой строчке?

Это не совсем ясно, но думаю что связано с вопросом 2)

2) СУММЕСЛИ тоже не прописывать в каждой строчке, а сразу на столбец?


Макросы велком.

Подойдет даже, если вы скажете, как покороче

Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(Лист2!C[-3]:C[-3],RC[-3],Лист2!C[-1]:C[-1])"
Range("E4").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(Лист2!C[-3]:C[-3],RC[-3],Лист2!C[-1]:C[-1])"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(Лист2!C[-3]:C[-3],RC[-3],Лист2!C[-1]:C[-1])"

Может имелось ввиду это:

Range("E3:E5").FormulaR1C1 = _
"=SUMIF(Лист2!C[-3]:C[-3],RC[-3],Лист2!C[-1]:C[-1])"

[KorvinS]

да... сорри, заработался

прикладываю

[KL]

Я же тебе уже ответил - весь твой код заменяется на

Код: Выделить всё

Range("E3:E5").FormulaR1C1 = _
    "=SUMIF(Лист2!C[-3]:C[-3],RC[-3],Лист2!C[-1]:C[-1])"

и тоже самое с формулой сцепления, только вместо функции CONCATENATE проще использовать оператор &

[KorvinS]

спасибо большое!

всё гут