怎么将excel中几十个工作表中的某一列提取出来单独做一个excel

已举报 回答 关注

怎么将excel中几十个工作表中的某一列提取出来单独做一个excel

  • 回答数

    7

  • 浏览数

    9,473

7个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
假设这些份文件在一个文件夹中,且若打开某一文件,数据就能看见——即不用点其他sheet。建一新Excel,也存到该文件夹。仅打开该新Excel,同时按Alt+F11进入宏界面,点菜单的插入,模块,粘贴如下代码:

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
dim i as integer
i = 1
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
Range("F1:F999").copy
thisworkbook.activate
cells(1,i).select
activesheet.paste
Windows(Match).Activate
ActiveWindow.Close
i = i +1
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

粗体的F表示你的某一列为F列,自己改。在此界面直接按F5运行此宏,完成。
取消 评论
假设你的数据在A B 两列
在C1输入=IF(A2=A1,"y","n")
C2输入=IF(A3=A2,"y",IF(A1=A2,"y","n")) 下拉到数据完的行数
然后筛选结果为N的就是没有重复过的数据
取消 评论
假设原数据在A列,B列,
提取到D列,E列:
D1:
=INDEX(A:A,SMALL(IF(COUNTIF($A$1:$A$20,$A$1:$A$20)=1,ROW($A$1:$A$20),65536),ROW(A1)),1)&""
数组公式,输入公式后,按 ctrl+shift+回车 结束
右拉
取消 评论
-。-# 你最好给我看图,不过在表格里可以直接拖动。你可以试试鼠标左键
取消 评论
C1=IF(COUNTIF(A:A,A1)>1,1,2),下拉复制
在第1行前插入1行,方便筛选
筛选C列的2
取消 评论
你在第三列后面都输入一个1,然后在第四列里面用sumif(),sumif()里面有俩逗号,也就是由3部分组成,第一部分选择第一列,第二部分选择第一列的第一个单元格“600001”,第三部分选择第三列(也就是那一列1),然后回车,筛选,第四列筛选出来是1 的就是你想要的。
取消 评论
中间取值函数就可以了,楼主表格内的内容还是非常规则的。
mid函数:在B1单元格输入=MID(A1,XX,YY),XX=从左边第几个字符开始取值,YY=取多少个数值,基于手机号码=11位,YY肯定=11,楼主只要确定XX数值就可以了,这个可以试的。B1取值成功后,其他就拖动B1往下拉公式就可以了。
取消 评论
ZOL问答 > 怎么将excel中几十个工作表中的某一列提取出来单独做一个excel

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

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

提示

确定要取消此次报名,退出该活动?