创建一个宏来分离数据

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