去指变量字符串指定后位求教各位老师

水木清扬

如以下数组元素工程部[H]
研发部[H]
生产部(H)
数组处理后去掉非中文字符，变成如下输出：
工程部
研发部
生产部

kuangben8

这个就是拆分工作表啊，论坛里有很多这方面的例子了。

水木清扬

kuangben8 发表于 2020-12-18 14:43
这个就是拆分工作表啊，论坛里有很多这方面的例子了。

这里面有一个工作表数据类型的问题搞不掂啊。

kuangben8

1. Sub 拆分工作表()
   
2.     Dim Sht As Worksheet
   
3.     Dim arr, m&, n%, Str
   
4.     Dim dic As Object
   
5.     Set dic = CreateObject("Scripting.Dictionary")
   
6.     Application.DisplayAlerts = False
   
7.     For Each Sht In ThisWorkbook.Worksheets
   
8.         If Sht.Name <> "总表" Then
   
9.             Sht.Delete
   
10.         End If
    
11.     Next
    
12.     Application.DisplayAlerts = True
    
13.     With Worksheets("总表")
    
14.         arr = .Range("A1").CurrentRegion
    
15.         For m = 2 To UBound(arr, 1)
    
16.             If Not dic.Exists(arr(m, 2)) Then
    
17.                 Set dic(arr(m, 2)) = .Range("A1:N1")
    
18.             End If
    
19.             Set dic(arr(m, 2)) = Union(dic(arr(m, 2)), .Range("A" & m & ":N" & m))    '写在此处才能完整的记录所有数据
    
20.         Next
    
21.     End With
    
22.     Application.ScreenUpdating = False
    
23.     For Each Str In dic.keys
    
24.         With Worksheets.Add(After:=Worksheets(Sheets.Count))
    
25.             .Name = WorksheetFunction.Substitute(Str, "/", "-")
    
26.             dic(Str).Copy .Range("A1")
    
27.         End With
    
28.     Next
    
29.     Worksheets("总表").Activate
    
30.     Application.ScreenUpdating = True
    
31. End Sub

复制代码

kuangben8

代码审核中。参考附件吧。 资料总表.zip (24.91 KB, 下载次数: 15)

2020-12-18 14:51 上传

点击文件名下载附件

kuangben8

水木清扬 发表于 2020-12-18 14:48
这里面有一个工作表数据类型的问题搞不掂啊。

你怎么把1楼的内容和附件弄没有了？这样导致我的回复变的莫名其妙了。

水木清扬

kuangben8 发表于 2020-12-18 14:53
你怎么把1楼的内容和附件弄没有了？这样导致我的回复变的莫名其妙了。

不好意思，不小心操作错了，你的回复对我还是很有帮助的。谢谢你。