Excel输入的技巧.pdf
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《Excel输入的技巧.pdf》由会员分享,可在线阅读,更多相关《Excel输入的技巧.pdf(7页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、常用的Excel命令l、表格、表领的拼接1.1、拼接多个格式相同表的VBA函数(打开宏,新建校块,输入以下代码)Sub合并当前工作部下的所有工作表()Application.ScreenUpdating=false For j=I To Sheets.Count If Sheets(j).Name ActiveSheet.Name Then k=665536.End(xlUp).Row X=b65536J.End(xlUp).Row+I Range(A65536).End(x lUp).Row Sheets(j).UsedRange.Copy Cells(X,1)End If Next Ran
2、ge(Al).Select Application.ScreenUpdating=True MsgBox“当前工作悔下的全部工作表已经合并完毕!”,vbInformation,”提示“End Sub 1.2、“每个工作菏里面只有一个工作表的工作薄间工作表合并,(多个工作部中的一个表合并为一个工作悔中的多个表)。使用方法:l、新建一个工作溥,将其命名为你合并后的名字。2、打开此工作博。3、在其下任一个工作表标签-L点击右键,选择“查看代码”。4、在打开的VBA编辑窗LI中粘贴以下代码:Sub工作沔间工作表合并()Dim FileOpen 趴mX As Integer Appl ication.S
3、creenUpdating=False 阳leOpen=Application.GetOpen臼lename(FileFil ter:=Microsoft Excel文件(*.xls),*xls,MultiSelect:=True,Title:“合并工作薄)X=l llhile X=UBound(FileOpen)Workbooks.Open Filename:=Fi leOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(Thisllorkbook.Sheets.Count)X=X+l end ExitHandler:Application.Scr
4、eenUpdating=True Exit Sub errhadler:,I1sg8ox Err.Description End Sub 5、关闭VBA编辑窗口。6、在excel中,工具宏宏选“工作簿间工作表合并”,然后”执行”。7、在打开的对话窗口中,选择你要合并的300个工作菏。qq:744678750豆戈 Email:.1.3、将多个EXCEL丁仵表合并成一个丁仵表(多个丁仵诵的多个表合并为一个T仵簿的一个表,不耍求衣的格式致)l、新建一个工作表,命名后保存到和与合并的100个文件同一个文件文件夹;2、搅alt+fl l打开VBA编辑器,双击工程资源管珅器里面的sheet,插入模块,然后
5、在右侧的代码区粘贴如下代码。3、运行。Sub合并当前目录下所有工作饼的全部工作表()Dim MyPath,MyName,AllbNarne Dim IIbAs Workbook,IIbN As String Dim G As Long Dim N urn As Long Dim BOX As String Application.ScreenUpdating=False MyPath=ActiveWorkbook.Path My Name=Dir(My Path&n&*.xls)AWbN印ne=ActiveVorkbook.Name Num=0 Do While MyN句ne”“Tf MyNa
6、me AWbName Then Set IIb=Workbooks.O pen(MyPa th&n&MyName)Num=Num+l With Workbooks(1).Acti veSheet Cells(.Range(A65536).End(xlUp).Row+2,l)=Left(MyNarne,Len(MyName)-4)For G=1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy _Cells(.Range(n A65536).End(xlUp).Row+1,1)Next llbN=WbN&Chr(l3)&W b.Name Wb.Close F
7、alse End阳thEnd If MyName=Dir Loop Range(Al).Select Application.ScreenUpdating=True MsgBox“共合并了“&Num&“个工作菏下的全部工作表。如下:“Chr(13)&IIbN,vblnformation,捉示“End Sub 1.4、注意工作f剧是以文件形式(扩展名xls)的,工作表是工作簿的子集,并非文件!如果布两个工作簿,第一个有5张工作表,第二个有3张工作表,那么可用以下过程步骤:(合并多个工作海的多个表到一个工作簿的多个表,前后工作海中表的总个数不变。当工作簿中的表只有1个时,同1.2的VBA作用)l、
8、新建一个文件2、按alt+Fll 3、插入模块Sub CombineWorkbooks()Dim FilesToOpen 仇mx As lnteger On Error GoTo ErrHandler Application.ScreenUpdating=False rilesToOpen=Application.GetOpenF且ename_(FileFilter:=HMicrosoft Excel Files(*.xls),*xls,_ MultiSelect:=True,Title:=Files to Mergen)If TypeName(FilesToOpen)=Boolean The
9、n M sgBox No riles were selectedll GoTo ExitH andler End If x=1 hile x 1,l,),ctrl+enter实现填充,笳选;删除l的行。7、高级筛选:对高级筛选的区域设置可以简单理解为:(1)高级筛选只能在当前活动表页执行,因此在进行高级筛选时,首先应确定高级筛选的结果的位罚,如果选择了将复制到数据源(列表区域)之外的表页时(如sheet2),就应该将sheet2做为当前表页进行高级筛选的区域设罚。(2)“条件区域”在当前表页,也可以在其他表页。(3)“复制到所选择的区域一定是当前执行齿级筛选的表页。(4)高级筛选结果字段可以自
10、中确定,但必须先在结果表上将所需婓的字段安排好。8、高级筛选能否将所筛选数据复制到其他工作表?实例excel的高级筛选功能如果条件是以下俩种情况,一般不会出铅(按照通常的顺序,先把鼠标放赏到列表区域,然后再依次选抒条件区域,保存区域):列表区域工作表l工作表l条件区域工作表l工作表2保存区域工作表l工作表l但是如下情况时,会出现提示“excel只能复制筛选过的数据到活动工作表”,操作失败列表区域条件区域保存区域A 工作表1工作表2工作表2B 工作表1工作表2工作表3C 工作表另一个文件另一个文件A解决办法如下:先找到工作表2,选中条件区域,再启动尚级筛选,这时看条件区域的状况,会出现告菩提示无
11、法确定哪一行包含列标签,即excel的高级筛选的设置过程通常都是先确定列表区域,冉确定条件区域,再确定保存区域。点击确定,会弹出高级筛选的对话框,这时会发现我们起初选抒的条件区域的应用位置表达式被excel的默认的放罚到了列表区域,将其拷贝粘贴到条件区域,然后再依次设罚工作表1中的列表区域,及工作表2的保存区域确定。分析这个解决过程验证了excel先前的出错提示中的”活动工作表”的说法当选择列表区域,并启动高级筛选功能时,就明确了当前的工作表即工作表2是活动工作表也就使得最后筛选后的数据能能够保存到该工作表中再考虑B的解决办法(经过测试,A的解决过程在B情况下行不通)怖先找到保存区域所在的工作
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel 输入 技巧
![提示](https://www.deliwenku.com/images/bang_tan.gif)
限制150内