如何將excel中的數據改成多個文件

⑴ 如何將excel里的內容變成多個excel文件

1. 數據分列，選擇整列-->數據-->分列-->固定寬度-->下一步-->添加分割線-->下一步-->完成。

2. 公式提取，
left(A1,2)提取前兩字元。
Mid(A1,3,1) 提取第三字元
Right(A1,2)提取後兩字元。
3. 公式替代，使用replace及substitute將源數據中不需要的部分替換為空從而實現分割數 據的目的。
4. VBA法，此處不做細表。

⑵ 如何將一個excel工作表的數據拆分成多個sheet

解決如何將一個excel工作表的數據拆分成多個sheet的步驟如下：

1.打開Excel表格之後，我們首先在空白表格處依次將要創建的工作表名稱按列輸入。

⑶ 如何快速的將EXCEL表格數據拆分成多個文件

 前不久好幾位朋友都問到，如何將一個EXCEL文件裡面很多條數據拆分成多個文件，比如一個EXCEL表裡面有90萬行數據，需要按照每1萬行拆分成一個文件，也就是需要將這表裡面的90萬行數據拆分到90個文件裡面。
 這個工作如果手工拆分，那工作量實在太大了。於是，我就想把這個過程拿出來分享一下。實際上這也是大數據處理過程中會涉及的一個概念——數據分框。
 下面我們就來看看如何用VBA來實現拆分工作。

 以上，是一個大體的過程，實際上還可以在此基礎上實現更加復雜的邏輯，這就y由各位根據自身實際應用場景獨立發揮了。

⑷ 如何將excel表格拆分成若干表格-步驟須知

以WPSOffice2019為例，將excel表格拆分成若干表格的方法大致分為五個步驟，具體操作步驟如下所示：

1、首先打開電腦，然後打開excel。
2、接著點擊菜單欄中的「數據」。
3、之後在「數據」中找到拆分表格。
4、根據需要選擇「把工作表按照內容拆分」或者「把工作薄按照工作表拆分」，再選擇需要存儲的位置，點擊確定。
5、最後運行完成後，會彈出提示框，提醒已經完成，點擊「是」即可直接查看文件。
WPSOffice2019不僅僅含有excel，同時還包含了word、powerpoint等多個辦公軟體，可以實現辦公軟體最常用的文字、表格、演示等多種功能。具有運行速度快、內存佔用小、多種插件平台支持等優點，同時還能免費提供海量在線存儲空間以及文檔模板。

⑸ 如何將一個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

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

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

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

8
注意：
1）原始數據表要從第一行開始有數據，並且不能有合並單元格；
2）打開工作簿時需要開啟宏，否則將無法運行代碼。

⑹ 如何將excel一個表格拆分成多個文件

1、首先在excel表格中，點擊智能工具箱，如下圖所示。

⑺ excel如何分成多個文件

excel表格太長了，不方便查看，想將這個文件拆分成多個表格文件，該怎麼做呢?下面隨我一起看看吧。
excel分成多個文件的步驟
1、首先將分公司欠款匯總表做成數據透視表，插入-數據透視表，選擇在新工作表，或者是現有工作表，然後點確定

2、得到數據透視表，然後用滑鼠選擇區域放在報表篩選，其他幾項放在行標簽。

3、然後在選項-選項-顯示報表篩選項，點擊顯示報表篩選項

4、然後出現顯示報表篩選頁，其中選定要顯示的報表篩選頁欄位為區域

5、點擊確定後，分公司欠款明細就自動顯示出來。

excel分成多個文件相關 文章 ：

1. Excel表格內容怎麼分成多個工作表

2. 怎麼拆分一個Excel工作簿中的多個工作表

3. excel一個表格分成多表的方法

⑻ excel數據怎麼拆分成多個文件

1、如果是一個工作表內的內容太多了，你可以用復制粘貼的方法來把它們放入到幾個工作表中。（想要快一點的話：這一項還可以用數據透視的方法根據需要分開來存。）
2、如果是一個工作簿中的工作表太多了，你可以先選中工作表名——右鍵——移動或復制工作表——在「工作薄」的下拉菜單中選擇「新工作薄」——確定——在新的工作薄中把它進行保存就行。
如果你想要最快的方法，那就像1樓所說的用VBA最快，最方便！

⑼ 如何將1個Excel工作簿的數據拆分成若干個工作簿

有時候一個Excel的數據會很多，需要拆分成若干個工作簿，比如把1個40萬行的excel，按每個工作簿40000行，拆成10個；思路是先把原始文件復制10個，然後逐個打開，按順序把多餘的刪除：

另一種方法是先分拆成多個工作表，然後再將工作表拆成獨立的工作簿文件

Sub 拆分()

Workbooks.Open (ThisWorkbook.Path & "/原始.xlsx")  '打開原始文件

r = 1 '標題行有幾行，一般就是數字1

b = 40000            '拆分後每個工作簿有多少數據

a = ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count '原始文件有幾行

ActiveWorkbook.Close

l = Int(a / b) + 1      'l表示可以拆分成幾個文件

For i = 1 To l

FileCopy ThisWorkbook.Path & "/原始.xlsx", ThisWorkbook.Path & "/" & i & ".xlsx"

Next i

'把文件復製成l份

Application.ScreenUpdating = False

fn = ThisWorkbook.Path & "/" & 1 & ".xlsx"    '將第1個要匯總的工作簿名稱賦給變數fn

Workbooks.Open (fn)

With ActiveWorkbook.Worksheets(1)

    Rows(r + b + 1 & ":" & 1048576).Select

    Selection.Delete Shift:=xlUp

End With

ActiveWorkbook.Close savechanges:=True

'第1個文件比較特殊

For i = 2 To l

    fn = ThisWorkbook.Path & "/" & i & ".xlsx"

    Workbooks.Open (fn)

    With ActiveWorkbook.Worksheets(1)

        Rows(r + 1 & ":" & r + (i - 1) * b).Select

        Selection.Delete Shift:=xlUp

        Rows(r + b + 1 & ":" & 1048576).Select

        Selection.Delete Shift:=xlUp

    End With

    ActiveWorkbook.Close savechanges:=True

Next i

Application.ScreenUpdating = True

'從第2個文件開始把不需要的都刪除

End Sub