返回列表 上一主題 發帖

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

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

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

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 2# GBKEE [/b

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

GBKEE~真的感激你~謝謝~

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題