リストをループして特定の値を見つけるVBA

Question

私は毎日長くなっている値の長いリストを持っています。これは、ボタンに基づいて値を割り当てる機からのデータがプッシュ含まれ、値はマシンが動作を実行するたびに-1、0、1、2

あり、それに一意の番号を割り当てます。 「テスト」ボタンが押された場合、値-1が与えられ、前の操作からのユニークな番号がこの「テスト」に割り当てられます。これは、テストが操作としてカウントされないためです。例331の写真。

私は自分のデータからレポートを作成するために私は以下のフォーマットでそれを望みます。

私は、リスト全体を通過することになるVBAコードが必要（約2000細胞になりました）と、新しいシートに値を移動し、そのため。

これまでは、必要な値を含む領域を新しいシートにコピーし、この数式を使用して各数値を移動しようとしました。

Answer 1

私は質問を理解してくれれば幸いです。次のコードは最もクリーンではないかもしれませんが、動作します。私は開始 - >停止は常に同じ歩数を持ち、常に同じ順序であると仮定しています。

Sub test2() 

Application.ScreenUpdating = False 

For i = 1 To 20000 
    For j = 1 To 9 
     nextfree = WorksheetFunction.CountA(Range("A:A")) + 1 
     If Sheets("sheet1").Range("A" & i).Value = Sheets("sheet2").Cells(1, j).Value Then 
      Sheets("sheet2").Cells(nextfree, j).Value = Sheets("sheet1").Range("C" & i).Value 
     End If 
    Next j 
Next i 

Application.ScreenUpdating = True 

End Sub