質問: AB。と範囲を指定しましたがエラーが発生しました。 ### 補足情報(FW/ツールのバージョンなど) ここにより詳細な情報を記載してください。
回答: ``` Sub test() Range("A5:A6").Resize(, 100).Value = _ WorksheetFunction.MMult(Range("A2:B3").Cells, Range("D2:D3").Cells) End Sub ``` なんで繰り返したいかわからないし、 そもそもMMult関数がどんな計算をしているかわかってないけど、 ループする必要はないかもです。 あれ?セル範囲は飛び飛びであってるんでしょうか。。。。? あああ。 > > Range("A1") = I > > > を見逃してました。 ``` Sub test() Dim i As Long For i = 1 To 100 Range("A1").Value = i Range("A5:A6").Offset(, i - 1).Value = _ WorksheetFunction.MMult(Range("A2:B3").Cells, Range("D2:D3").Cells) Next End Sub ``` ループ内で1回1回計算するのなら、 数式を一括で入れた方が処理速度は速いかもです。