VBA 中“*”转义符连接数组的写法

bulesyl · 发表于 2024-4-9 21:10

求教高手，在表格中筛选，如“*燃气*”字样，如何将*转义，并且“燃气”是一个变量值，求教写法。

Sub t()

arr = Sheet1.Range("d3:d5")
For i = 1 To UBound(arr)
Sheet1.AutoFilterMode = False
Sheet1.Range("b1:d16").AutoFilter 1, "=*arr(i, 1)*" '筛选条件中将*进行转义并连接arr动态数值
Next
End Sub

baofa2 · 发表于 2024-4-9 21:17

～＊

bulesyl · 发表于 2024-4-9 21:18

baofa2 发表于 2024-4-9 21:17
～＊

转义符是这么写，但是连接起变量来怎么写呢？

baofa2 · 发表于 2024-4-9 21:21

＆＂～＊＂试试，猜的。

bulesyl · 发表于 2024-4-9 21:29

Sheet1.Range("b1:d16").AutoFilter 1, "=*~*arr(i, 1)~**"
显示：~*arr(i, 1)~*

Sheet1.Range("b1:d16").AutoFilter 1, "=*~* & arr(i, 1) &~**"
显示~* & arr(i, 1) &~*

Sheet1.Range("b1:d16").AutoFilter 1, "=* "~*" & arr(i, 1) &"~*"*" ---提示错误写法

Sheet1.Range("b1:d16").AutoFilter 1, "=* & "~*" & arr(i, 1) &"~*" &*" ---提示错误写法

cdcn · 发表于 2024-4-9 21:55

Sub t()
arr = Sheet1.Range("d3:d5")
For i = 1 To UBound(arr)
Sheet1.AutoFilterMode = False
Sheet1.Range("b1:d16").AutoFilter 1, Criteria1:="=*" & arr(i, 1) & "*" '筛选条件中将*进行转义并连接arr动态数值
Next
End Sub

复制代码

bulesyl · 发表于 2024-4-9 21:59

cdcn 发表于 2024-4-9 21:55

感谢回复，这样的写法，还不是我想要的“精确结果”，因为在筛选燃气时，会将字段中包含燃气的全部都筛选出来，我需要筛选的是“*燃气*”字符串的燃气，而不是包含燃气的

bulesyl · 发表于 2024-4-9 22:02

Sub t()
arr = Sheet1.Range("d3:d5")
For i = 1 To UBound(arr)
Sheet1.AutoFilterMode = False
Sheet1.Range("b1:d16").AutoFilter 1, Criteria1:="=*" & "~*" & arr(i, 1) & "~*" & "*" '筛选条件中将*进行转义并连接arr动态数值
Next
End Sub

cdcn · 发表于 2024-4-9 22:10

bulesyl 发表于 2024-4-9 21:59
感谢回复，这样的写法，还不是我想要的“精确结果”，因为在筛选燃气时，会将字段中包含燃气的全部都筛选 ...

我有点浆糊了

excel玉米 · 发表于 2024-4-9 22:33

选11行和13行出来？

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

[求助] VBA 中“*”转义符连接数组的写法