創建一個宏來分離數據

Question

你好我是新來的使用Excel，只有在設計宏的基本知識。我希望能夠設計一個宏，它可以根據公司唯一ID將不同的發票詳細信息分隔成單獨的表單。唯一的問題是需要將兩行或三行一起移動。我會如何去做這件事？

例如：

這裏是數據的樣本圖像。我想要做的就是複製在1和2行深化在ROW d

Answer 1

假設你的測試類似值的H和N「的值> 25」

Sub Macro1() 
    Dim dat As Variant 
    Dim rng As Range 
    Dim i As Long 
    Dim cntr As Integer 
    cntr = 1 

    Set rng = [A1:A5] 
    dat = rng ' dat is now array (1 to 5, 1 to 1) 
    For i = LBound(dat, 1) To UBound(dat, 1) 
     If rng(i, 1).Offset(0, 3).Value > 25 Then 
      Sheets("Sheet2").Range("A" & cntr).Value = Range("A" & i).Value 
      cntr = cntr + 1 
     End If 
    Next 
End Sub