如何用vba实现鼠标选定区域的高级筛选,并把筛选出来的内容换成其他数据

1005423860 · 发表于 2019-10-12 17:04

本帖最后由 1005423860 于 2019-10-12 17:18 编辑

如附件所示，求大神指导。。

opel-wong · 发表于 2019-10-12 17:24

不难，
把选择区域赋值给数组arr，把A：B赋值给数组brr
取消筛选，然后重新根据数组的值进行筛选与替换。

opel-wong · 发表于 2019-10-12 17:53

本帖最后由 opel-wong 于 2019-10-12 17:55 编辑

这会刚好有空，顺手写了一个，
请测试：

Sub 宏1()
Dim brr, mRow As Long, Rng As Range
With Sheet1
brr = Selection
If (UBound(brr) - LBound(brr) + 1) * (UBound(brr, 2) - LBound(brr, 2) + 1) <> 6 Then MsgBox "错误选择，请重新操作！", 16 + 0, "提醒": Exit Sub
mRow = .Cells(.Rows.Count, 1).End(3).Row
Set Rng = .Range("A1:B" & mRow)
.AutoFilterMode = False
If .FilterMode = True Then .ShowAllData
Rng.AutoFilter Field:=1, Criteria1:=brr(2, 1) ' 订单
Rng.AutoFilter Field:=2, Criteria1:=brr(2, 2) ' 物料
.Range("b2:b" & mRow).Replace "*", brr(2, 3) ' 替换物料
End With
End Sub

复制代码

1005423860 · 发表于 2019-10-13 10:12

opel-wong 发表于 2019-10-12 17:53
这会刚好有空，顺手写了一个，
请测试：

大神，我刚测试了下，但是如果第一列和第二列没有匹配的订单和物料，及高级筛选条件不成立（如132345订单号没有对应的we物料，则代码会将整列替换成AAA，有什么办法解决这个问题吗？）

opel-wong · 发表于 2019-10-14 07:50

1005423860 发表于 2019-10-13 10:12
大神，我刚测试了下，但是如果第一列和第二列没有匹配的订单和物料，及高级筛选条件不成立（如132345订 ...

当然有，筛选之前先判断一下，A列，B列是否存在筛选的条件，True，再进行筛选。
这个你应该能修改吧，

1005423860 · 发表于 2019-10-14 09:37

opel-wong 发表于 2019-10-14 07:50
当然有，筛选之前先判断一下，A列，B列是否存在筛选的条件，True，再进行筛选。
这个你应该能修改吧，

OKKK 没问题了谢啦

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

[求助] 如何用vba实现鼠标选定区域的高级筛选,并把筛选出来的内容换成其他数据