VBA並べ替えと過去の値を検索

Question

私のデータは、列Aと列B（約1000行）です。列Bの各行には、1または2または3または4の番号があります（更新後、リストに4つの番号がすべて含まれているわけではありませんが、番号2および4のみとなります）。

値はE2 = 1、F2 = 2、G2 = 3、H2 = 4 で、常に同じです。

今、私は列Bの数に等しい値（赤数字）

Answer 1

下（-1,0）のオフセットで、列Bの値は、いくつかの追加VBAで貼り付けたいですA2とB2のヘッダーは、次のようにコードします。

Sub main() 
    Dim cell As Range 

    With Range("B1", Cells(Rows.Count, 1).End(xlUp)) 
     For Each cell In Range("E2:H2") 
      .AutoFilter field:=2, Criteria1:=cell.Value 
      If CBool(Application.Subtotal(103, .Cells)) Then 
       .Resize(.Rows.Count - 1, 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy cell.Offset(1) 
     Next 
    End With 
    ActiveSheet.AutoFilterMode =False 

End Sub