[發問] 工作表資料分類另存工作表

missbb

各位, 本人有一WORKBOOK內有資料, 需要在SORTING "地區" 和"組別" 後. 按"地區"另存新WORKSHEET, 並以"地區" 作為WORKSHEET名稱, 但下列CODE有問題, 求教問題所在:D
工作表另存 (2).zip (22.65 KB)

下載次數: 2

2024-9-15 15:25

1. Sub TSsheet2()
   
2. 
   
3. Application.ScreenUpdating = 0
   
4. Dim rng As Range, d As Object, ws As Worksheet
   
5. Set ws = ActiveSheet
   
6. ws.AutoFilterMode = False
   
7. c = [a5].CurrentRegion.Columns.Count
   
8. Set d = CreateObject("scripting.dictionary")
   
9. Set rng = Range([a5], Cells(Cells(Rows.Count, 1).End(1).Row, c))
   
10. a = rng.Columns(3)
    
11. For i = 2 To UBound(a)
    
12.     d(a(i, 1)) = ""
    
13. Next
    
14. k = d.keys
    
15. For i = 0 To UBound(k)
    
16.     ws.Copy after:=Sheets(Sheets.Count)
    
17.     ActiveSheet.AutoFilterMode = False
    
18.     [a5].CurrentRegion.Clear
    
19.     With ws
    
20.         rng.AutoFilter Field:=1, Criteria1:=k(i)
    
21.         .[a5].CurrentRegion.Copy [a5]
    
22.         
    
23.     End With
    
24.         
    
25.     ActiveSheet.Name = [A6].Value
    
26. Next
    
27. Application.ScreenUpdating = 1
    
28. 
    
29. With Sheets("data").Activate
    
30.     If ActiveSheet.FilterMode Then
    
31.       ActiveSheet.ShowAllData
    
32.     End If
    
33.    
    
34. End With
    
35. 
    
36. End Sub

複製代碼

catbears

嘗試著逐行分解
發現第9行當中
Set rng = Range([a5], Cells(Cells(Rows.Count, 1).End(1).Row, c))

Rows.Count > 這邊的資料會跳到整張EXCEL表中的最後一行，有點看不太懂您要做的事情，因此僅能告知您的這部分開始就已經跳脫出程式操作的內容了
是否能稍作說明您每步驟想做的事情呢？

准提部林

1.找最後非空行, 應使用 xlup(3), 而非 (1)
Set rng = Range([a5], Cells(Cells(Rows.Count, 1).End(1).Row, c))
Set rng = Range([a5], Cells(Cells(Rows.Count, 1).End(3).Row, c))

2.篩選欄位
a = rng.Columns(3) '篩選文字在第3欄
rng.AutoFilter Field:=1, Criteria1:=k(i) '這個1應改成3

3.工作表名稱
ActiveSheet.Name = [C6].Value