excel - 创建一个宏来分离数据

Question

嗨，我是使用 excel 的新手，只有设计宏的基本知识。我希望能够设计一个宏，该宏可以根据公司唯一 ID 将不同的发票详细信息分隔到单独的工作表中。唯一的问题是需要一起移动两三行。我该怎么做呢？

例如：

这是数据的示例图片。我想要做的是复制第 1 行和第 2 行中的 H 和 N 加深 D 行中的值

Answer 1

假设您对“is value > 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