[已解决]用VBA做复杂的筛选。

mate88 · 发表于 2017-10-27 13:25

本帖最后由 mate88 于 2017-10-28 11:41 编辑

用VBA做复杂的筛选。

最佳答案

大灰狼1976

2017-10-28 10:55

这样行不行，你试一下。

Sub aaa()
Dim arr, brr, i&, j&, ar1, ar2, ar3, s1$, s2$, s3$, r&, n&
arr = [f1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
ar1 = [f1000].Resize(10, UBound(arr, 2))
ar2 = [f1011].Resize(10, UBound(arr, 2))
ar3 = [f1022].Resize(10, UBound(arr, 2))
For j = 1 To UBound(arr, 2)
r = 0
s1 = Join(Application.Transpose(Application.Index(ar1, , j)), "")
s2 = Join(Application.Transpose(Application.Index(ar2, , j)), "")
s3 = Join(Application.Transpose(Application.Index(ar3, , j)), "")
For i = 1 To UBound(arr)
If arr(i, j) = "" Then Exit For
If InStr(s1, Left(arr(i, j), 1)) = 0 And InStr(s2, Mid(arr(i, j), 2, 1)) = 0 And InStr(s3, Right(arr(i, j), 1)) = 0 Then
r = r + 1
If n < r Then n = r
brr(r, j) = arr(i, j)
End If
Next i
Next j
[f1035].CurrentRegion.ClearContents
[f1035].Resize(n, UBound(brr, 2)) = brr
End Sub

复制代码

大灰狼1976 · 发表于 2017-10-27 14:01

确认规则：
1、需剔除数据中重复数据的意义是什么，如F列第1位1、5、1，为什么有两个1；
2、F列举例中的003是否应该剔除，因为第3位里面有3

mate88 · 发表于 2017-10-27 14:26

大灰狼1976 发表于 2017-10-27 14:01
确认规则：
1、需剔除数据中重复数据的意义是什么，如F列第1位1、5、1，为什么有两个1；
2、F列举例中的0 ...

谢谢老师的回复。
1.给定的数据有时重复，如三位数的第1位给定了1，5，1.其实即是按1，5。因为不论哪个位置数据都是0-9. 这10个数。
2.F列的003要剔除的。因为第3位中给定了3.符合给定条件，要剔除掉。凡是含有给定条件位置的数字都剔除。余下的数据填入对应列的下面。

大灰狼1976 · 发表于 2017-10-27 15:14

Sub aaa()
Dim arr, brr, i&, j&, ar1, ar2, ar3, s1$, s2$, s3$, r&
arr = [f1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
ar1 = [f1000:w1009]: ar2 = [f1011:w1020]: ar3 = [f1022:w1031]
For j = 1 To UBound(arr, 2)
r = 0
s1 = Join(Application.Transpose(Application.Index(ar1, , j)), "")
s2 = Join(Application.Transpose(Application.Index(ar2, , j)), "")
s3 = Join(Application.Transpose(Application.Index(ar3, , j)), "")
For i = 1 To UBound(arr)
If arr(i, j) = "" Then Exit For
If InStr(s1, Left(arr(i, j), 1)) = 0 And InStr(s2, Mid(arr(i, j), 2, 1)) = 0 And InStr(s3, Right(arr(i, j), 1)) = 0 Then
r = r + 1
brr(r, j) = arr(i, j)
End If
Next i
Next j
[f1035].Resize(r, UBound(brr, 2)) = brr
End Sub

复制代码

mate88 · 发表于 2017-10-27 17:26

本帖最后由 mate88 于 2017-10-27 18:49 编辑

大灰狼1976 发表于 2017-10-27 15:14

你好老师，2个问题，麻烦老师看下。

大灰狼1976 · 发表于 2017-10-28 09:03

问题回答如下：
1、源数据区域是按F1单元格的当前区域来确定的，如果前面还有数据的话，最前面的列最好是确定的，数据向后添加没有问题，源数据区不要出现空列。
2、在满足第1项条件后，自适应列数增加没有问题，但所在行不要变。
3、可以实现，加个判断就行

mate88 · 发表于 2017-10-28 09:25

大灰狼1976 发表于 2017-10-28 09:03
问题回答如下：
1、源数据区域是按F1单元格的当前区域来确定的，如果前面还有数据的话，最前面的列最好是 ...

早上好老师!
1.操作的数据是按F列开始的，只有时候F列前面的列会有内容。若有代码也能正常运行就更好了。
2.给定的蓝色数据区域，行是不变的，只是列数向右会有增减。
谢谢老师！

mate88 · 发表于 2017-10-28 09:42

大灰狼1976 发表于 2017-10-28 09:03
问题回答如下：
1、源数据区域是按F1单元格的当前区域来确定的，如果前面还有数据的话，最前面的列最好是 ...

第1点如不好达到，也可不用。麻烦老师完善下代码非常谢谢。

大灰狼1976 · 发表于 2017-10-28 09:51

mate88 发表于 2017-10-28 09:25
早上好老师!
1.操作的数据是按F列开始的，只有时候F列前面的列会有内容。若有代码也能正常运行就更好了 ...

源数据起始列为F列，了解，但是要确定区域比较麻烦，最好前面不要有数据，必须要有的话，也跟F列之间保持一个空列。
其他应该没有太大问题，我等下有时间再处理一下。

mate88 · 发表于 2017-10-28 09:54

大灰狼1976 发表于 2017-10-28 09:51
源数据起始列为F列，了解，但是要确定区域比较麻烦，最好前面不要有数据，必须要有的话，也跟F列之间保持 ...

好的好的，谢谢老师！

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