中关村在线

首页 排行 新品 问答 下载 论坛 手机 笔记本 数码相机 主板 显卡 平板电脑 更多

EXCEL肿么提取另一个表格中的数据

举报

怎么根据表二中的数据条件直接提取表一中的含有该条件的后面一串数据出来
或者查找到对应数据后标识上颜色怎么
讨论回答 (4)
dsfjwrikgdxn
gaogangqiang
qxf2010
我也不会只提取依病控兵载第二行的数据,要是每个表只有2行,我的方法是合并所有文件到一个SHEET中,再删除奇数行,合并方法如下:

合并同一个目录下的多个表到一个SHEET
新建一个工作表,命名后保存到和与合并的多个个文件同一个文件文件夹,摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ***.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = ***.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & ***.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub追问 : 其实第一行的内容是一样的,如果可以全部提取过去之后在删除相同的也就容易了。
追答 : 呵呵
追问 : 你好,辛苦你的回答。不过还是不会弄那个代码部分,可否麻烦你把这个功能设置到一个excel里呢?
fuck174
展开查看全部 4 条讨论
精品应用推荐
新浪微博 新浪微博 天气通 天气通 淘宝特价版 淘宝特价版 UC浏览器 UC浏览器
相关问题

如何实现全国各地同事共用一个excel表格?

2983 浏览 10 回答

主要使用excel处理数据的话,财务人员学习VBA和python哪个比较好?

4549 浏览 10 回答

每天面对大量excel表,好麻烦,效率很低,有什么推荐的工具吗?

3325 浏览 9 回答

word excel 一打开文件就提示另存为。。。怎麽办???着急

29.1万 浏览 8 回答

EXCEL里面数据太多了,打开好慢,怎么办?

4684 浏览 8 回答

扩展阅读

定格你的每一个精彩瞬间 vivo S20 Pro搭载黄金长焦人像

评论 7

定格你的每一个精彩瞬间 vivo S20 Pro搭载黄金长焦人像

为什么买相机要看画幅 一文读懂传感器画幅问题

评论 4

为什么买相机要看画幅 一文读懂传感器画幅问题

致态灵·先锋版移动固态硬盘实测:这才是苹果M4 Mac mini的好搭子

评论 0

致态灵·先锋版移动固态硬盘实测:这才是苹果M4 Mac mini的好搭子

性能猛兽,AI智能新体验:磐镭HO5迷你主机评测

评论 8

性能猛兽,AI智能新体验:磐镭HO5迷你主机评测

性能与针脚数量成正比,网络CPU传言真的可信吗?

评论 4

性能与针脚数量成正比,网络CPU传言真的可信吗?
热门问题

免费韩国漫画在线观看的地址有么?

8053 浏览 5 回答

免费韩国漫画在线观看的地址有么?

一公里大约多少步数 一公里有多少步

7511 浏览 8 回答

一公里大约多少步数 一公里有多少步

求推荐一款笔记本。工科研究生用,便于随身携带。平时做科研,处理数据,查阅文献。不玩网游和单机,至多玩棋牌游戏和影音。喜欢摄影,需要修图。附加:纠结要不要带数字键盘区。预算最多8000。尽量便宜些。

1.2万 浏览 6 回答

求推荐一款笔记本。工科研究生用,便于随身携带。平时做科研,处理数据,查阅文献。不玩网游和单机,至多玩棋牌游戏和影音。喜欢摄影,需要修图。附加:纠结要不要带数字键盘区。预算最多8000。尽量便宜些。

荣耀Magic7 Pro

9805 浏览 1 回答

荣耀Magic7 Pro

有一样东西,比雪还白,比黑板还黑,男的一天用三次,女的一辈子用一次,是什么?

6438 浏览 6 回答

有一样东西,比雪还白,比黑板还黑,男的一天用三次,女的一辈子用一次,是什么?

字节跳动旗下12款产品

6813 浏览 6 回答

字节跳动旗下12款产品

手机在哪里登录192.168.1.1设定页面?

9453 浏览 7 回答

手机在哪里登录192.168.1.1设定页面?

苹果手机怎么打开apk文件

2万 浏览 6 回答

苹果手机怎么打开apk文件

肿么找回QQ浏览器历史记录

7302 浏览 6 回答

肿么找回QQ浏览器历史记录

抖音礼物价格明细是怎样的_抖音礼物分别价钱

9582 浏览 6 回答

抖音礼物价格明细是怎样的_抖音礼物分别价钱
最新问答

QT 肿么调出cmd窗口

9929 浏览 5 回答

QT 肿么调出cmd窗口

dos下运行scardsvr reinstall失败,怎么解决

2635 浏览 5 回答

dos下运行scardsvr reinstall失败,怎么解决

喵喵牌玩法详解,如何快速提高得分策略?

7978 浏览 7 回答

喵喵牌玩法详解,如何快速提高得分策略?

vivo手机锁屏密码和密保忘了可想要保存手机内的数据怎么处理?

4612 浏览 4 回答

vivo手机锁屏密码和密保忘了可想要保存手机内的数据怎么处理?

我买了一个海康硬盘录像机,现在内网可以访问,但是从外网还是访问不了。

1.4万 浏览 6 回答

我买了一个海康硬盘录像机,现在内网可以访问,但是从外网还是访问不了。
举报
举报成功

经过核实后将会做出处理,感谢您为社区和谐做出贡献。

请选择删除原因
删除成功
确定推荐该回答?
推荐成功

更多频道

频道导航
辅助工具