Excel输入的技巧_第1页
Excel输入的技巧_第2页
Excel输入的技巧_第3页
Excel输入的技巧_第4页
Excel输入的技巧_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、常用的Excel命令1>表格、表簿的拼接L1、拼接多个格式相同表的VBA函数(打开宏,新建模块,输入以下代码)Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating-FalseForj=1ToSheets.CountIfSheets(j).Name<>ActiveSheet.NameThenk=B65536.End(x1Up).RowX=b65536.End(xlUp),Row+1*Range(*A65536*).End(xlUp).RowSheets(j).UsedRange.CopyCells(X,1)EndIfNext'Ran

2、ge(*A1*).SelectApplication.ScreenUpdating=TrueMsgBox”当前工作簿下的全部工作表已经合并完毕!",vblnformation,"提示"EndSub1.2、“每个工作薄里面只有一个工作表的工作薄间工作表合并“(多个工作簿中的个表合并为一个工作簿中的多个表)。使用方法:1、新建一个工作薄,将其命名为你合并后的名字。2、打开此工作薄。3、在其下任一个工作表标签上点击右键,选择“查看代码”。4、在打开的VBA编辑窗口中粘贴以下代码:Sub工作薄间工作表合并()DimFileOpenDimXAsIntegerApplicat

3、ion.ScreenUpdating=FalseFileOpen=Application.GetOpenFilename(FileFilter:=*MicrosoftExcel文件(*.xls),*.xls”,MultiSelect:=True,Title:=”合并工作薄”)X=1WhileX<=IBound(FileOpen)Workbooks.OpenFilename:=Fi1eOpen(X)Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X=X+1WendExitHandler:Applicatio

4、n.ScreenUpdating=TrueExitSuberrhadler:MsgBoxErr.DescriptionEndSub5、关闭VBA编辑窗口。6、在excel中,工具-一宏一-宏,选“工作薄间工作表合并”,然后“执行”。7、在打开的对话窗口中,选择你要合并的300个工作薄。qq:744678750或Email:wanggm0427。1.3、 将多个EXCEL工作表合并成一个工作表(多个工作簿的多个表合并为一个工作簿的一个表,不要求表的格式致)1、新建一个工作表,命名后保存到和与合并的100个文件同一个文件文件夹;2、掘alt+fll打开VBA编辑器,双击工程资源管理器里面的shee

5、tl,插入模块,然后在右侧的代码区粘贴如下代码。3、运行。Sub合并当前目录卜所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath二ActiveWorkbook.PathMyName=Dir(MyPath&xls*)AWbName=ActiveWorkbook.NameNum=0DoWhileMyName<>”IfMyName<>AWbNam

