创建一个宏来分隔数据

Question

HI我不熟悉使用excel，只具备设计宏的基本知识。我希望能够设计一个宏，可以根据公司的唯一ID将不同的发票明细分成单独的表格。唯一的问题是需要将两行或三行一起移动。我该怎么做呢？

例如：

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

Answer 1

假设你测试的是'是值＆gt; 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