VB.NET ClosedXMLでエクセルファイルにデータ書込みが途中までしかできていない

Question

前提・実現したいこと

エクセルシートに項目（列）を追加して、データを入力する様にしたいのですが、900行くらいのうち、100行くらいで、「処理が完了しました」とメッセージが表示され、正常終了します。
データは900行くらいまであるので、最後まで入力されて正常終了になるはずなのですが、必ず同じ行まで入力された状態で、終了してしまいます。
環境は、VB.NET(Visual Studio v15.7.3)です。

追記
書込みは、sheet2のセルからsheet1のセルへ書込みをしています（書込みとは言わない？（貼り付け？））

ファイル保存のコードを追記しました。

追記
　

　

sheet1とsheet2でA列(品名)が一致したらsheet2のC列とD列をsheet1のB列とC列に書込みます。

発生している問題・エラーメッセージ

プログラム的には、正常終了していますが、保存されるファイルを見ると、データが途中までしか入力されていない状態になっている。

該当のソースコード

                For i = 2 To MaxRow
                    If sheet1.Cell(i, 1).Value = "" Then
                    ElseIf sheet1.Cell(i, 1).Value = sheet2.Cell(i, 1).Value Then
                        For j = 2 To MaxRow2
                            If sheet2.Cell(j, 1).Value = sheet1.Cell(i, 1).Value Then
                                sheet1.Cell(i, 2).Value = sheet2.Cell(j, 3).Value
                                sheet1.Cell(i, 3).Value = sheet2.Cell(j, 4).Value
                                AA = sheet1.Cell(i, 1).Value
                                BB = sheet2.Cell(j, 3).Value
                            End If
                        Next
                    End If
                Next
                'シート名を変更して保存
                sheet1.Name = "sheet_test"
                対象ファイル.SaveAs("C:\Users\xxxxxxx\TestBook.xlsx")

試したこと

最終行MaxRow,MaxRow2を共に900等に指定してみても結果は同じでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[y_waiwai]

そのソースコードにはExcelへのデータ書き込みもファイル出力も含まれていませんが。これでどうにかするというのは無理ゲーだと思います

[imihito]

`j`のループ中の間、同じ箇所を書き換えていますが意図通りですか？入力・期待される出力の表の形式を示してください。

Answer 1

スミマセン、単純なミスでした。

sheet1のA列とsheet2のA列が完全に一致する前提で考えていましたが、実際には完全一致ではなく

ElseIf sheet1.Cell(i, 1).Value = sheet2.Cell(i, 1).Value Then
でfalseとなり、それ以降書き込みがおこなわれていませんでした。

上記の条件を単に
Else
としたら正常に書き込みが出来ました。

Answer 2

どのような入力データで行われているのか分かりませんが、ただ単に条件が真にならずに処理されていないだけなのではないですか？
If文にElseを設けて、Traceを取ってみるなり、ステップ実行するなり、ご自身のプログラムがどのように動作しているか確認してみてはどうでしょうか？