查看: 6540|回复: 16
如何提取整个工作簿里所有符合条件的数据所在的整行，提取到新表中
阅读权限10
在线时间 小时
本帖最后由 sakura2014 于
21:17 编辑
如提取文件中专业为&&不限 的所有行&&到新的工作表中
(284.53 KB, 下载次数: 151)
21:16 上传
点击文件名下载附件
阅读权限90
在线时间 小时
Sub 提取数据()
On Error Resume Next
Dim wsh As Worksheet, i As Integer, brr(), j As Integer, arr
For Each wsh In Worksheets
If wsh.Name = &提取数据& Then GoTo 100
j = wsh.Range(&a65536&).End(xlUp).Row
arr = wsh.Range(&a5:n& & j)
k = k + UBound(arr)
ReDim Preserve brr(1 To 14, 1 To k)
For i = 1 To UBound(arr)
If arr(i, 13) = &不限& Then
n = n + 1
brr(1, n) = arr(i, 1)
brr(2, n) = arr(i, 2)
brr(3, n) = arr(i, 3)
brr(4, n) = arr(i, 4)
brr(5, n) = arr(i, 5)
brr(6, n) = arr(i, 6)
brr(7, n) = arr(i, 7)
brr(8, n) = arr(i, 8)
brr(9, n) = arr(i, 9)
brr(10, n) = arr(i, 10)
brr(11, n) = arr(i, 11)
brr(12, n) = arr(i, 12)
brr(13, n) = arr(i, 13)
brr(14, n) = arr(i, 14)
End If
Next
100:
Next
Sheets(&提取数据&).Range(&a2&).Resize(n, 14) = Application.WorksheetFunction.Transpose(brr)
End Sub复制代码
21:33 上传
点击文件名下载附件
217.7 KB, 下载次数: 374
阅读权限150
在线时间 小时
【数据】【筛选】 专业所在列筛选条件为“不限”，选择数据区域 按F5 定位&&定位条件可见单元格&&复制到指定位置 粘贴即可
阅读权限10
在线时间 小时
xutianlin 发表于
你真热心肠，万分感谢 ，请问如果是专业 含有“法律”的关键字如何实现呢
阅读权限90
在线时间 小时
Sub 提取数据()
On Error Resume Next
Dim wsh As Worksheet, i As Integer, brr(), j As Integer, arr
For Each wsh In Worksheets
If wsh.Name = &提取数据& Then GoTo 100
j = wsh.Range(&a65536&).End(xlUp).Row
arr = wsh.Range(&a5:n& & j)
k = k + UBound(arr)
ReDim Preserve brr(1 To 14, 1 To k)
For i = 1 To UBound(arr)
If arr(i, 13) Like &*法律*& Then'这里改一下就好了
n = n + 1
brr(1, n) = arr(i, 1)
brr(2, n) = arr(i, 2)
brr(3, n) = arr(i, 3)
brr(4, n) = arr(i, 4)
brr(5, n) = arr(i, 5)
brr(6, n) = arr(i, 6)
brr(7, n) = arr(i, 7)
brr(8, n) = arr(i, 8)
brr(9, n) = arr(i, 9)
brr(10, n) = arr(i, 10)
brr(11, n) = arr(i, 11)
brr(12, n) = arr(i, 12)
brr(13, n) = arr(i, 13)
brr(14, n) = arr(i, 14)
End If
Next
100:
Next
Sheets(&提取数据&).Range(&a2&).Resize(n, 14) = Application.WorksheetFunction.Transpose(brr)
End Sub复制代码
阅读权限10
在线时间 小时
xutianlin 发表于
那如果判别语句含有多个条件如何呢 ，学历为研究生，专业为不限呢
阅读权限90
在线时间 小时
Sub 提取数据()
On Error Resume Next
Dim wsh As Worksheet, i As Integer, brr(), j As Integer, arr
For Each wsh In Worksheets
If wsh.Name = &提取数据& Then GoTo 100
j = wsh.Range(&a65536&).End(xlUp).Row
arr = wsh.Range(&a5:n& & j)
k = k + UBound(arr)
ReDim Preserve brr(1 To 14, 1 To k)
For i = 1 To UBound(arr)
If arr(i, 13) = &不限& And arr(i, 12) = &研究生& Then
n = n + 1
brr(1, n) = arr(i, 1)
brr(2, n) = arr(i, 2)
brr(3, n) = arr(i, 3)
brr(4, n) = arr(i, 4)
brr(5, n) = arr(i, 5)
brr(6, n) = arr(i, 6)
brr(7, n) = arr(i, 7)
brr(8, n) = arr(i, 8)
brr(9, n) = arr(i, 9)
brr(10, n) = arr(i, 10)
brr(11, n) = arr(i, 11)
brr(12, n) = arr(i, 12)
brr(13, n) = arr(i, 13)
brr(14, n) = arr(i, 14)
End If
Next
100:
Next
Sheets(&提取数据&).Range(&a2&).Resize(n, 14) = Application.WorksheetFunction.Transpose(brr)
End Sub复制代码
阅读权限20
在线时间 小时
& & & & & & & &
sakura2014 发表于
那如果判别语句含有多个条件如何呢 ，学历为研究生，专业为不限呢
多条件判断用and
阅读权限10
在线时间 小时
您真是大神，但这样提取的表格格式很乱，能不能调整 已提取表格的格式 同原表格一致
阅读权限90
在线时间 小时
no...................................................
最新热点 /1
只要3分钟，完成微软安卓版Office体验问卷，微软官方定制好礼就送到你面前：证书、卫衣、电脑内胆包等,好礼多，中奖几率高，极具纪念意义!
嘘，一般人，我不告诉他。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 12831|回复: 10
如何快速把满足一个条件的多条数据筛选出来自动填充到另外一张表格
阅读权限20
在线时间 小时
请教高手帮忙，如何快速把满足一个条件的多条数据筛选出来自动填充到另外一张表格，具体见附件。希望哪位高手帮忙啊！
13:47 上传
点击文件名下载附件
3.84 KB, 下载次数: 423
阅读权限20
在线时间 小时
可以选择高级筛选
阅读权限95
在线时间 小时
......................................
14:13 上传
点击文件名下载附件
4.75 KB, 下载次数: 994
阅读权限10
在线时间 小时
=INDEX(Sheet1!F:F,SMALL(IF(Sheet1!$D$2:$D$500=$C$2,ROW($4:$500),4^8),ROW(A3)))&&里的“4^8”是什么意思？
阅读权限95
在线时间 小时
& & & & & & & &
4^8=65536，即03版最后一行的行号。
阅读权限10
在线时间 小时
找到了& &哈哈
阅读权限10
在线时间 小时
给力，学习了，那不知道07 和10版的需要是几^几来代表呀
阅读权限20
在线时间 小时
运行太慢&&有没有快点的办法
阅读权限10
在线时间 小时
运用三楼提供&&如何自动填充满足条件的数据.rar&&范例想加数据，把公式向下复制，结果 数值#value 是什么原因，找不出来
阅读权限20
在线时间 小时
mschenshan 发表于
......................................
感谢分享~正好我也有这样的需求~
最新热点 /1
只要3分钟，完成微软安卓版Office体验问卷，微软官方定制好礼就送到你面前：证书、卫衣、电脑内胆包等,好礼多，中奖几率高，极具纪念意义!
嘘，一般人，我不告诉他。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 2726|回复: 3
怎么对多个Excel表格中某个数据进行自动筛选，然后复制到新的Excel中
本人有500多个Excel文件，每个文件名称不一样，并且每个文件都有大量的数据，本人想做
把这所有的Excel文件中的某个数据自动筛选，然后复制到新的Excel中；
数据位于每个表格的第三列，筛选条件是“CDH13”，请求大神帮帮忙啊
建议上传2个要汇总文件，和1个你手工汇总好的结果文件。
提示: 作者被禁止或删除 内容自动屏蔽
|||Excel精英培训
Powered by}