大家好！书接上文，继续聊一聊拆分工作表的第二个方法。
众所周知，字典中的值不仅可以是数字、字符串，还可以是数组和对象！
上一个方法是将数组装到了字典里，这第二个方法想必大家已经猜到了，就是把对象装进字典里。
首先简单介绍一下Union函数的使用方法。Union：返回两个或多个区域的合并区域。
语法：
Union(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30) AS Range
参数：
Arg1 必需 Range类型。
Arg2 必需 Range类型。
Arg3– Arg30 可选 Variant类型。
返回：
Range类型。
另外一点需要强调的是，VBA中给对象变量赋值使用Set，并且Set不能省略。
以下是VBA代码。详细解析请看文末的视频。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Sub range装进字典()
Dim i, j, k
Dim ar, tmp()
Dim d As Object, kw$
Set d = CreateObject("Scripting.Dictionary")
'd.CompareMode = vbTextCompare '不区分大小写
ar = Range("a1:e" & [a65536].End(3).Row)
Dim irow
For i = 2 To UBound(ar)
kw = ar(i, 4)
If Not d.exists(kw) Then
Set d(kw) = Union(Range("a1:e1"), Range("a" & i & ":e" & i))
Else
Set d(kw) = Union(d(kw), Range("a" & i & ":e" & i))
End If
Next i
Dim dk
For Each dk In d.keys
With ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
.Name = dk
d(dk).Copy .[a1]
End With
Next
End Sub
|
原始链接
相关文章：VBA 35
