关于提取的问题（用VB或函数均可），大侠们，走过路过不要错过

nihao0o

关于提取的问题（用VB或函数均可），大侠们，走过路过不要错过

swl4561255

1. Private Sub CommandButton1_Click()
   
2. Application.DisplayAlerts = False
   
3. Dim ar As Long
   
4. ar = [B65536].End(3).Row
   
5. arr = Range("B4:C" & ar)
   
6. Set d = CreateObject("scripting.dictionary")
   
7. For i = 1 To UBound(arr)
   
8. If arr(i, 2) = "已完成" Then
   
9. d(arr(i, 1) & "," & arr(i, 2)) = ""
   
10. End If
    
11. Next
    
12. Sheets("提取").[B2].Resize(d.Count) = Application.Transpose(d.keys)
    
13. Sheets("提取").[B2].Resize(d.Count).TextToColumns comma:=True
    
14. Application.DisplayAlerts = True
    
15. End Sub

复制代码

sscylh

用自动筛选,或者数据透视表,或者sql都可以,不要动不动就劳vba大驾

AVEL

这种用数据透视表应该算是最方便的办法，楼主应该学习一下的。

nihao0o

sscylh 发表于 2012-4-15 16:31
用自动筛选,或者数据透视表,或者sql都可以,不要动不动就劳vba大驾

能否指点迷津。。。。。传上附件。。谢谢

nihao0o

AVEL 发表于 2012-4-15 17:37
这种用数据透视表应该算是最方便的办法，楼主应该学习一下的。

能否指点迷津。。。。。传上附件。。谢谢

nihao0o

sscylh 发表于 2012-4-15 16:31
用自动筛选,或者数据透视表,或者sql都可以,不要动不动就劳vba大驾

有正解吗?谢谢。。。。

sscylh

这样子行吗      

sscylh

用sql的话就是这样

sscylh

忘了附上sql代码了select * from [母本$] where 完成情况 is not null