VBA查找排序和過去值

Question

我的數據在A列和B列（約1000行）。 B列中的每一行都有一個數字：1或2或3或4.（更新後可能不再有全部4個數字在列表中，但只能讓數字2和4）

在第2行值是E2 = 1，F2 = 2，G2 = 3和H2 = 4 並且它們總是相同的。

現在我想用VBA在B列中的值粘貼有下等於B列數的值偏移（-1,0）（紅色數字）

Answer 1

添加一些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