VBA ループ処理を簡易に書き直したい

Question

現在、ExcelにDBのデータ表示して、指定した箇所を書き替えて更新すると、指定箇所によってループが回ってしまう書き方になっていまして、
１回の処理でできるようにしたいのですが、どのようにしたらいいのかわかりません。

下記を参考に訂正したいのですが、思うように訂正することができません。
何か、アドバイス頂ければと思います。
For 行のループ
Dim 判定用 As Boolean
判定用=false
For 列のループ
If 値が変更されたか判定
判定用=True
** EXIt for**
End if
Next
If 判定用=true
更新処理
END if

Next 行

'更新 変更されたデータのみをDBに書きだす
Sub Button3_Click()

'指定した場所のみ更新
 
    Dim oraCon As New ADODB.CONNECTION
    Dim oraCmd As New ADODB.Command
    Dim strSQL As String
    Dim i As Integer
    Dim j As Integer
    Dim oraRs As New ADODB.Recordset
    Dim n As Integer
    
   'DBの接続文字列を設定
     oraCon.ConnectionString = CONNECTION
    '接続を開く
    oraCon.Open
   
    'SQLを作成
    strSQL = "SELECT * FROM 社員テーブル1 ORDER BY 社員NO ASC"
    
    'レコードセットにSQL実行し結果をセット
    oraRs.CursorLocation = adUseClient
    oraRs.CursorType = adOpenDynamic
    oraRs.Open strSQL, oraCon
    
    ReDim arrRcd(oraRs.Fields.Count, oraRs.RecordCount)
    arrRcd = oraRs.GetRows
   
   
   
    '最終行までの処理
      n = Cells(Rows.Count, "A").End(xlUp).row
   
 For i = 1 To n
  For j = 1 To 3
             '行' '列'                 '列' '行'
     If Cells(i, j + 1).Value <> arrRcd(j, i - 1) Then
  
   strSQL = "update 社員テーブル1 set  " _
            + " 名前 ='" + Cells(i, 2).Value + "'" _
             + ",住所 ='" + Cells(i, 3).Value + "'" _
             + ",電話 ='" + Cells(i, 4).Value + "'" _
             + " where 社員NO = '" + CStr(i) + "'"
             
   With oraCmd
        .ActiveConnection = oraCon
        .CommandText = strSQL
        .Execute
   End With
   
     End If
 
   Next j
 Next i
                
    Set oraCmd = Nothing
    oraCon.Close
    Set oraCon = Nothing
    
End Sub

Answer 1

すみません、コードミスでした。解決しました。