Excel的VBA多个sheet数据拆分与批注提取及数据列去重复

1 Excel的所有文本内容进行合并去重

1.1未进行去重前效果

1.2 VBA代码去重数据列

Sub a()
Dim d As Object
Set d = CreateObject(“Scripting.Dictionary”)
Dim rng As Range
For Each rng In [a1:ek35] '数据源
If rng <> “” Then d(rng.Value) = “”
Next
[c1].Resize(d.Count) = Application.Transpose(d.keys)
Set d = Nothing
End Sub

1.3 VBA去重后效果

——————————————————————————————————————————————————————

2 Excel的多个sheet拆分成单个sheet文件

2.1 未拆分前sheet