[發問] 如何將彙總明細(sheet1)裡將各個所屬類別分列至各sheet檔

phoebegin

請教各位先進們~
   我想做類似會計科目帳~sheet1名稱為彙總明細，內容的類別分別為文具用品、醫療用品等項目,
                               sheet2名稱為文具用品
　　　　　　　　　　　　sheet3名稱為醫療用品
  請教，如果在sheet1類別屬於文具用品的部份如何直接條列在sheet2內（非合計）
　　　　　　　sheet1類別屬於醫療用品的部份如何直接條列在sheet3內
   請教各先進們，這有辦法達成嗎？謝謝 Book1.zip (2.01 KB)

下載次數: 27

2015-7-7 10:59

hcm19522

https://blog.xuite.net/hcm19522/twblog/590705199

singo1232001

回復 4# phoebegin

http://forum.twbts.com/thread-18354-1-1.html
我不太確定 先看看

phoebegin

請問各位前輩們，之前這個檔可以用，但自從excel改成2016版後，卻不斷呈現出錯（執行階段錯誤'28'堆疊空間不足，是哪裡出現問題了呢?

phoebegin

回復 2# GBKEE [/b

好厲害呀~
我~不會vba~
然直接將您提供的資料複製代碼~
就像變魔術一樣~把我拖很久的問題給解決掉~

GBKEE~真的感激你~謝謝~

GBKEE

回復 1# phoebegin
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet
   
4.     With Sheets("彙總明細")
   
5.         For Each Sh In Sheets          'Sheets : 工作表物件的集合物件
   
6.             If Sh.Name <> .Name Then   '工作表的名稱<>"彙總明細"
   
7.                 .Range("A1").AutoFilter Field:=2, Criteria1:=Sh.Name
   
8.                 '"彙總明細" 自動篩選  篩選基準欄位:=第2欄 , 篩選準則:="工作表名稱"
   
9.                 .UsedRange.Columns("a:d").Copy Sh.[a1] '"彙總明細" 自動篩選後的資料, 複製
   
10.             End If
    
11.         Next
    
12.         .Range("A1").AutoFilter   '取消 "彙總明細"自動篩選模式
    
13.     End With
    
14. End Sub

複製代碼