怎样把大量的excel所有表单名称显示在一张表中?
查询工作表名称,可以用宏表4.0函数get.workbook函数来实现。但是该宏表函数不能直接在excel2003及以上版本使用,要在定义名称里使用方可。
1、点击公式——定义名称,在新建名称对话框,名称输入:提取工作表名,引用位置输入:=get.workbook(1),点击确定。
2、在A1单元格输入公式:=INDEX(名称,ROW()),向下复制公式,工作表名即被提取出来。
在该文件夹下新建一个表, 然后ALT+F11 打开VBE编辑器 粘贴下面代码, 然后运行此宏Sub CombineFiles1() Dim path As String Dim FileName As String Dim Wkb As Workbook Dim ThisWB As String Dim MyDir As String MyDir = ThisWorkbook.path & "\" ThisWB = ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = False path = MyDir FileName = Dir(path & "\*.xls", vbNormal) Do Until FileName = "" If FileName ThisWB Then Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName) S = ThisWorkbook.Sheets(1).[a65536].End(3).Row Wkb.Sheets("sum").UsedRange.Copy ThisWorkbook.Sheets(1).Cells(S + 1, 1) Wkb.Close False End If FileName = Dir() Loop Application.EnableEvents = True Application.ScreenUpdating = True Set Wkb = Nothing End Sub
On Error Resume NextFor j = 1 To 1000 '这个1000表示要登记的工作表的个数,你可以根据你要处理的工作表的数量,具体情况设置大一些.
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & j & ".xls" '这里的ActiveWorkbook.Path 表示你所操作的工作表与要打开的工作表都在同一个目录下面;另外这里的j是你要打开进行操作的工作表的名称,前提就是你把工作表的名称先修改成j,即从1到j进行重命名.这是关键
For i = 1 To ActiveWorkbook.Sheets.Count
Workbooks("新建 Microsoft Excel 工作表.xls").Sheets(1).Cells(j, i) = ActiveWorkbook.Sheets(i).Name'这里的"新建 Microsoft Excel 工作表.xls"中引号内的内容换成你要把所有数据放进去的工作表的名称.
Next i '下一页
ActiveWindow.Close
Next j '下一张工作表
将上面的程序粘贴到你所建的宏下面,但是一定要注意写面写的注释,1是得改工作表的名称,2是得将"新建Microsoft Excel 工作表"几个字符换成宏所在的工作表的名称.如果还不清楚,可以在我的空间里留言.
这个....好象还没有解决这个问题的办法
excel表格怎样往下拉大量快速复制
3. 复制+粘贴快捷键组合复制和粘贴,是excel表格应用最为频繁的一组快捷键,其实它不止在excel中,在几乎整个计算机应用领域,Ctrl+C和Ctrl+V都是。Excel表格要想往下拉大量快速复制,我们就需要先将我们需要复制的内容去给他点击一下,然后确定到这个单元格之后我们点击复制,然后这时候我们从要复制的第...
如何将一个有大量数据的excel工作簿按照数量要求分解成不同的sheet?
估计,你是不想用鼠标拖曳的方式来选中数据区——太麻烦 几分钟就搞定了 第一步:在名称框中输入A1:E50000,回车该区域被选中 复制该区域数据到新表中 后续步骤只需要在名称框中输入不同的区域即可:A50001:E100000、A100001:E150000等
excel表格怎么把大量数据竖排变成横排?
1、先看一下原数据几列几行,然后在其它空白处点出几行几列,例如,上表原数据是6R×2C(6列2行),所以,我们要转换成2R×6C(2列6行),选中A8:F9 2、点击“公式”→插入函数→找到“TRANSPOSE”,弹出对话框,在内输入A1:B6 3、按下快捷键Ctrl+Shift+Enter三键,所选的区域竖列就变成...
用excel如何将大量数据按范围分组
1、双击桌面上的wps2019个人免费版,新建一个Excel表格。2、在新建的Excel表格里输入自己需要的数据。3、在菜单栏上找到【数据】--【创建组】。4、想把生活类的下拉数据隐藏,可以选择隐藏但是不方便,可以创建组,把鼠标放在【生活类】这个单元格下面的所有明细,留下标题。5、选择创建组之后,选择【...
EXCEL如何处理超过65536行
若数据超过了1048576行,请使用access软件操作数据,因为EXCEL运行操作大量数据比较困难,且速度也不够快,使用access操作数据较为简便。Excel2007是2007版的Excel办公软件。借助 Excel Viewer,即使没有安装 Excel,也可以打开、查看和打印Excel工作簿。还可以将数据从Excel Viewer中复制到其他程序。不过,不能...
在有大量数据的EXCEL表中,如何根据一行中相同值,然后将对应列中的两个...
详见下图示例中红色箭头指向的位置。4、现在我们按下Ctrl+F替换,然后将汇总替换为空白。这样我们就把整个的汇总做好了。通过上面的学习,我们就可以按照每个人的姓名求得个人的业绩汇总,这在我们的日常工作中会经常用到。学会了这一个EXCEL的小技巧,可以让我们的工作做到事半功倍。
在EXCEL中,如何把大量的同列不同行的数据转成同行不同列的?
1、选中要转置的数据,右键菜单中选“复制”2、在要插入数据的位置点右键菜单中选“选择性粘贴”,出现如图所示的对话框。3、在对话框中“转置”前的勾选上,按确定。效果如图
Excel如何快速选定大量的单元格?
下面介绍在EXCEL中快速选定大量单元格的方法,希望本指南能帮到大家。01 新建工作表;比如,要选定A110:G130这一片单元格区域。02
php怎么导出大量数据的Excel
1. 在导出逻辑文件开头,一定要声明 set_time_limit(0) ,防止脚本超时;2. 每个文件生成后,适当的sleep一下,让程序休息一下下;3. 因为一次导出最后要将生成的多个Excel文件打包成一个压缩包,所以要删除掉生成的Excel文件,节省服务器存储空间;下面是我实际工作中,写的一个php导出大量数据到...
excel中 如何将大量的数据,自动均等的分成几个表!比如1到100 一张...
肯定是为了任务分解用了。要分表不难,可以使用宏来实现。占个坑,一会把代码发上来。按ALT+F11,双击左侧这个文件名,双击当前工作表名,然后在右侧粘贴以下代码。然后到工作表界面运行aa宏 Sub aa()Dim newbook As Workbook a = ThisWorkbook.Name b = ActiveSheet.Name h = InputBox("请输入行数...
谭怎颈得: 试试: Sub 导入工作表名() Application.ScreenUpdating = False '关闭屏幕刷新 Dim ss As Workbook wj = ActiveWorkbook.Name '当前工作簿名称 With Application.FileDialog(msoFileDialogOpen) '打开对话框对象.AllowMultiSelect = True '多...
伊宁市18955491484: 如何批量大量改无数EXCEL的内表名?不是文件名!?
谭怎颈得: Sub aa()For i = 1 To Sheets.Count Sheets(i).Name = Sheets(i).[a1].ValueNextEnd Sub
伊宁市18955491484: EXCEL中能实现把SHEET1、SHEET2~~~~~很多个表格里面的姓名全部提取出来到一个新的表格里面吗? - ?
谭怎颈得: 如果格式是固定的,如共有200个SHEET表单,姓名都在B2单元格,那么在第201个SHEET表单可以这么操作: 1、在A1单元格里输入SHEET1!B,在A2单元格里输入SHEET2!B 注:不要加=号 2、选中A1、A2单元格,往下拖动到A201,即实现SHEET1!B、SHEET2!B、SHEET3!B、SHEET4!B.....SHEET201!B 3、用查找替换方法先将B替换成B2 4、用查找替换方法先将SHEET替换成=SHEET 注:第3步与第4步顺序不要错了
伊宁市18955491484: 如何将N个excel文件中的N个表单合并到一个excel文件中,每个excel文件中的sheet表单的名字以及排序都是一 - ?
谭怎颈得: 列一个SUMIF的公式
伊宁市18955491484: excel工作表中批量插入工作表名称?
谭怎颈得: 对于N张工作表的情况,为快捷实现、减少工作量,必须通过VBA来实现 工具菜单---宏---VB编辑器(ALT+F11),在VB编辑器中,插入---模块,然后将以下代码复制到右边窗口中. Sub inset() ' 在当前每个工作表内插入第一列,而输入当...
伊宁市18955491484: 如何将十几个excel表中大量信息快速粘贴到一个表中 - ?
谭怎颈得: 如向下粘贴,进入表一的数据区按crtl a,ctrl c,到新表a1后ctrl v,ctrl ↓,光标自动移到粘贴区有数据的最下方.继续第二张表,同样的操作.继续….粘贴完毕为止.按ctrl a时光标必须停留在有数据的单元格.
伊宁市18955491484: 怎么把多个excel表格汇总到一个excel里面 - ?
谭怎颈得: 打开所有的要集合在一起的表格;右键点击下方工作表名(Sheet1)——移动或复制——工作簿:下方选择你想集合在那个工作簿名,确定就可以.
伊宁市18955491484: 我想把同一个excel表格中的多张表单的数据汇总到一张表格中?
谭怎颈得: =sum(表单名称1:表单名称N!单元格) 操作方法: 输入求和公式=sum()光标到括号中,鼠标点第1个表单标签,按住shift键点最后表单标签,点要求和的单元格,回车确定公式.
伊宁市18955491484: 在EXCEL 2010中如何为工作表命名 - ?
谭怎颈得: 1、首先,打开Excel2010软件并输入数据进行编辑. 2、其次,找到重命名功能.在第一列中,以单元格格式重命名. 3、选择要重命名的表单.这非常重要,否则表格会被误认. 4、鼠标点击重命名,表格中的字体会变黑,然后你可以直接编辑它. 5、快捷方式,你也可以选择右键单击表格在跳出额选项里进行重命名.
伊宁市18955491484: 如何快速删除同一张excel里的大量表单中的内容,只留表单名. - ?
谭怎颈得: 那干脆重新建个工作簿,用vba生成工作表名称吧!试试看如下代码吧!Sub aa() Dim i As Integer Application.DisplayAlerts = False For i = 1 To 100 Sheets.Add(, Sheets(Sheets.Count)).Name = "表" & i Next i For i = Sheets.Count To 1 Step -1 ...