[已解决]如果A列等于锌锭,且B列不等于空,则在F列中填充不B列中的不重复项

TZJ133

请各位大师帮下我,         问题是: 如果A列等于锌锭,且B列不等于空,则在F列中填充不B列中的不重复项

最佳答案

月排行榜 / 总排行榜

grf1973

2017-2-27 09:58

1. Sub 锌锭填充()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Arr = [a1].CurrentRegion
   
4.     For i = 2 To UBound(Arr)
   
5.         x = Arr(i, 2)
   
6.         If Arr(i, 1) = "锌锭" And x <> "" Then d(x) = ""
   
7.     Next
   
8.     [f:f].ClearContents
   
9.     If d.Count > 1 Then [f2].Resize(d.Count, 1) = Application.Transpose(d.keys) '去重的B列
   
10. End Sub

复制代码

跳转到最佳答案楼层

TZJ133

请路过的大师们帮帮忙!

TZJ133

大师们能帮下我吗!

grf1973

1. Sub 锌锭填充()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Arr = [a1].CurrentRegion
   
4.     For i = 2 To UBound(Arr)
   
5.         x = Arr(i, 2)
   
6.         If Arr(i, 1) = "锌锭" And x <> "" Then d(x) = ""
   
7.     Next
   
8.     [f:f].ClearContents
   
9.     If d.Count > 1 Then [f2].Resize(d.Count, 1) = Application.Transpose(d.keys) '去重的B列
   
10. End Sub

复制代码

liyizhe000

附件已上传，请下载查看是否符合条件

TZJ133

非常感谢大师,都想请你们吃顿饭了,谢谢了!

TZJ133

grf1973 发表于 2017-2-27 09:58

非常非常感谢!下次遇到问题,我可不可以给你付点小费,总叫你帮忙都不好意思了,真的谢了!非常感谢!