エクセルで教えてください

質問

エクセルで教えてください。

配列数式にしたいセルが多数あるのですが
１つ１つShift+Ctrl+Enterを押して決定しなければ
いけないのでしょうか？

マクロなどを使って配列数式を複数のセルで同時に設定することは
できないのでしょうか？
やり方を教えてください。

よろしくお願いします

回答No.4

xls88 · ベストアンサー

keithinさんが回答されているようにコピーできました。
Range("F12").FormulaArray = "=SUM(IF(($C$2:$C$10=C12)*($D$2:$D$10=D12),$F$2:$F$10))"
Range("F12").Copy Range("F13:F14")

お礼

ありがとうございます。
参考にさせていただきます。

回答No.3

kmetu

マクロの記録で一個記録してそれを応用すればいいと思われますが…。

たとえば

Range("G1").FormulaArray = "=SUM( IF( A1:A10=""○"", B1:B10, ))"

一個だとこんな感じですね。
マクロの記録だとR1C1形式で記録されてわかりにくくなるので後でそこだけ直します。

回答No.2

keithin

具体的にどういった配列数式を作ったのかによって，
１）１つのセルにCtrl+Shift+Enterしてから，他のセルにコピーして貼り付ける方法
２）セル範囲を先に選んでおいてから(１つのセルに＝選択した範囲内のアクティブセル１つに)式を記入し，Ctrl+Shift+Enterしなければならない方法
のどちらかが使えます。

たとえばLINEST関数やTRANSPOSE関数を配列入力する場合（関すウィザードから関数のヘルプで具体的な数式の使い方例を勉強できます）などでは，後者の操作をしなければなりません。

こちらの相談室でもしばしば見かけるような配列数式なら，ちゃんと工夫して作成すれば（＝コピーすることを考えて式を作っておけば）前者の操作で出来ます。

回答No.1

xls88

同時には無理なようです。
ループ処理します。
F12に
{=SUM(IF((C2:C10=C12)*(D2:D10=D12),F2:F10))}
といったような配列式を入れるとして
F12:F14に同じような配列式を入れる例です。

Dim c As Range
For Each c In Range("F12:F14")
c.FormulaArray = "=SUM(IF((C2:C10=C" & c.row & ")*(D2:D10=D" & c.row & "),F2:F10))"
Next