Excel輸入的技巧_第1頁
Excel輸入的技巧_第2頁
Excel輸入的技巧_第3頁
Excel輸入的技巧_第4頁
Excel輸入的技巧_第5頁
已閱讀5頁,還剩1頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、常用的Excel命令1>表格、表簿的拼接L1、拼接多個(gè)格式相同表的VBA函數(shù)(打開宏,新建模塊,輸入以下代碼)Sub合并當(dāng)前工作簿下的所有工作表()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”當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢!",vblnformation,"提示"EndSub1.2、“每個(gè)工作薄里面只有一個(gè)工作表的工作薄間工作表合并“(多個(gè)工作簿中的個(gè)表合并為一個(gè)工作簿中的多個(gè)表)。使用方法:1、新建一個(gè)工作薄,將其命名為你合并后的名字。2、打開此工作薄。3、在其下任一個(gè)工作表標(biāo)簽上點(diǎn)擊右鍵,選擇“查看代碼”。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、關(guān)閉VBA編輯窗口。6、在excel中,工具-一宏一-宏,選“工作薄間工作表合并”,然后“執(zhí)行”。7、在打開的對(duì)話窗口中,選擇你要合并的300個(gè)工作薄。qq:744678750或Email:wanggm0427。1.3、 將多個(gè)EXCEL工作表合并成一個(gè)工作表(多個(gè)工作簿的多個(gè)表合并為一個(gè)工作簿的一個(gè)表,不要求表的格式致)1、新建一個(gè)工作表,命名后保存到和與合并的100個(gè)文件同一個(gè)文件文件夾;2、掘alt+fll打開VBA編輯器,雙擊工程資源管理器里面的shee

5、tl,插入模塊,然后在右側(cè)的代碼區(qū)粘貼如下代碼。3、運(yùn)行。Sub合并當(dāng)前目錄卜所有工作簿的全部工作表()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&"個(gè)工作薄下的全部工作表。如下:"&Chr(13)&WbN,vblnformation,”提示“EndSub1.4、 注意工作簿是以文件形式(擴(kuò)展名xls)的,工作表是工作簿的子集,并非文件!如果有兩個(gè)工作簿,第一個(gè)有5張工作表,第二個(gè)有3張工作表,那么可用以下過程步驟:(合并多個(gè)工作簿的多個(gè)表到一個(gè)工作簿的多個(gè)表,前后工作簿中表的總個(gè)數(shù)

8、不變。當(dāng)工作簿中的表只有1個(gè)時(shí),同L2的VBA作用)1、新建一個(gè)文件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運(yùn)行,打開一個(gè)瀏覽窗口,選擇幾個(gè)xls文件(當(dāng)然不是很多,太多了,excel有限制工作表的個(gè)數(shù),好像吧,具體我忘了)來源于excelhome2、用篩選把符合條件的保留(其它隱藏),然后全選工作表,再按一下Alt+;(分號(hào)),這樣選擇的只有可見的行,這時(shí)再刪就只刪符合條件的行了。如果不按Alt+;一般情況下也不出錯(cuò),但個(gè)別時(shí)候連隱藏的也刪了。3、ctrl+pgup,pgdn可以實(shí)現(xiàn)sheetl、sheet2等表格之間的上下切換。4、批量命名表格名稱:雙擊sheetl,左按Ctrl,右按鼠左,往后拖動(dòng),有

11、+出現(xiàn)。5、批量刪除空口行(假設(shè)以B列是否仃內(nèi)容為判斷依據(jù)):插入新列A,填充序列A,選中C列,按F2,輸入=B1="">ctrl+enter實(shí)現(xiàn)填充,篩選;刪除false行。或者,選中所屬區(qū)域一按F5使用定位一定位條件一空值一刪除一刪除行(要求其他非空白行的單元格非空)6、刪除重復(fù)行:選中新空白列,按F2,輸入=If(countif($A$2:A2,A2)l,“1“,""),ctrl+enter實(shí)現(xiàn)填充,篩選;刪除1的行。7、高級(jí)篩選:對(duì)高級(jí)篩選的區(qū)域設(shè)置可以簡單理解為:(1)高級(jí)篩選只能在當(dāng)前活動(dòng)表頁執(zhí)行,因此在進(jìn)行高級(jí)篩選時(shí),首先應(yīng)確定高級(jí)篩

12、選的結(jié)果的位置,如果選擇了將復(fù)制到數(shù)據(jù)源(列表區(qū)域)之外的表頁時(shí)(如sheet2),就應(yīng)該將sheet2做為當(dāng)前表頁進(jìn)行高級(jí)篩選的區(qū)域設(shè)置。(2) “條件區(qū)域”在當(dāng)前表頁,也可以在其他表頁。(3) “復(fù)制到”所選擇的區(qū)域一定是當(dāng)前執(zhí)行高級(jí)篩選的表頁。(4)高級(jí)篩選結(jié)果字段可以自由確定,但必須先在結(jié)果表I:將所需要的字段安排好。8、高級(jí)篩選能否將所篩選數(shù)據(jù)復(fù)制到其他工作表?實(shí)例excel的高級(jí)篩選功能如果條件是以下兩種情況,一般不會(huì)出錯(cuò)(按照通常的順序,先把鼠標(biāo)放置到列表區(qū)域,然后再依次選擇條件區(qū)域,保存區(qū)域):列表區(qū)域條件區(qū)域保存區(qū)域工作表1工作表1工作表1工作表1工作表2工作表1但是如下情況

13、時(shí),會(huì)出現(xiàn)提示:"excel只能復(fù)制篩選過的數(shù)據(jù)到活動(dòng)工作表”,操作失敗.列表區(qū)域條件區(qū)域保存區(qū)域A工作表1工作表2工作表2B工作表1工作表2工作表3C工作表1另一個(gè)文件另一個(gè)文件A解決辦法如下:先找到工作表2,選中條件區(qū)域,再啟動(dòng)高級(jí)篩選,這時(shí)看條件區(qū)域的狀況,會(huì)出現(xiàn)告警提示:無法確定哪行包含列標(biāo)簽,即excel的高級(jí)篩選的設(shè)置過程通常都是先確定列表區(qū)域,再確定條件區(qū)域,再確定保存區(qū)域。點(diǎn)擊確定,會(huì)彈出高級(jí)篩選的對(duì)話框,這時(shí)會(huì)發(fā)現(xiàn)我們起初選擇的條件區(qū)域的應(yīng)用位置表達(dá)式被excel的默認(rèn)的放置到了列表區(qū)域,將其密貝粘貼到條件區(qū)域,然后再依次設(shè)置工作表1中的列表區(qū)域,及工作表2的保存區(qū)

14、域.確定。分析:這個(gè)解決過程驗(yàn)證了excel先前的出錯(cuò)提示中的”活動(dòng)工作表”的說法.當(dāng)選擇列表區(qū)域,并后動(dòng)高級(jí)篩選功能時(shí),就明確了當(dāng)前的工作表即工作表2是活動(dòng)工作表.也就使得最后篩選后的數(shù)據(jù)能能夠保存到該工作表中.再考慮B的解決辦法:(經(jīng)過測(cè)試,A的解決過程在B情況下行不通)需先找到保存區(qū)域所在的工作表,并啟動(dòng)高級(jí)篩選,似乎因?yàn)樵搮^(qū)域通常都是空的,所以也沒為A中出現(xiàn)的提示,然后勾選”將篩選結(jié)果復(fù)制到其他位置",并指定保存區(qū)域的引用位置,然后再去設(shè)置工作表1中的列表區(qū)域和工作表2中的引用區(qū)域,確定,即可.總結(jié):其實(shí)A情況如果和B情況一樣都是先設(shè)置保存區(qū)域,再設(shè)輯條件區(qū)域,列表區(qū)域的話就

15、不會(huì)出現(xiàn)那個(gè)煩人莫名的提示了.所以,以上情況最簡單的辦法就是設(shè)置過程和excel的默認(rèn)設(shè)置過程正好逆序就正常了.C情況:先找到需要保存的另個(gè)excel文件中的文件表,啟動(dòng)高級(jí)篩選功能,勾選"將篩選結(jié)果復(fù)制到其他位置”,并指定保存區(qū)域,再去設(shè)置條件區(qū)域和列表區(qū)域.即可.其實(shí)只要把握一個(gè)原則:先找到計(jì)劃最終高級(jí)篩選保存區(qū)域所在工作表,再啟動(dòng)高級(jí)篩選功能,這樣這個(gè)工作表就是告警中所提到的活動(dòng)工作表,然后再進(jìn)行相關(guān)的引用位置的設(shè)置,那么各種情況都不會(huì)出現(xiàn)問題.談?wù)凟xcel輸入的技巧1、輸入分?jǐn)?shù)在單元格中輸入“1/2”,按回車鍵則顯示“1月2LI";如果在單元格中輸入“81/2”,

16、則在單元格中顯示“81/2",而在編輯欄中顯示“8.5”.2、輸入負(fù)數(shù)在單元格中輸入負(fù)數(shù)時(shí),可在負(fù)數(shù)前輸入作標(biāo)識(shí),或在單元格中輸入“(88)”,按一下回車鍵,則會(huì)自動(dòng)顯示為“-88”。3、輸入小數(shù)選擇“工具”、“選項(xiàng)”命令,打開“選項(xiàng)”對(duì)話框,單擊“編輯”標(biāo)簽,選中“自動(dòng)設(shè)置小數(shù)點(diǎn)”復(fù)選框,并在“位數(shù)”微調(diào)框中輸入或選擇要顯示在小數(shù)點(diǎn)右面的位數(shù),如果要在數(shù)字后自動(dòng)添零,可指定一個(gè)負(fù)數(shù)值作為要添加的零的個(gè)數(shù),比如輸入“88”后自動(dòng)添加3個(gè)零,變成“88000”,就在“位數(shù)”微調(diào)框中輸入“-3”,相反,如果要在輸入“88”后自動(dòng)添加3位小數(shù),變成“0.088”,則要在“位數(shù)”微調(diào)框中輸入

17、“3”。另外,在完成后,應(yīng)清除對(duì)“自動(dòng)設(shè)置小數(shù)點(diǎn)”符選框的選定,以免影響后邊的輸入;如果只是要暫時(shí)取消在“自動(dòng)設(shè)置小數(shù)點(diǎn)”中設(shè)置的選項(xiàng),可以在輸入數(shù)據(jù)時(shí)自帶小數(shù)點(diǎn)。4、輸入貨幣值如果用要輸入人民幣符號(hào),可以按住Alt鍵,然后在數(shù)字小鍵盤上按“0165”即可。5、輸入日期要輸入“2001年12月1日”,可以在單元各種輸入“2001/12/1”或者“2001-12-1”.如果要在單元格中插入當(dāng)前日期,可以按鍵盤上的Ctr1+;組合鍵。6、輸入時(shí)間要輸入下午2時(shí)30分38秒,用24小時(shí)制輸入格式為:式30:38,而用12小時(shí)制輸入時(shí)間格式為:2:30:38p,注意字母“p”和時(shí)間之間有一個(gè)空格。如果

18、要在單元格中插入當(dāng)前時(shí)間,則按Ctrl+Shift+;。7、文木類型的數(shù)字輸入證件號(hào)碼、電話號(hào)碼、數(shù)字標(biāo)碩等需要將數(shù)字當(dāng)成文本輸入。常用兩種方法:一是在輸入第一個(gè)字符前,鍵入單引號(hào)二是先鍵入等號(hào)并在數(shù)字前后加上雙引號(hào)”。請(qǐng)參考以卜例了:鍵入'027,單元格中顯示027;鍵入="001",單元格申顯示001;鍵入=""3501”,單元格中顯示"3501”.(前后加上三個(gè)雙撇號(hào)是為了在單元格中顯示一對(duì)雙引號(hào)):8、上下標(biāo)的輸入在單元格內(nèi)輸入如103類的帶上標(biāo)(卜.標(biāo))的字符的步驟:(1)按文本方式輸入數(shù)字(包括上下標(biāo)),如103鍵入'

19、;103:(2)用鼠標(biāo)在編輯欄中選定將設(shè)為上標(biāo)(下標(biāo))的字符,I:例中應(yīng)選定3:(3)選中格式菜單單元格命令,產(chǎn)生(單元格格式)對(duì)話框;(4)在(字體)標(biāo)簽中選中上標(biāo)(下標(biāo))復(fù)選框,再確定.9、兩次選定單元格,實(shí)現(xiàn)單元格重復(fù)輸入數(shù)據(jù)單擊鼠標(biāo)選定單元格,然后按住Ctrl鍵再次單擊鼠標(biāo)選定此單元格(此時(shí),單元格周圍將出現(xiàn)實(shí)線框)。10、改變單元格的次序(shift+鼠標(biāo)左鍵)在拖放選定的一個(gè)或多個(gè)單元格至新的位置時(shí),同時(shí)按住Shift鍵可以快速修改單元格內(nèi)容的次序。具體方法為:選定單元格,按下Shift鍵,移動(dòng)鼠標(biāo)指針至單元格邊緣,直至出現(xiàn)拖放指針箭頭"?”,然后進(jìn)行拖放操作。11、超越

20、工作表保護(hù)的訣竅如果你想使用一個(gè)保護(hù)廠的工作表,但又不知道其口令,可以選定工作表,選擇“編輯'"復(fù)制”、“粘貼”,將其拷貝到一個(gè)新的工作簿中(注意:一定要新工作簿),即可超越工作表保護(hù)。12、同時(shí)填充多個(gè)工作表將做好的一種樣式填充到多個(gè)表格中:1.選定前面的工作區(qū)域;2.按住“Ctrl”鍵,然后單擊其他的工作表(多重選擇其他工作表);3.執(zhí)行“編輯/填充/至同組工作表”命令;4.在該對(duì)話框中選擇要填充的方式,這里我們選擇“全部”,然后單擊“確定”。工作表MSheet10的數(shù)據(jù)和格式就復(fù)制到“Sheet2”和“Sheet3”T.13、批量刪除阿車的快捷方式:杳找內(nèi)容框中輸入Al

21、t+10(小數(shù)字鍵盤上的10),替換框中輸入空格.14、Excel中如何批量刪除同列單元格中最后一個(gè)字符?在B1中輸入公式:=LEb'T(Al,LEN(Al)-l)15、Excel中如何批量刪除同列單元格中倒數(shù)第二個(gè)字符?你的數(shù)據(jù)都在A歹ij,在對(duì)應(yīng)的B列輸入=REPLACE(A1,LEN(A1)T,1,16、在Excel中小數(shù)點(diǎn)無法輸入,按小數(shù)點(diǎn),顯示的卻是逗號(hào),無論怎樣設(shè)置選項(xiàng)都無濟(jì)于事,該怎么辦?這是一個(gè)比較特殊的問題,我曾為此花了十兒個(gè)小時(shí)的時(shí)間,但說白了很簡單。在Windows的控制面板中,點(diǎn)由“區(qū)域設(shè)置”圖標(biāo),在彈出的“區(qū)域設(shè)置屬性”對(duì)話面板上在“區(qū)域設(shè)置”里選擇“中文(中

22、國)”.在“區(qū)域設(shè)置屬性”對(duì)話面板上在“數(shù)字”屬性里把小數(shù)點(diǎn)改為”(未改前是“,”),按“確定”按鈕結(jié)束。17、用Excel做多頁的表格時(shí),怎樣像Word的表格那樣做個(gè)標(biāo)題,即每頁的第一行(或幾行)是一樣的。但是不是用頁眉來完成?在EXCEL的文件菜單一頁面設(shè)置一工作表一打印標(biāo)題;可進(jìn)行頂端或左端標(biāo)題設(shè)置,通過按卜折疊對(duì)話框按鈕后,用鼠標(biāo)劃定范圍,這樣Excel就會(huì)自動(dòng)在各頁上加上你劃定的部分作為表頭。18、去除單元格中的空格(不限空格位置):=SUBSTITUTE(A2,CHAR(10),);或者=clean(a2)EXCEL分列與合并功能的靈活動(dòng)用一、數(shù)據(jù)轉(zhuǎn)換。用友財(cái)務(wù)軟件8.11版導(dǎo)出的

23、數(shù)據(jù)就是如此。非要對(duì)導(dǎo)出后的每個(gè)單元格雙擊后才能變成真的數(shù)值。這是軟件在數(shù)據(jù)輸出時(shí)在數(shù)據(jù)末加了個(gè)空數(shù)據(jù)位,其解決辦法為:首先在輸出時(shí)應(yīng)在原軟件中將每列寬度拉至能看見所仃數(shù)據(jù)的寬度。輸出后,在Excel中,點(diǎn)擊列號(hào)以選中需轉(zhuǎn)換之?dāng)?shù)據(jù)列,然后點(diǎn)擊菜單數(shù)據(jù)一分列,彈出如圖1的窗口,分列方式選“固定寬度”,點(diǎn)擊下一步,不要改變其寬度,點(diǎn)擊完成。這樣處理后,數(shù)據(jù)會(huì)在瞬間轉(zhuǎn)為可計(jì)算的數(shù)值。二、復(fù)雜數(shù)據(jù)的排序(分離列)。Excel的排序功能固然強(qiáng)大,但對(duì)一些復(fù)雜數(shù)據(jù)仍然力不從心。例如:一列數(shù)據(jù)為材料編號(hào)+材料名稱+數(shù)量+收料單號(hào),既有文字,又有數(shù)字,還有符號(hào),如23009831螺釘500箱入庫500123,現(xiàn)在要按收料單號(hào)(印500123)排序,該怎么辦呢?這時(shí),可以選中該列,點(diǎn)擊數(shù)據(jù)一分列,視情況不同選“分隔符號(hào)”或“固定寬度”,若每一行都有明顯的符號(hào),如例中的“庫”字,就可選“分隔符號(hào)”.點(diǎn)擊下一步,在“其它”欄中輸入“庫”字。點(diǎn)擊下一步,最后點(diǎn)擊完成。則收料單號(hào)500123所在列即被分離為另一列,現(xiàn)在就可按收料單號(hào)排序了。三、修改數(shù)據(jù)(去掉多輸?shù)?).分列功能還可用于修改錯(cuò)誤的數(shù)據(jù)。例如在Exc

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論