6、eThenSetWb=Workbooks.Open(MyPath&&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.CelIs(.Range("A65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.CelIs(.Range(*A65536*).End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFal

7、seEndWithEndIfMyName=DirLoopRange(*A1*).SelectApplication.ScreenUpdating=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下:"&Chr(13)&WbN,vblnformation,”提示“EndSub1.4、 注意工作簿是以文件形式(扩展名xls)的,工作表是工作簿的子集,并非文件!如果有两个工作簿,第一个有5张工作表,第二个有3张工作表,那么可用以下过程步骤:(合并多个工作簿的多个表到一个工作簿的多个表,前后工作簿中表的总个数

8、不变。当工作簿中的表只有1个时,同L2的VBA作用)1、新建一个文件2、按alt+F113、插入模块SubCombineWorkbooks()DimFilesToOpenDimxAsIntegerOnErrorGoToErrllandlerApplication.Screenllpdating=FaiseFilesToOpen=Application.GetOpenFi1ename(Fi1eFilter:="MicrosoftExcelFiles(*.xls),*.xls”,_MultiSelect:=True,Title:=*FilestoMerge")IfTypeNam

9、e(FilesToOpen)="Boolean"ThenMsgBox"NoFileswereselected*GoToExitHandlerEndIfx=1Whilex<=UBound(FilesToOpen)Workbooks.OpenFilename:=FilesToOpen(x)Sheets0.MoveAfter:=ThisWorkbook.Sheets_(ThisWorkbook.Sheets.Count)x=x+1WendExitHandler:Application.Screenllpdating=TrueExitSubErrHandler:Ms

10、gBoxErr.DescriptionResumeExitHandlerEndSub4、按F5运行,打开一个浏览窗口,选择几个xls文件(当然不是很多,太多了,excel有限制工作表的个数,好像吧,具体我忘了)来源于excelhome2、用筛选把符合条件的保留(其它隐藏),然后全选工作表,再按一下Alt+;(分号),这样选择的只有可见的行,这时再删就只删符合条件的行了。如果不按Alt+;一般情况下也不出错,但个别时候连隐藏的也删了。3、ctrl+pgup,pgdn可以实现sheetl、sheet2等表格之间的上下切换。4、批量命名表格名称:双击sheetl,左按Ctrl,右按鼠左,往后拖动,有

11、+出现。5、批量删除空口行(假设以B列是否仃内容为判断依据):插入新列A,填充序列A,选中C列,按F2,输入=B1="">ctrl+enter实现填充,筛选;删除false行。或者,选中所属区域一按F5使用定位一定位条件一空值一删除一删除行(要求其他非空白行的单元格非空)6、删除重复行:选中新空白列,按F2,输入=If(countif($A$2:A2,A2)l,“1“,""),ctrl+enter实现填充,筛选;删除1的行。7、高级筛选:对高级筛选的区域设置可以简单理解为:(1)高级筛选只能在当前活动表页执行,因此在进行高级筛选时,首先应确定高级筛

12、选的结果的位置,如果选择了将复制到数据源(列表区域)之外的表页时(如sheet2),就应该将sheet2做为当前表页进行高级筛选的区域设置。(2) “条件区域”在当前表页,也可以在其他表页。(3) “复制到”所选择的区域一定是当前执行高级筛选的表页。(4)高级筛选结果字段可以自由确定,但必须先在结果表I:将所需要的字段安排好。8、高级筛选能否将所筛选数据复制到其他工作表?实例excel的高级筛选功能如果条件是以下两种情况,一般不会出错(按照通常的顺序,先把鼠标放置到列表区域,然后再依次选择条件区域,保存区域):列表区域条件区域保存区域工作表1工作表1工作表1工作表1工作表2工作表1但是如下情况

13、时,会出现提示:"excel只能复制筛选过的数据到活动工作表”,操作失败.列表区域条件区域保存区域A工作表1工作表2工作表2B工作表1工作表2工作表3C工作表1另一个文件另一个文件A解决办法如下:先找到工作表2,选中条件区域,再启动高级筛选,这时看条件区域的状况,会出现告警提示:无法确定哪行包含列标签,即excel的高级筛选的设置过程通常都是先确定列表区域,再确定条件区域,再确定保存区域。点击确定,会弹出高级筛选的对话框,这时会发现我们起初选择的条件区域的应用位置表达式被excel的默认的放置到了列表区域,将其密贝粘贴到条件区域,然后再依次设置工作表1中的列表区域,及工作表2的保存区

14、域.确定。分析:这个解决过程验证了excel先前的出错提示中的”活动工作表”的说法.当选择列表区域,并后动高级筛选功能时,就明确了当前的工作表即工作表2是活动工作表.也就使得最后筛选后的数据能能够保存到该工作表中.再考虑B的解决办法:(经过测试,A的解决过程在B情况下行不通)需先找到保存区域所在的工作表,并启动高级筛选,似乎因为该区域通常都是空的,所以也没为A中出现的提示,然后勾选”将筛选结果复制到其他位置",并指定保存区域的引用位置,然后再去设置工作表1中的列表区域和工作表2中的引用区域,确定,即可.总结:其实A情况如果和B情况一样都是先设置保存区域,再设辑条件区域,列表区域的话就

15、不会出现那个烦人莫名的提示了.所以,以上情况最简单的办法就是设置过程和excel的默认设置过程正好逆序就正常了.C情况:先找到需要保存的另个excel文件中的文件表,启动高级筛选功能,勾选"将筛选结果复制到其他位置”,并指定保存区域,再去设置条件区域和列表区域.即可.其实只要把握一个原则:先找到计划最终高级筛选保存区域所在工作表,再启动高级筛选功能,这样这个工作表就是告警中所提到的活动工作表,然后再进行相关的引用位置的设置,那么各种情况都不会出现问题.谈谈Excel输入的技巧1、输入分数在单元格中输入“1/2”,按回车键则显示“1月2LI";如果在单元格中输入“81/2”,

16、则在单元格中显示“81/2",而在编辑栏中显示“8.5”.2、输入负数在单元格中输入负数时,可在负数前输入作标识,或在单元格中输入“(88)”,按一下回车键,则会自动显示为“-88”。3、输入小数选择“工具”、“选项”命令,打开“选项”对话框,单击“编辑”标签,选中“自动设置小数点”复选框,并在“位数”微调框中输入或选择要显示在小数点右面的位数,如果要在数字后自动添零,可指定一个负数值作为要添加的零的个数,比如输入“88”后自动添加3个零,变成“88000”,就在“位数”微调框中输入“-3”,相反,如果要在输入“88”后自动添加3位小数,变成“0.088”,则要在“位数”微调框中输入

17、“3”。另外,在完成后,应清除对“自动设置小数点”符选框的选定,以免影响后边的输入;如果只是要暂时取消在“自动设置小数点”中设置的选项,可以在输入数据时自带小数点。4、输入货币值如果用要输入人民币符号,可以按住Alt键,然后在数字小键盘上按“0165”即可。5、输入日期要输入“2001年12月1日”,可以在单元各种输入“2001/12/1”或者“2001-12-1”.如果要在单元格中插入当前日期,可以按键盘上的Ctr1+;组合键。6、输入时间要输入下午2时30分38秒,用24小时制输入格式为:式30:38,而用12小时制输入时间格式为:2:30:38p,注意字母“p”和时间之间有一个空格。如果

18、要在单元格中插入当前时间,则按Ctrl+Shift+;。7、文木类型的数字输入证件号码、电话号码、数字标硕等需要将数字当成文本输入。常用两种方法:一是在输入第一个字符前,键入单引号二是先键入等号并在数字前后加上双引号”。请参考以卜例了:键入'027,单元格中显示027;键入="001",单元格申显示001;键入=""3501”,单元格中显示"3501”.(前后加上三个双撇号是为了在单元格中显示一对双引号):8、上下标的输入在单元格内输入如103类的带上标(卜.标)的字符的步骤:(1)按文本方式输入数字(包括上下标),如103键入'

19、;103:(2)用鼠标在编辑栏中选定将设为上标(下标)的字符,I:例中应选定3:(3)选中格式菜单单元格命令,产生(单元格格式)对话框;(4)在(字体)标签中选中上标(下标)复选框,再确定.9、两次选定单元格,实现单元格重复输入数据单击鼠标选定单元格,然后按住Ctrl键再次单击鼠标选定此单元格(此时,单元格周围将出现实线框)。10、改变单元格的次序(shift+鼠标左键)在拖放选定的一个或多个单元格至新的位置时,同时按住Shift键可以快速修改单元格内容的次序。具体方法为:选定单元格,按下Shift键,移动鼠标指针至单元格边缘,直至出现拖放指针箭头"?”,然后进行拖放操作。11、超越

20、工作表保护的诀窍如果你想使用一个保护厂的工作表,但又不知道其口令,可以选定工作表,选择“编辑'"复制”、“粘贴”,将其拷贝到一个新的工作簿中(注意:一定要新工作簿),即可超越工作表保护。12、同时填充多个工作表将做好的一种样式填充到多个表格中:1.选定前面的工作区域;2.按住“Ctrl”键,然后单击其他的工作表(多重选择其他工作表);3.执行“编辑/填充/至同组工作表”命令;4.在该对话框中选择要填充的方式,这里我们选择“全部”,然后单击“确定”。工作表MSheet10的数据和格式就复制到“Sheet2”和“Sheet3”T.13、批量删除阿车的快捷方式:杳找内容框中输入Al

21、t+10(小数字键盘上的10),替换框中输入空格.14、Excel中如何批量删除同列单元格中最后一个字符?在B1中输入公式:=LEb'T(Al,LEN(Al)-l)15、Excel中如何批量删除同列单元格中倒数第二个字符?你的数据都在A歹ij,在对应的B列输入=REPLACE(A1,LEN(A1)T,1,16、在Excel中小数点无法输入,按小数点,显示的却是逗号,无论怎样设置选项都无济于事,该怎么办?这是一个比较特殊的问题,我曾为此花了十儿个小时的时间,但说白了很简单。在Windows的控制面板中,点由“区域设置”图标,在弹出的“区域设置属性”对话面板上在“区域设置”里选择“中文(中

22、国)”.在“区域设置属性”对话面板上在“数字”属性里把小数点改为”(未改前是“,”),按“确定”按钮结束。17、用Excel做多页的表格时,怎样像Word的表格那样做个标题,即每页的第一行(或几行)是一样的。但是不是用页眉来完成?在EXCEL的文件菜单一页面设置一工作表一打印标题;可进行顶端或左端标题设置,通过按卜折叠对话框按钮后,用鼠标划定范围,这样Excel就会自动在各页上加上你划定的部分作为表头。18、去除单元格中的空格(不限空格位置):=SUBSTITUTE(A2,CHAR(10),);或者=clean(a2)EXCEL分列与合并功能的灵活动用一、数据转换。用友财务软件8.11版导出的

23、数据就是如此。非要对导出后的每个单元格双击后才能变成真的数值。这是软件在数据输出时在数据末加了个空数据位,其解决办法为:首先在输出时应在原软件中将每列宽度拉至能看见所仃数据的宽度。输出后,在Excel中,点击列号以选中需转换之数据列,然后点击菜单数据一分列,弹出如图1的窗口,分列方式选“固定宽度”,点击下一步,不要改变其宽度,点击完成。这样处理后,数据会在瞬间转为可计算的数值。二、复杂数据的排序(分离列)。Excel的排序功能固然强大,但对一些复杂数据仍然力不从心。例如:一列数据为材料编号+材料名称+数量+收料单号,既有文字,又有数字,还有符号,如23009831螺钉500箱入库500123,现在要按收料单号(印500123)排序,该怎么办呢?这时,可以选中该列,点击数据一分列,视情况不同选“分隔符号”或“固定宽度”,若每一行都有明显的符号,如例中的“库”字,就可选“分隔符号”.点击下一步,在“其它”栏中输入“库”字。点击下一步,最后点击完成。则收料单号500123所在列即被分离为另一列,现在就可按收料单号排序了。三、修改数据(去掉多输的0).分列功能还可用于修改错误的数据。例如在Exc

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论