|
本帖最后由 nangongyixun 于 2014-10-13 10:09 编辑
如上图
在明细表中输入所有的内容
要求后面标准件、零部件和借用件都能自动筛选生成
跪求高手指点
具体表格见附件
注:1、标准件就是图号为GB/T开头的,零部件就是图号开头与表格C2里的编码一样的,借用件就是图号开头GB/T和PE005S以外的;
2、标准件、零部件和借用件里的表格和上图明细表里的一模一样,只是按类区分开而已。
- Sub tt()
- Dim Rng1 As Range, Rng2 As Range, Rng3 As Range
- Dim Rng As Range
- r = [a65536].End(3).Row
- For i = 5 To r
- th = Trim(Cells(i, 2))
- Set Rng = Cells(i, 1).Resize(1, 7)
- If th Like "GB*" Then
- If Rng1 Is Nothing Then Set Rng1 = Rng Else Set Rng1 = Union(Rng1, Rng)
- ElseIf th = Trim([a2]) Then
- If Rng2 Is Nothing Then Set Rng2 = Rng Else Set Rng2 = Union(Rng2, Rng)
- ElseIf Len(th) > 0 Then
- If Rng3 Is Nothing Then Set Rng3 = Rng Else Set Rng3 = Union(Rng3, Rng)
- End If
- Next
- Rng1.Copy Sheet2.[a5]
- Rng2.Copy Sheet3.[a5]
- Rng3.Copy Sheet4.[a5]
- End Sub
复制代码
|
|