stillfish00

6¤£¤ÓÀ´ , §A¸Õ¬Ý¬ÝÁÙ¦³¤°»ò°ÝÃD

1. Sub paper2()
   
2.     Workbooks(ThisWorkbook.Sheets("VBA").[A2].Value).Sheets("³øªí").Range("D:K").Copy   '½Æ»sDÄæ¨ìKÄæ
   
3.    
   
4.     With Workbooks.Add  '·s¼W¤@ªÅ¥Õ¬¡­¶Ã¯
   
5.         With .Sheets(1)
   
6.             .Name = "³øªí"
   
7.             .[A1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  '¶K¤W­È
   
8.             .[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  '¶K¤W¨Ó·½®æ¦¡
   
9.             
   
10.             '¤p­p
    
11.             .[A2].Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7, 8), _
    
12.                     Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    
13.             
    
14.             .[A:A].Delete Shift:=xlToLeft       '¤p­p«á§R°£AÄæ
    
15.             .Outline.ShowLevels RowLevels:=2    '¤p­p«á¿ï#2
    
16.         End With
    
17.         .SaveAs "D:\©â¤ô¾÷¼Æ¾Ú¤ÀªR³øªí\©â¤ô¾÷¼Æ¾Ú¤ÀªR_­È.xlsx"  'Àx¦sÀÉ®×
    
18.         .Close
    
19.     End With
    
20.    
    
21.     'Ãö³¬ÀÉ®×
    
22.     Workbooks(ThisWorkbook.Sheets("VBA").[A2].Value).Close False
    
23.     ThisWorkbook.Close False
    
24. End Sub

½Æ»s¥N½X

¦^´_ 1# PJChen

stillfish00

1. Sub paper2()
   
2.     With Workbooks(ThisWorkbook.Sheets("VBA").[A2].Value).Sheets("³øªí")
   
3.         .UsedRange.Value = .UsedRange.Value    '§ï¬°­È
   
4.         .Range("A:C").Delete Shift:=xlToLeft   '§R°£A:C
   
5.         
   
6.         '¤p­p
   
7.         .[A2].Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7, 8), _
   
8.                 Replace:=True, PageBreaks:=False, SummaryBelowData:=True
   
9.         .[A:A].Delete Shift:=xlToLeft       '¤p­p«á§R°£AÄæ
   
10.         .Outline.ShowLevels RowLevels:=2    '¤p­p«á¿ï#2
    
11.         .SaveAs "D:\©â¤ô¾÷¼Æ¾Ú¤ÀªR³øªí\©â¤ô¾÷¼Æ¾Ú¤ÀªR_­È.xlsx"  'Àx¦sÀÉ®×
    
12.         .Parent.Close False
    
13.     End With
    
14.    
    
15.     'Ãö³¬³øªíµ{¦¡
    
16.     ThisWorkbook.Close False
    
17. End Sub

½Æ»s¥N½X

¦^´_ 3# PJChen