excel表格中，商品多達幾百個，怎樣簡單的列印出每個商品的進銷存明細賬？

這肯定要用到VBA編程的啦！

但是畢竟懂得運用excel的VBA編程還在少數，所以多數人不得不藉助一些工具完成進銷存明細。

VBA編程就不說了，會用自己可以寫。我就來介紹一下不懂VBA的一般需要用到的一款免費工具吧。

工具叫雲表企業應用平台，下文就簡稱雲表了，是由金山wps團隊開發的一款免費軟體。用戶可以選擇按需求定做或者是自主開發，雲表操作簡單易懂，無需代碼編程，純中文操作，excel的操作形式。

其實，並不是很推薦去用Excel實現進銷存管理，Excel設計的初衷是單機辦公軟體，進銷存軟體需要的是工作流、審批流、許可權設置、數據共享，恰好這些關鍵功能它都不具備，數據多了還會出現打開速度緩慢、容易崩潰等問題。這些缺陷使得excel進銷存軟體實在算不上一個完備的進銷存軟體。

雲表則完美地解決了這些問題，不僅如此，雲表的操作就是基於Excel畫表格形式，不用擔心軟體難用；純中文頁面，沒有看不懂的英文單詞；無需VBA編程語言相關知識、無基礎即可上手，簡單實用。作為一款應用領域已經覆蓋各個行業的企業管理系統，所有進銷存需要的功能雲表都擁有，甚至一些獨特的個性化要求也完全可以自己開發添加。雲錶鏈接外網，完全可以為企業解除信息孤島。

雲表的功能當然還不止於此。畢竟它是由原金山的WPS創業團隊耗時10年開發而成，並經過不斷完善的產品，還有：萬能數據透視分析、統計、大並發、簡訊通知、定時任務，外部數據源等功能，都能完美運行，且性能穩定可靠，還可以與大多的主流信息系統無縫對接，做到搭載多個信息系統，這樣的優勢是既可以保護企業原有的數據資產，又能有效地避免企業同時使用多個系統可能出現的衝突。還可以一鍵生成手機app，實現企業高效快捷移動化辦公。

雲表可不只是提供免費軟體，還提供免費培訓的哦，還有親切的客服會耐心回答您遇到的任何問題，包您輕鬆上手自己製作進銷存軟體。當然，也可以直接提要求定製，價格市面最低，全看您的需要。

雲表現有客戶有，華為、中鐵、中國電信、中冶、中國普天、燕山大學，中國電波傳播研究所等等，所以你也千萬不要錯過，畢竟免費，何不試試？

雲表永久免費軟體和培訓獲取方式在這裡。

1、點贊、關注、轉發走一波；

2、第二步：今日頭條APP里點我頭像找到私信，給我發送：111；（或者自己百度雲表官網）

希望這篇文章可以給題主和有需要的朋友帶來幫助。碼字不易，求贊求留言求轉發求鼓勵！

只需要簡單的三步，就可以高效快速地列印了。

插入數據透視表，並且將「型號」欄位放到篩選欄位區域。

利用數據透視表中的「顯示報表篩選頁」工具，將每一個型號拆分到獨立的工作表。

這是透視表自帶的小工具，以後需要根據某一個欄位拆分工作表的時候也可以用，舉一反三。

按住Shift鍵選中所有需要列印的工作表（成為工作組），Ctrl+P快速列印。

快速，高效，不容易出錯。你說呢？

我是微軟認證講師MCT，微軟MOS認證大師。

關注我，一起玩Office。

這個問題我思考了一下，暫時想到的呢是用VBA去解決。

說一下我的思路：

1. 進銷存明細表數據量較為龐大，涉及商品幾百個之多，不能用篩選的笨方法去逐個列印

2. 可能存在每個型號有多行數據的可能

3. 利用VBA將每個型號的數據單獨查詢出來

4. 再將查詢出來的數據附上表頭

5. 然後將帶有表頭的有效數據複製到新的工作簿中

6. 以產品型號為新的工作簿命名並保存

7. 多次循環以達到查詢出所有型號的產品的目的

8. 將所有單個產品型號的工作薄存儲在一個文件夾中

9. 最後列印所有新工作博

我簡單的做了一個進銷存的明細表，包含20個產品，示例如下：

VBA代碼示例如下（由於代碼佔用篇幅較大，我放在文末了）：

執行代碼後，已經創建好的存儲文件夾中：

隨便打開一個文件查看，新文件查詢生成ok

表頭沒問題，數據查詢沒問題，也不存在空文件

接下來，鑒於不能一次性列印太多的文件，只能選中一部分文件列印，如下：

• 由於需要定義要查找的內容，所以，在運行代碼前，我們需要將所有的產品類型找出來，相信這是個簡單的過程，大家能會做，如果有重複項，去重即可。

