提取包含自己设定关键字的整行数据

咱村 · 发表于 2023-4-2 07:58

本帖最后由咱村于 2023-4-2 08:02 编辑

还望大哥帮忙

提取工作簿“数据源”-C列包含本表A列字段的整行数据到本工作簿的“目标工作表”

提取字段A列单元格从A2往下是手工输入区域

补充：文件夹下数据源工作簿会有多个不用排重全部提取到目标工作表中就行

需求.jpg

提取数据.rar (33.09 KB, 下载次数: 29)

mmwwdd · 发表于 2023-4-2 08:59

fzxba · 发表于 2023-4-2 09:17

提取数据.rar (45.89 KB, 下载次数: 32)

咱村 · 发表于 2023-4-2 09:41

mmwwdd 发表于 2023-4-2 08:59

谢谢您我写出来试试哈

咱村 · 发表于 2023-4-5 10:33

还有个问题就是提取出来的顺序会乱如何让提取出来的数据按照关键字的顺序排序啊十分感谢再次帮忙

全党 · 发表于 2023-4-5 16:09

需要你把数据源表和提取字段表放到一个工作簿
Sub 提取()
Dim crr(1 To 1)
arr = Sheets("数据源").Range("a1").CurrentRegion
rn = Sheets("提取字段").Cells(Rows.Count, "a").End(xlUp).Row
brr = Sheets("提取字段").Range("a2:a" & rn)
For i = 2 To UBound(arr)
      For j = 1 To UBound(brr)
      If InStr(arr(i, 3), brr(i, 1)) Then
      n = n + 1
      ReDim crr(1 To n)
      crr(n) = WorksheetFunction.Index(arr, i)
      End If
      Next j
Next i
Sheets("目标工作表").Range("a2").Resize(n, 6) = crr
End Sub

全党 · 发表于 2023-4-5 16:10

咱村发表于 2023-4-5 10:33
还有个问题就是提取出来的顺序会乱如何让提取出来的数据按照关键字的顺序排序啊十分感谢再次帮忙

那就把关键字数组放到外层循环。

jjmysjg · 发表于 2023-4-5 20:28

数据源文件无法打开

jjmysjg · 发表于 2023-4-5 20:46

数据源文件无法打开，看不到

wanao2008 · 发表于 2023-4-5 21:27

jjmysjg 发表于 2023-4-5 20:46
数据源文件无法打开，看不到

改为：数据源.xls

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

[求助] 提取包含自己设定关键字的整行数据

评分

评分

评分

评分