どのようにループをすべてのXとYの値を同時に実行させることができますか？今すぐすべてのY値を実行してからすべてのX値を実行します。

Question

まずすべてのy値を実行し、次にすべてのx値を実行します。私は同時に変更するにはXとYが必要です。

For x = 3 To lr + 1 
    For y = 2 To lr 
    anyl.Cells(x, 1) = efx.Cells(y, 1) 
    Next y 
Next x 

Answer 1

内部ループ（およびy）を排除

For x = 3 To lr + 1 

    anyl.Cells(x, 1) = efx.Cells(x - 1, 1) 

Next 

Answer 2

問題は、外側のループは、すべての実行と内側のループを開始する方法でループを設計していることです。したがって、内部ループを削除する必要があります。例：

For x = 3 To lr + 1 
    y = x - 1 // Or just change the value in the Cells-function* 
    anyl.Cells(x, 1) = efx.Cells(y, 1) 
Next 

*変数yを簡単に再利用できるため、この方法をお勧めします。