关于模糊查找提取数据的问题

szzb · 发表于 2018-9-15 17:29

本帖最后由 szzb 于 2018-9-15 17:44 编辑

各位老师好：请教一个问题
在"查询"工作表单元格J1里输入字符"A"或"B"或其他字符,点击"查询"按钮,提取"数据"中"单据类型"为"出库单"的"客户名称"包含单元格J1里的字符的数据到"查询"工作表中。（如附件）

szzb · 发表于 2018-9-15 17:46

哪位老师帮忙看看，小白在此谢过！！！

lsc900707 · 发表于 2018-9-15 17:51

szzb 发表于 2018-9-15 17:46
哪位老师帮忙看看，小白在此谢过！！！

数组就可以解决的问题呀。

不知道为什么 · 发表于 2018-9-15 17:52

数组和函数 instr 应该可以

szzb · 发表于 2018-9-15 17:53

lsc900707 发表于 2018-9-15 17:51
数组就可以解决的问题呀。

谢谢回复，小白初接触VBA，想知道用VBA如何来解决。

lsc900707 · 发表于 2018-9-15 18:03

szzb 发表于 2018-9-15 17:46
哪位老师帮忙看看，小白在此谢过！！！

Sub gj23w98()
Dim brr(1 To 10000, 1 To 9)
arr = Sheet18.UsedRange
For i = 4 To UBound(arr)
If arr(i, 1) = "出库单" And InStr(arr(i, 5), [j1]) Then
m = m + 1
For j = 1 To 7
brr(m, j) = arr(i, j)
Next
brr(m, 8) = arr(i, 14)
brr(m, 9) = arr(i, 16)
End If
Next
If m Then
[a1].CurrentRegion.Offset(1).ClearContents
[a2].Resize(m, 9) = brr
Else
MsgBox "没有符合条件的数据，请查证！"
End If
End Sub

复制代码

lsc900707 · 发表于 2018-9-15 18:05

szzb 发表于 2018-9-15 17:53
谢谢回复，小白初接触VBA，想知道用VBA如何来解决。

代码需要审核，直接上附件以供测试：

mikezhan · 发表于 2018-9-15 18:50

提示: 作者被禁止或删除内容自动屏蔽

zhangcheng6688 · 发表于 2018-9-19 14:41

lsc900707 发表于 2018-9-15 18:03

赞赞赞！！！！

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

[求助] 关于模糊查找提取数据的问题

评分

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-15 18:50 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报