エクセルVBAの二重ループについて

Question

今月VBAを勉強し始めた初心者です。
Webにて入力されたcsvファイルを編集する際に
最新投稿を残して表に出力する目的で
下記のマクロを作成して実行してみたところ
変数i、jが0になるまでループが繰り返されてエラーになってしまいます。
ループ範囲指定のどこに問題があるのでしょうか？

こちら側の環境が
OS：Windows7 64bit Ultimate
Office2007
です。
ご教授宜しくお願い致します。

Sub namaesakujo()
    Dim i As Integer
    Dim j As Integer
    Dim mct As Integer
    Dim Name1 As String
    Dim Name2 As String
    Dim Time1 As Long
    Dim Time2 As Long

Worksheets("result").Activate
    mct = Worksheets("result").UsedRange.Rows.Count '最大行数を指定
    Name1 = Cells(i, 2).Value '名前1
    Name2 = Cells(j, 2).Value '名前2
    Time1 = Cells(i, 1).Value '時間1
    Time2 = Cells(j, 1).Value '時間2
    '変数iを最終行数～2行目まで指定
    i = mct
    Do While i > 2
        '変数jを最終行数～2行目まで指定
        j = mct
        Do While j > 2
            '2列目iと2列目jが等しい(名前が同じ)場合、日時が小さい方を削除する
            If Name1 = Name2 And Time1 > Time2 Then
                Cells(j, 1).EntireRow.Delete
            End If
        j = j - 1
        Loop
    i = i - 1
    Loop

MsgBox "更新完了"

End Sub

imogasi · Accepted Answer

コードの不適格個所は他の回答で勉強して。
ーー
質問には、データ例を１０行内外で書け。
そしてやりたいことをデータ例に沿って、文章で書け。
回答者にコードを読み解かせるようなことは少なくせよ。
質問者の意図とコードがちぐはぐであることもあり（むしろそれが多い）判りにくいコードを読まされて、よくわからないことがある。
ーー
ほかに
プログラムを考えるときには、処理の大枠（わたしはロジックといっている）の適当なものを考えて、捜して想を練る必要がある。
これは１週間や数個の課題では習得できないものだ。
初心者はこの段階で変なやり方で取り組み勝ち。
ーー
本件は質問の意味がよくわからないが、要らない行を削除しないで、元データは元のままで、別シートに（別列に）必要なデータを整えるという式で考えると良い。
また同じものを省くときデータをキーでソートすると、同じものは付近行に塊となってくれるので、前後を考えておれば済むことが多く、処理が簡単になることが多い。
１週間ぐらいの学習で、ＶＢＡの自分がしたいことが出来るのは立派なものだが、
むしろ重点は、他人の組んだＷＥＢや解説書の例を多数追試して、取り入れることが大切な時期と思う。
ＶＢＡやプログラムをを甘く見ないこと。

mu2011 · Answer

ループの考え方が全然だめですね、Do～Loop間でName、Timeが変動しません。
考え方を少し変えてみては如何でしょうか。
例えば、（１）データを時間列で降順にソート、（２）名前列で重複削除では駄目
でしょうか。
（上記の操作をマクロ記録で一度コードを参照してみては如何でしょうか）

mt2008 · Answer

[F8]でステップ実行してみました？
変数について変な思い違いをされている様に思います。

Name1 = Cells(i, 2).Value
と、すると変数iが1,2,3と変化するたびにName1の値がCells(1, 2).Value、Cells(2, 2).Value、Cells(3, 2).Value　
と変わっていく訳では有りません。代入した時点のiの値、つまりi=0で代入が行われます。
従って、
　Name1 = Cells(0, 2).Value
が実行され、エラーになっています。
現在のコードではループが回って0まで行ってエラーになっているのではなく、ループに入る前にエラーになっています。

今のコードをそのまま活かすなら、
　Name1 = Cells(i, 2).Value '名前1
　Time1 = Cells(i, 1).Value '時間1
を　Do While i > 2　の下に移動し、

Name2 = Cells(j, 2).Value '名前2
　Time2 = Cells(j, 1).Value '時間2
を　Do While j > 2　の下に移動して見てください。

Cor_moriyan · Answer

そもそも Do While に入る前の Name1 = Cells(i,2).Value でエラーになりませんか？この時点での i の値はゼロですし。。。

本当に
> 変数i、jが0になるまでループが繰り返されてエラー
となってます？もう一度、エラーの出た箇所とエラー内容を良く確認してみて下さい。

それと。
今回の様に、変数の値が一定の増減があって繰り返すような場合、For～Next の方がわかりやすいデス。
　　For i=mct to 2 Step -1
　　　For j=mct to 2 Step -1
　　　　If Name1 = Name2 And Time1 > Time2 Then
　　　　　Cells(j, 1).EntireRow.Delete
　　　　End If
　　　Next
　　Next

エクセルVBAの二重ループについて

コードの不適格個所は他の回答で勉強して。

この回答への補足

ループの考え方が全然だめですね、Do～Loop間でName、Timeが変動しません。

[F8]でステップ実行してみました？

そもそも Do While に入る前の Name1 = Cells(i,2).Value でエラーになりませんか？この時点での i の値はゼロですし。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング