自動按列分組拆分excel工作表_第1頁
已閱讀1頁，還剩3頁未讀， 繼續(xù)免費閱讀

下載本文檔

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、自動按列分組拆分excel工作表可以將一個excel工作表按照指定列分組拆分成多個工作表，甚至可以將已經拆分的多個工作表再次拆分成單獨的excel文件。略懂一些編程語言的可以將代碼改編，以達到批量拆分多個工作表，或者批量合并多個excel文件、工作表，有了vbs的支持，只要你想的到就能做的到！拷貝代碼時請注意自動換行格式。自動拆分工作表自動創(chuàng)建文件夾自動保存單獨的excel文件至文件夾自動過濾空行，如果存在大量集中的空行請盡量刪除空行，

2、因為大量空行會影響運行效率使用方法：打開待拆分的excel文檔，按ALTF11進入vba模式，鼠標選【插入】【模塊】，在右側新建的模塊內將準備好的代碼粘貼進去，然后按F5，直接運行。此時會讓你選擇標題行和待分組的列標題。DimShNameAsStringDimcolumnNumAsIntegermyRange=Application.InputBox(prompt:=“請選擇標題行：“Type:=8)myArray=WksheetFun

3、ction.Transpose(myRange)SettitleRange=Application.InputBox(prompt:=“請選擇拆分的表頭，必須是第一行，且為一個單元格，如：姓名“Type:=8)title=titleRange.ValuecolumnNum=titleRange.ColumnApplication.VolatileShName=ActiveSheet.NameApplication.ScreenUpdat

4、ing=FalseApplication.DisplayAlerts=FalseDimiextendedproperties=excel8.0datasource=“&ThisWkbook.FullNameSql=“from[“&ShName&“$]where“&title&“=“&k(i)&““Wksheets.Addafter:=Sheets(Sheets.Count)WithActiveSheet.Name=k(i)Fnum=1T

溫馨提示

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

評論

0/150

提交評論