在Excel中复制过滤器

debugcn 发表于 Dev

JRS192

我正在尝试创建一个Excel文件，当将其粘贴到单独的选项卡上时，该文件实质上“整理”了我们客户的材料明细表之一。

客户物料清单的提供方式如下：http : //imgur.com/5EqNTNe

我已经使用了这个excel函数来仅提取相关数据并将其与同一行中的位置匹配-= IF（（LEN（D8）<2），0，（LOOKUP（2,1 /（C $ 1：C8 <>“”），C：C）））

这给我留下了这个：imgur（dot）com / 3z4MXfs

理想情况下，我希望能够运行一个宏，该宏在删除了空白行或零行的另一张纸上显示数据，例如：http ://imgur.com/VaLk1F1 （无需在另一张纸上更改原始BOM）标签）

有谁知道我该怎么做？

谢谢

布伦丹·古登（Brendan Gooden）

此代码会将您的公式结果复制到第二张工作表上，而忽略空白或“零”行

Sub CopyRows()
Dim RowNo, LastRow, NewRowNo As Long
LastRow = Sheets(1).Cells(Rows.Count, 4).End(xlUp).Row
RowNo = 1
NewRowNo = 1

Sheets(2).Cells.Clear

Do Until RowNo = LastRow

    If Sheets(1).Cells(RowNo, 10) = "" Or Sheets(1).Cells(RowNo, 10) = "0" Then

    RowNo = RowNo + 1

    Else: 

    Sheets(2).Cells(NewRowNo, 1) = Sheets(1).Cells(RowNo, 10)
    Sheets(2).Cells(NewRowNo, 2) = Sheets(1).Cells(RowNo, 11)

    RowNo = RowNo + 1
    NewRowNo = NewRowNo + 1

    End If
    Loop

End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。