• 新建一個叫做「數組」sheet，並將所有的產品類型複製到第一列中，當然了，你也可以根據自己的需要去創建，但是在代碼中得隨著更改。如下圖：

• 修改你的進銷存的表頭在表格中的區域區域，如下圖：

• 修改表頭以下，數據內容的起始單元格，如下圖：

• 然後創建一個新文件夾，並將文件的地址，更改到代碼中，如下圖：

需要注意的最後一定要加一個「/」用以表示文件夾層級，在我的示例中，如果不標，就會把查詢後生成的文件都放到Desktop文件夾下，並且工作簿名會帶上「test」，這樣不行

• 將sheet切換到你的要查詢的進銷存表格，讓表格處於激活狀態

• 最後即可執行VBA代碼了

如果有報錯，就得自己檢查一下代碼了

Sub test()

Dim myText$, myRow As Long

Dim d As Object, myRng As Range, myRng1 As Range, i%

Application.ScreenUpdating = False "禁止運行時刷新

Application.DisplayAlerts = False "禁止告警

Set myRng1 = ActiveSheet.[A1:T2] "定義表頭位置

For i = 1 To 20 Step 1

Set d = CreateObject("scripting.dictionary")

myText = Sheets("數組").Cells(i, 1) "要查找的內容位置

With ActiveSheet.Cells "查找的範圍

Set c = .Find(myText, Lookat:=xlPart)

If Not c Is Nothing Then

firstAddress = c.Address

Do

myRow = c.Row

If d.exists(myRow) = False Then

If myRng Is Nothing Then Set myRng = Rows(myRow) Else Set myRng = Union(myRng, Rows(myRow))

d(myRow) = 0

End If

Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address <> firstAddress

End If

End With

If Not myRng Is Nothing Then

myRng1.Copy Workbooks.Add.Sheets(1).Range("A1") "複製表頭

myRng.Copy ActiveSheet.Range("A3") "複製內容

ActiveWorkbook.SaveAs Filename:="C:UsershxyuhDesktop est" & myText & ".xlsx" "新工作簿保存位置及工作簿名定義

ActiveWindow.Close

End If

Set myRng = Nothing

Next i

Application.ScreenUpdating = True "開啟運行時刷新

Application.DisplayAlerts = True "開啟告警

End Sub

回答完畢，我就不一一寫代碼的注釋了，有需要的朋友私信或者評論問我就行了。

太晚了，回答的比較倉促，代碼沒寫的那麼便於使用。歡迎大神們來補充優化，謝謝！

庫存商品明細賬分型號進行列印的問題，用數據透視表進行拆分，非常簡單，根本不需要VBA。具體操作方法如下：

在彈出的框里點擊「確定」，如下圖所示：

通過以上簡單的3步，報表就完全拆分好了，如下圖所示：

這是數據透視里最經典的報表拆分功能，在很多情況下都可以使用，表格拆分後，再列印全部工作表就可以了。

更多精彩內容，盡在【Excel到PowerBI】我是大海，微軟認證Excel專家，企業簽約Power BI顧問讓我們一起學習，共同進步！

謝邀。

商品的進銷明細是按時間順序記錄的商品一對多的N條記錄，每個商品都不同。

最簡單的方法就是數據篩選，但是幾百種商品，找也得找半天，還不看的頭暈眼花。

採用VBA吧，涉及到語法，編程，一般的使用者又望而生畏，就不是簡單的實現方法了。

我們換個思路，新建一個工作表。如果我們不採用下拉菜單選擇商品，而是直接在單元格輸入或者粘貼商品名稱。根據輸入商品名稱，通過VLOOKUP函數在總表中查找此商品，在新表中返回並列出此商品的所有明細。

不知能不能幫到你？

你列印的目的就是能知道庫存情況、直接用手機打開微信發現小程序搜索庫存表、然後在個人中心的網頁端增加好產品、只要用表裡的數據打開複製粘貼進去。然後手機與其它部門共享就可以隨時查閱庫存量和金額。打與不打都一樣、要列印只要導出表直接列印。同時可以掃碼進出庫管理、協同進出庫操作提醒功能。財務報表，客戶明細用料情況。

您好，由於不了解具體表格樣式及需要達到的效果，我只能根據您的描述給出一個大概的解決方案。

您應該是要列印出當年各個商品的明細，可以使用排序方便列印，開始-排序-自定義排序，主要關鍵字為商品的類別，次要關鍵字為時間，這樣排序得到的表格應該可以方便您列印。

由於不了解詳細情況只能給出一個大概的方法，如有需要，題主可以私聊我詳細說明。

打開微信發現小程序搜索庫存表、可以手機操作移動端、並且可以協同管理。後期會有網頁版直接打開列印就可以