14/06/14 15:16:41.92 UnUM1hDE
こんにちは。セルの不一致部分を取り出して、１から並べ直し、
修正したデータを入力するというマクロを作成しているのですが、
同じ列で複数の間違いがあった場合、iを進めないように、コメントアウトしているif文を入れたのですが、
そうすると、２行目で 実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです
が表示されてしまいます。
列に間違いは２つ以上ないということで、コメントアウト部分を削除したままなら問題なく稼働するのですが、
この１文を入れるとどうしても進みません。
Arrayには、不一致部分のセルの座標が入っています。
全然ここから進まなくて困っていますので、どうかご教授お願い致します。
Do
ws.Cells(Array_l(j), Array_r(j)).Value = s1.Cells(i + 1, Array_r(j)).Value
'B1の数値を修正する
ws.Cells(Array_l(j), Array_r(j)).Interior.Color = xlNone
'B1のセル背景を元に戻す
ws2.Cells(Array_l(j), Array_r(j)).Interior.Color = xlNone
'B2のセル背景を元に戻す
'If Array_l(j) = Array_l(j + 1) Then
i = i - 1
'End If
j = j + 1
i = i + 1
If Array_l(i) = Empty Then Exit Do
Loop