実行時エラーの原因がつかめない（ＥｘｃｅｌＶＢＡ）

質問

下記コードで実行時エラーの原因がつかめません。どなたか助けて
ください。Sheet5のＡ，Ｂ列のデータを　Sheet6 のＡ，Ｂ列に
一定の範囲で逆順にコピーする操作です。

Dim Dn As Integer, Zn As Integer
Dn = Sheets("sheet1").Range("E37").Value / 8 + 0.5
Zn = Round(Dn)　‘
Sheets("Sheet6").Range("A1:A65536").ClearContents
Xn2 = Sheets("Sheet3").Range("D65536").End(xlUp).Row - 5　
Xn1 = Sheets("Sheet5").Range("A65536").End(xlUp).Row
I = 0
Do
Ix = I + 1
Iz = Xn1 - I
Sheets("Sheet6").Range("A" & Ix & " : B" & Ix).Value _
Sheets("Sheet5").Range("A" & Iz & " : B" & Iz).Value
I = I + 1
Loop Until I = Xn2 * Zn + 1

回答No.1

merlionXX · ベストアンサー

よくわかりませんが、あきらかに変なのは

Sheets("Sheet6").Range("A" & Ix & " : B" & Ix).Value _
Sheets("Sheet5").Range("A" & Iz & " : B" & Iz).Value

ですね。

もし、Sheets("Sheet5").Range("A" & Iz & " : B" & Iz)の値をSheets("Sheet6").Range("A" & Ix & " : B" & Ix)にもってきたいなら、

Sheets("Sheet6").Range("A" & Ix & " : B" & Ix).Value _
= Sheets("Sheet5").Range("A" & Iz & " : B" & Iz).Value

ではないでしょうか？（＝が抜けてます。）

お礼

ありがとうございます

回答No.2

popesyu

ステップインで実行した時に、具体的にどのタイミングでどういった内容のエラーが出るのでしょうか。
とりあえず「=」がなくてもエラーは出ませんのでもっと別のレベルでの問題かと思います。コード的にはおかしいですが。