求问，我这代码错在哪里了，是跟着视频老师做的，可是老师正常运行我这里却怎么也...

张星星55 · 发表于 2021-5-20 13:35

本帖最后由张星星55 于 2021-5-20 14:54 编辑

Sub 筛选()
Dim sh As Worksheet, rng As Range, n As Integer
Dim arr()
For Each sh In Worksheets
If sh.Name <> "查询" And sh.Name <> "产量" Then
For Each rng In Intersect(sh.UsedRange, sh.[c:c])
If rng.Value Like "*梁*" Then
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = rng.Offset(0, -2).Resize(1, 11)
End If
Next
End If
Next sh
Sheet17.Range("a2").Resize(n, 11) = Application.Transpose(Application.Transpose(arr))

End Sub

张星星55 · 发表于 2021-5-20 14:23

运行的时候没有任何错误提示，就是得不到结果

abc123281 · 发表于 2021-5-20 14:32

附件附件

A1233515 · 发表于 2021-5-20 14:35

上传个附件看看

张星星55 · 发表于 2021-5-20 14:56

已经上传，感谢

A1233515 · 发表于 2021-5-20 15:08

这不是没问题么，都筛选出来了

张星星55 · 发表于 2021-5-20 15:15

A1233515 发表于 2021-5-20 15:08
这不是没问题么，都筛选出来了

可是我的筛选不出来，是因为我用的是WPS吗？我的筛选就是空白的，任何反应都没有，请问有没有什么可以调整一下的方法

A1233515 · 发表于 2021-5-20 15:18

张星星55 发表于 2021-5-20 15:15
可是我的筛选不出来，是因为我用的是WPS吗？我的筛选就是空白的，任何反应都没有，请问有没有什么可以调 ...

wps的宏我没用过，不过wps和office的确存在一些差异，具体在什么地方，我说不上来
你看看其他大佬们还有什么办法没有

张星星55 · 发表于 2021-5-20 15:20

A1233515 发表于 2021-5-20 15:18
wps的宏我没用过，不过wps和office的确存在一些差异，具体在什么地方，我说不上来
你看看其他大佬们还有 ...

好的，谢谢，那我等等看有没有其他大佬能回复我一下

张星星55 · 发表于 2021-5-20 16:09

abc123281 发表于 2021-5-20 14:32
附件附件

您好，请问能帮忙看下吗？这个代码我想在WPS中运行，谢谢

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