ExcelVBAの配列変数で一括でセルに数式を挿入する方法
ExcelVBAの配列変数で一括でセルに数式を挿入する方法
ExcelVBAでTEST1シートを参照して、TEST2シートに数式を貼り付けたいと思っています。
例えばTEST2シートのA1セルには、TEST1シートのA1を参照する数式
=IF('TEST1'!A1="","",'TEST1'!A1))を挿入、
TEST2シートのA2セルには、TEST1シートのA2を参照する数式
=IF('TEST1'!A2="","",'TEST1'!A2))を挿入、
それをA1セルからZ10セルまで同様に数式を挿入したいと思っています。
以下のように配列変数を用いて、一括で挿入すると数式ではなく、文字が入ってしまいます。
Sheets("TEST2").Cells(1, 1).Resize(10, 26).Formula = SUSHIKI
※SUSHIKI←数式を入れた配列
どのような記述を行えば、数式を貼り付けることができるができるでしょうか。
できればOffsetを使用した形で作成したいです。
どうかご教授お願い致します。