如何用excel vba拆分有多個工作表的工作簿為多個規律命名的單工作表工作簿

2022-09-23 09:00:33 字數 4133 閱讀 1493

1樓:匿名使用者

網上有多表拆分的 工具 或者用透視表也可以達到要求

2樓:辦公小易

如何將一張工作表拆分成多個工作表?

3樓:匿名使用者

其實worksheet.copy是自動拆分的。。。。。。。足以說明這種需求有多高

怎樣編寫一個vba,快速將多個excel工作簿按相同名稱的工作表分開彙總到一個新**裡。

如何將一個excel中的多個sheet表拆分為多個excel表

4樓:wps官方

以wps 2019版本為例:

1、開啟「**(excel)」文件;

2、點選「資料-拆分**」;

3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分」使用即可。

5樓:匿名使用者

操作步驟:

原始資料表如下(名稱為:資料來源),需要根據b列人員姓名拆分成每個人一個工作表。

點選【開發工具】-【visual basic】或者alt+f11的快捷鍵進入vbe編輯介面。

插入一個新的模組。

貼上下列**在模組中:

sub cfgzb()

dim myrange as variant

dim myarray

dim titlerange as range

dim title as string

dim columnnum as integer

myarray = worksheetfunction.transpose(myrange)

title = titlerange.value

columnnum = titlerange.column

dim i&, myr&, arr, num&

dim d, k

for i = sheets.count to 1 step -1

if sheets(i).name <> "資料來源" then

sheets(i).delete

end if

next i

set d = createobject("scripting.dictionary")

myr = worksheets("資料來源").usedrange.rows.count

arr = worksheets("資料來源").range(cells(2, columnnum), cells(myr, columnnum))

for i = 1 to ubound(arr)

d(arr(i, 1)) = ""

next

k = d.keys

for i = 0 to ubound(k)

set conn = createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data

source=" & thisworkbook.fullname

sql = "select * from [資料來源$] where " & title & " = '" & k(i) & "'"

worksheets.add after:=sheets(sheets.count)

with activesheet

.name = k(i)

for num = 1 to ubound(myarray)

.cells(1, num) = myarray(num, 1)

next num

.range("a2").copyfromrecordset conn.execute(sql)

end with

sheets(1).select

sheets(1).cells.select

selection.copy

worksheets(sheets.count).activate

activesheet.cells.select

selection.pastespecial paste:=xlpasteformats, operation:=xlnone, _

skipblanks:=false, transpose:=false

next i

conn.close

set conn = nothing

end sub

6樓:辦公小易

如何將一張工作表拆分成多個工作表?

怎樣將excel裡的多個工作表快速拆分成單個excel檔案?

7樓:智慧小白菜

1、在excel的載入項選擇方方格子,選擇彙總拆分功能。

2、在下拉選單中選擇拆分工作簿。

3、設定要拆分出的工作表,以及需要儲存的位置,然後點選確定。

4、執行完成後,會有提示,可以直接檢視檔案。

5、在指定的資料夾內就可以看到拆分好的**即完成拆分。

8樓:wps官方

以wps 2019版本為例:

1、開啟「**(excel)」文件;

2、點選「資料-拆分**」;

3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分」使用即可。

9樓:匿名使用者

右擊工作表標籤--移動或複製;

選擇移動到“新工作簿”,勾選“建立副本”為複製,不勾選為移動;

以上方法,也要一個一個的移動或複製,沒有一氣呵成,全部分散拆開的方法,事實上也沒有必要,能併到一個工作簿的儘量併到一個工作簿,便於查詢和引用。

10樓:匿名使用者

如何將一張工作表拆分成多個工作表?

11樓:匿名使用者

1、手動:複製多個,一個個刪

2、篩選:先篩選出需要的,複製到新表

3、vba:編寫程式,自動進行

12樓:匿名使用者

在下面的表標籤下按右鍵,可以複製到一個新的**文件裡

13樓:財經多維觀察

有兩種主要方法:

1、手動移動工作表至空白工作簿,另存為即可。此種情況適合需要拆分的工作表較少的情況下使用,簡單實用速度快。

2、使用專用的應用執行拆分工作

可以使用excel批量處理應用,將工作簿中的工作表拆分到新的工作簿中,還可以多個excel工作簿一起操作。( 地址www.auditor.ren

總之,選擇何種拆分方法看實際工作中需求如何。如有疑問可私信聯絡,不吝賜教。

怎樣將多個excel工作簿合併為一個excel工作簿的多個工作表

14樓:wps官方

以wps 2019版本為例:

1.開啟**檔案,點選【資料-合併**】

2.選擇新增需合併的文件-開始合併;

3.合併完成後,被合併的工作簿將會變為多個「工作表」存在於一個「工作簿」內。

15樓:匿名使用者

1、在**中的載入項中找到“方方格子”選擇彙總拆分功能;

2、在下拉選單中選擇“合併多表”;

3、選擇全部工作簿,然後選擇需要合併的工作表,不需要合併的,則不在前面勾選;

4、執行後會彈出資訊,點選確定,關閉

5、這樣,在一個新的工作表中,就彙總了需要的資料。

16樓:河南新華電腦學院

1、我們進行工作簿的合併,先建立一個資料夾,把所有需要合併的到一起的工作簿都放到裡面

2、在新建的資料夾裡面新建一個excel工作表,作為合併工作簿的載體。

3、雙擊開啟新建的excel**,滑鼠右鍵單擊工作表左下角的sheet1,彈出的欄目中點選 新增更多。

4、點選之後彈出檔案新增選擇頁面。

5、全選所有需要新增的檔案,然後點選下方的 開啟。

6、經過上方的操作,我們就完成了工作簿的合併,此時我們可以看到資料夾中的四個需要合併的工作表已經合併到該工作簿中了。

17樓:**辦公軟體課程

excel**,如何在2分鐘合併多個工作簿,多個工作表