VBからexcelに数式の入ったセルを範囲セルに貼付けるには？ (ID:120770)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ☆先ほど参照していたスレッドに書き込みしてしまいました・・・ 改めて表題を入れて入力しました。(^-^;) VB6で、excelに対して処理するプログラムを作成しています。 そこで解決できない問題がありまして・・・ (したいこと) 1シート目を集計シートとして、2シート目〜最後のnシート目までの 同セル位置の合計(数式)を貼り付ける。 (エラー) 詳しい文言がでません(出し方を知らないだけですね・・・)が、 以下のコードstepです。 -------- Public Function SetData(wb As Object, xNumber As Integer, xAmount As Integer, yoko As Integer, j As Integer) As Integer With wb.Sheets(j + 1) '計算式をセルに設定 .Cells(xNumber, yoko).FormulaR1C1 = _ "=SUM(" & LstBUYS1050(j + 1).BgMeisho & ":" & LstBUYS1050(NumBUYS1050 - 1).BgMeisho & "!RC)" .Cells(xNumber, yoko).Copy .Range("I12:Q79").Select .Selection.PasteSpecial Paste:=-4123, Operation:=-4142, SkipBlanks:= _ False, Transpose:=False '☆←のstepでエラーになる(T◇T) End With -------- 多分、.Selection.PasteSpecialの使い方が間違っているのだと思うのですが、 今現在、手元に書籍とかなく、webで検索した限りでは解りませんでした・・・ 大変申し訳ないのですが、もしお知恵のある方いましたらアドバイス頂けませんでしょうか？