重複データ計算式がうまく回りません

Question

4列目からデータを入力していきたいのですがデータが5列目からになってしまいます
原因がどこにあるかよろしければ教えてください

Sub TestList()
Dim i As Long
Dim j As Long
Dim flgFind As Long
Dim maxRow As Long
Dim maxRow_l As Long
Dim strMat, lngNum

With ActiveSheet
maxRow = .Cells(Rows.Count, 211).End(xlUp).Row
maxRow_l = 1

For i = 4 To maxRow
    flgFind = 0
    For j = 4 To maxRow_l
        strMat = Cells(i, 211).Value
       
    
        If strMat = .Cells(j, 214).Value Then
            flgFind = 1
            Exit For
        End If
    Next j
    
    If flgFind = 0 Then
        .Cells(j, 214).Value = strMat
       
        maxRow_l = maxRow_l + 1
    End If
Next i

End With

End Sub

Comments

[meg_]

> 4列目からデータを入力していきたいのですがデータが5列目からになってしまいます
「列」ですか？

[aaieei]

すみません縦ズレなんで行ですね

[meg_]

> すみません縦ズレなんで行ですね
質問は編集できますので修正してください。

211列と214列にはどのようなデータがありますか？質問のコードを検証するために必要なデータを提示できますでしょうか？

[riko]

具体的にどのような処理を行いたいのか
質問文から想像できませんでしたが、
for j = 4 To maxRow_l
のとき 【maxRow_l】の値が　４以下の場合は
for j = 4 To maxRow_l の中身のプログラムは全く実行されません。

具体的に
1週目　maxRow_l　は　１
2週目　maxRow_l　は　２
3週目　maxRow_l　は　３
4週目　maxRow_l　は　４
なので実際
for j = 4 To maxRow_lの中身が実行されるのは
５週目からになります。
これは意図した動きではないのでは？と思っています。

ご存じの上でこのプログラムにしていたら申し訳ありません
ご確認お願いします。

[aaieei]

for j = 3 To maxRow_l
にすると4行目から始まるのですが
３行目に入力している上書きされているのか
データが消えてしまいます
３行目に入力している物は消したくないのですがどうすればよいでしょうか？

Answer 1

For i = 1 To 10
Next
Debug.Print i '=11