我有壹個主意，但是我需要把妳的工資條的格式改成只有壹行。最終結果是生成多個工資條工作表，可以按序列號、姓名和電話號碼保存。如果需要單獨的工作簿，則需要宏代碼來實現。我也有了，只差壹步。
使用的操作包括原始數據的簡單排序（添加輔助列和添加中文金額）、透視表和宏。
1，數據整理
以下公式用於中文金額（我的金額數字在D2，您可以直接將其替換為相應的單元格）:
= IF（D2 = 0““，IF（D2 & lt；0，“負“，““）&；SUBSTITUTE（SUBSTITUTE（SUBSTITUTE（TEXT（INT（ABS（D2）））“““db num 2““& amp；“元“，文本（右（文本（，。00），2），“【dbnum 2】0角0點“），“零角0點“，“整數“），“零點“，“整數“），“零角“，“零““。
添加次要列:
輔助列用於對您想要的文件名進行整型。直接使用&；符號連接著序號、姓名和薪水。
2.選擇這些數據以創建數據透視表，並使用數據透視表篩選頁將其分成多個工作表。
行和列的標簽設置如下所示。請記住在數據透視表的“設計”選項卡中設置“無分類匯總”和“無匯總”並更改表格樣式。
使用“顯示報告過濾器”頁面分離每個薪資。
然後有許多單獨的形式。
如果要打印，可以選擇所有工作表，這些工作表將成為工作組。如果刪除任何工作表中的前兩行，所有表格都將沒有前兩行。
3.如果必須分離工作簿，則需要使用宏代碼來實現。
操作是:開發壹個工具-Visual Basic（或Alt+11）打開壹個VBA頁面-插入-模塊-在編輯框中粘貼以下代碼-單擊綠色三角形運行。（您還可以插入並運行您通常在互聯網上找到的其他代碼，並且您無需編寫代碼即可使用它們。)
Sub newbooks（）
Dim sht As工作表，mypath$
申請。DisplayAlerts = False
抑制系統警告和消息
申請。ScreenUpdating = False
取消屏幕刷新
應用程序。文件對話框（msoFileDialogFolderPicker）
選擇保存工作簿的文件路徑。
。AllowMultiSelect = False
不允許多重選擇。
如果。那就展示吧
我的路徑=。選擇項目（1）
讀取選定的文件路徑。
其他
出口接頭
如果沒有選擇保存路徑，請退出程序。
如果…就會結束
以…結尾
if Right（my path，1）& lt；& gt““那麽mypath = mypath & amp""
對於工作表中的每個sht
遍歷工作表
噓。復制
復制工作表，簡單復制後工作表將成為活動工作簿。
使用活動工作簿
。另存為mypath & amp噓。名稱，xlWorkbookDefault
將活動工作簿保存到指定路徑。
。“關閉True”關閉工作簿。
以…結尾
然後
MsgBox“處理完成，“提醒”
申請。screenupdating = true恢復屏幕刷新。
申請。“DisplayAlerts = True”恢復顯示系統警告和消息。
末端接頭
我也不擅長VBA，而且操作有點復雜。如果妳有任何問題，請問我。希望能幫到妳。