将表格中有需要的信息提取出来，到另一张表中

ggmmlol

1. Sub 宏1()
   
2.     Sheet2.Range("L1:L2") = [{"到货数量";">0"}]
   
3.     Sheet2.Range("A1").CurrentRegion.Offset(1).ClearContents
   
4.     Sheet1.Range("B1:K1").Resize(Sheet1.Range("B1").CurrentRegion.Rows.Count).AdvancedFilter xlFilterCopy, Sheet2.Range("L1:L2"), Sheet2.Range("B1:I1"), False
   
5.     Sheet2.Range("L1:L2").Clear
   
6. End Sub

复制代码

vic9

Sub gg()
Dim i, arr, brr(), m, k
Sheets("sheet2").Range("b2:i100").ClearContents
arr = Sheets("sheet1").Range("b2:k9")
    For i = 1 To UBound(arr)
        If arr(i, 1) <> "" Then
            k = k + 1
            ReDim Preserve brr(1 To 8, 1 To k)
            brr(1, k) = arr(i, 3)
            brr(2, k) = arr(i, 4)
            brr(3, k) = arr(i, 5)
            brr(4, k) = arr(i, 1)
            brr(5, k) = arr(i, 6)
            brr(6, k) = arr(i, 7)
            brr(7, k) = arr(i, 9)
            brr(8, k) = arr(i, 10)
        End If
    Next
    Sheets("sheet2").[b2].Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr)
End Sub

blackttea1

做个记号，学习下