返回列表 上一主題 發帖

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

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-9-15 15:29 | 只看該作者

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

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

  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

  29. With Sheets("data").Activate
  30.     If ActiveSheet.FilterMode Then
  31.       ActiveSheet.ShowAllData
  32.     End If
  33.    
  34. End With

  36. End Sub
複製代碼
收藏 分享

catbears

帖子
18 
主題
0 
精華
0 
積分
68 
點名
56  
作業系統
Windows 10 
軟體版本
Office 365 
閱讀權限
20 
註冊時間
2022-4-20 
最後登錄
2025-4-29 
2#
發表於 2024-12-10 15:45 | 只看該作者
嘗試著逐行分解
發現第9行當中
Set rng = Range([a5], Cells(Cells(Rows.Count, 1).End(1).Row, c))

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

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-10-18 
3#
發表於 2024-12-11 12:28 | 只看該作者
本帖最後由 准提部林 於 2024-12-11 19:48 編輯

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

TOP

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題