求助大神。帮忙做个多个sheet拆分代码

ykcbf1100

参与一下。。。

1. Sub 按一级部门拆分()   '//2024.3.12
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim t: t = Timer
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     Set ws = ThisWorkbook
   
7.     p = ThisWorkbook.Path & ""
   
8.     For Each sht In ws.Sheets
   
9.         Arr = sht.UsedRange
   
10.         For i = 2 To UBound(Arr)
    
11.             s = Trim(Arr(i, 1))
    
12.             If s <> "" Then d(s) = ""
    
13.         Next i
    
14.     Next sht
    
15.     For Each k In d.keys
    
16.         ws.Sheets.Copy
    
17.         Set wb = ActiveWorkbook
    
18.         For Each sht In Sheets
    
19.             With sht
    
20.                 .DrawingObjects.Delete
    
21.                 .AutoFilterMode = False
    
22.                 r = .Cells(Rows.Count, 1).End(3).Row
    
23.                 .Rows(1 & ":" & 1).AutoFilter
    
24.                 .Range("A1").AutoFilter Field:=1, Criteria1:="<>" & k
    
25.                 .Range(.Cells(2, 1), .Cells(r, 1)).EntireRow.Delete
    
26.                 .AutoFilterMode = False
    
27.             End With
    
28.         Next
    
29.         wb.SaveAs p & k
    
30.         wb.Close
    
31.     Next k
    
32.     Set d = Nothing
    
33.     Application.ScreenUpdating = True
    
34.     Application.DisplayAlerts = True
    
35.     MsgBox "拆分完毕，共用时： " & Format(Timer - t, "0.000秒"), , "提示"
    
36. End Sub
    

复制代码

fzxba

风向标----~ 发表于 2024-3-12 11:27
太感谢了，我下载，代码复制到在我的原表上试了下，完全可以，数据也没乱，太感谢了。但是在wap上提示错 ...

风向标----~

ykcbf1100 发表于 2024-3-12 12:07
参与一下，筛选法

下载不了，显示检查的病毒

风向标----~

ykcbf1100 发表于 2024-3-12 12:07
参与一下，筛选法

下载不了，显示检查到病毒

风向标----~

fzxba 发表于 2024-3-12 13:40

是的，有您刚说的这几个问题，很感谢您解决了我大问题，谢谢~

ykcbf1100

风向标----~ 发表于 2024-3-12 13:52
是的，有您刚说的这几个问题，很感谢您解决了我大问题，谢谢~

我的代码已上传，你用这个代码试一下好了。

风向标----~

ykcbf1100 发表于 2024-3-12 14:08
我的代码已上传，你用这个代码试一下好了。

试了，拆出来的不太理想

ykcbf1100

风向标----~ 发表于 2024-3-12 14:31
试了，拆出来的不太理想

什么叫不太理想。你也没说怎么拆，只说按部门拆。你说说哪里不理想。