怎樣快速拆分一個excel的兩個表

㈠ excel 怎麼把一個表格拆分成兩個表格

操作步驟：
原始數據表如下（名稱為：數據源），需要根據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

myRange = Application.InputBox(prompt:="請選擇標題行：", Type:=8)

myArray = WorksheetFunction.Transpose(myRange)

Set titleRange = Application.InputBox(prompt:="請選擇拆分的表頭，必須是第一行，且為一個單元格，如：「姓名」", Type:=8)

title = titleRange.Value

columnNum = titleRange.Column

Application.ScreenUpdating = False

Application.DisplayAlerts = False

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

Application.CutCopyMode = False

Next i

conn.Close

Set conn = Nothing

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

5、如下圖所示，插入一個控制項按鈕，並指定宏到剛才插入的模塊代碼。

6、點擊插入的按鈕控制項，根據提示選擇標題行和要拆分的列欄位，本例選擇「姓名」欄位拆分，當然也可以選擇C列的「名稱」進行拆分，看實際需求。

7、代碼運行完畢後在工作簿後面會出現很多工作表，每個工作表都是單獨一個人的數據。具體如下圖所示：

8、注意：
1）原始數據表要從第一行開始有數據，並且不能有合並單元格；
2）打開工作簿時需要開啟宏，否則將無法運行代碼。
以上就是excel將一個工作表根據條件拆分成多個工作表圖文教程，希望能對大家有所幫助！

㈡ Excel 如何把一個完整的表格拆分為兩個表格

1.首先打開空白word文檔。

㈢ excel如何快速拆分總表

網頁鏈接

自己去鏈接學習吧

=INDEX(總表!B:B,SMALL(IF(總表!$C$2:$C$13=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99),ROW($2:$13),4^8),ROW(A1)))&""

㈣ 如何快速將一個表格拆分成兩個表格

上華軍或霏凡下載excel文件合並拆分能手3.8版(官網最新是3.9版)可以將sheet拆分。

㈤ excel中怎麼將兩個表格拆分成兩個表格

可選用以下方法：
一、使用「分列」功能解決。選中需要拆分的單元格，點菜單「數據」——「分列」—，根據實際情況選擇「分隔符號」或「固定寬度」分隔——「下一步」，在「其他」中輸入分隔符號或點標尺切割數據，最後在「目標區域」輸入存放目標數據第一個數的單元格區域地址，最後按「完成」。
二、運用公式函數解決。可以用left、right或mid等函數處理。
示例：假定原數據為「10－21」形式的數據，要求將「－」兩邊的數據分拆到後面的兩個單元格。=left(a1,find("－",a1)-1)
=right(a1,len(a1)-find("－",a1))
或=trim(mid(substitute($a1,"－",rept("
",99)),(column(a1)-1)*99+1,99)
右拉填充

㈥ 怎樣把一個excel裡面的兩個表格分開

軟體版本：office2007
方法如下:
1.sheet1與sheet2中有項目相同但數量不同的數據，將數量累加到sheet1中：
2.復制sheet2中的數量：
3.選擇sheet1中的相應單元格，點擊右鍵，「選擇性粘貼」：
4.在運算中，選擇「加」，點擊確定：
5.這樣兩個表格裡面的數目就合成一個了：

㈦ excel怎樣快速拆分多個工作表

方法/步驟

打開需要編輯的Excel文檔。如圖所示，工作簿下方有很多工作表。現在需要將這些工作表單獨拆分開成一個個工作簿。

右鍵任意一個工作表標簽，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。如下圖所示。

點擊菜單插入-模塊 在彈出的模塊對話框中 輸入以下代碼：

Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '將工作簿另存為EXCEL默認格式
ActiveWorkbook.Close
Next
MsgBox "文件已經被分拆完畢!"
End Sub

單擊運行-運行子過程|窗體 幾秒過後 彈出提示窗口「文件已被拆分完畢」 如下圖所示

返回Excel工作簿文件所在路徑 查看 如下圖所示 原先工作簿中的工作表已經成為單獨的工作簿了！不信 可以對照查看圖中的修改日期

http://jingyan..com/article/75ab0bcb0ecc67d6874db27e.html

㈧ 如何快速的把一個EXCEL工作簿分成多個工作表

要用VBA處理：設你的總表的名稱 為「總表」，請按Alt+F11，打開VBA編輯器，插入一個模塊，把下面的代碼貼進去，按F5執行

Sub拆分()
LastColumn=Cells(1,Columns.Count).End(xlToLeft).Column'看總表有多少列
Fori=LastColumnTo4Step-2'先從最後兩列開始，一路向左
Range(Columns(i-1),Columns(i)).Select'選擇兩列
Selection.Cut'剪切
Sheets.AddAfter:=ActiveSheet'增加一個工作表
ActiveSheet.Paste'粘貼
ActiveSheet.Name=Cells(1,2)'將表名稱改為B2的內容
Sheets("總表").Select'回到總表
Next'下兩列
ActiveSheet.Name=Cells(1,2)'將總表名稱也改為B2內容
EndSub

已測試通過。

㈨ 如何快速把1個excel表拆分成多個excel表

點擊【開發工具】-【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
myRange = Application.InputBox(prompt:="請選擇標題行：", Type:=8)
myArray = WorksheetFunction.Transpose(myRange)
Set titleRange = Application.InputBox(prompt:="請選擇拆分的表頭，必須是第一行，且為一個單元格，如：「姓名」", Type:=8)
title = titleRange.Value

㈩ 怎樣快速地把一個EXCEL表格里的多個工作表分開成單個的文件

1、打開表格，可以看到一個工作簿中有多個工作表。