多条件提取不重复值

hc0412 · 发表于 2016-9-23 10:33

求老师解决多条件提取不重复值

小花鹿 · 发表于 2016-9-23 10:41

只有一个是符合条件的
用两层循环，先判断编码位数，再把1到6月连起来看是否为空

hc0412 · 发表于 2016-9-23 11:10

对vba不熟，简单代码勉强看懂，自己写不出来，还请老师给写一下，实际数据几百行，符合条件的有20多
个，这只是举例

屌爆了z · 发表于 2016-9-23 11:45

本帖最后由屌爆了z 于 2016-9-23 12:46 编辑

select distinct 省份 from [数据源$] where len(编码)=3 and [1月]&[2月]&[3月]&[4月]&[5月]&[6月] is not null

wtb8152 · 发表于 2016-9-23 17:21

是这样吗？

hc0412 · 发表于 2016-9-23 23:42

wtb8152 发表于 2016-9-23 17:21
是这样吗？

感谢老师的解答，问题解决

wtb8152 · 发表于 2016-9-24 10:41

本帖最后由 wtb8152 于 2016-9-24 10:53 编辑

hc0412 发表于 2016-9-23 23:42
感谢老师的解答，问题解决

如果你的数据行数够多，请修改以下红色的数据，以适应完整提取。（修改成与名称相当的数）
Sub 条件提取()
Dim ar, ay, br(1 To 5, 1 To 1), i, t
ar = Range("a2:k" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(ar)
      k = (ar(i, 6) & ar(i, 7) & ar(i, 8) & ar(i, 9) & ar(i, 10) & ar(i, 11))
      If Len(ar(i, 1)) = 3 And k <> "" Then
         n = n + 1
         br(n, 1) = ar(i, 2)
      End If
Next
Sheets("统计表").Activate
Sheets("统计表").[b2:b100].Clear
Sheets("统计表").[b2].Resize(n, 1) = br
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 多条件提取不重复值

评分