【VBA案例015】拆分工作表（下）

归档779

审技265 程技242 投技146 财技57 税技47 法技11 食技7 书技4

331 字

2 分钟

【VBA案例015】拆分工作表（下）

2023-10-23

程技

VBA

浏览量加载中...

大家好！书接上文，继续聊一聊拆分工作表的第二个方法。

众所周知，字典中的值不仅可以是数字、字符串，还可以是数组和对象！

上一个方法是将数组装到了字典里，这第二个方法想必大家已经猜到了，就是把对象装进字典里。

首先简单介绍一下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
Sub range装进字典()
2
    Dim i, j, k
3
    Dim ar, tmp()
4
    Dim d As Object, kw$
5
    Set d = CreateObject("Scripting.Dictionary")
6
    'd.CompareMode = vbTextCompare '不区分大小写
7

8
    ar = Range("a1:e" & [a65536].End(3).Row)
9
    Dim irow
10
    For i = 2 To UBound(ar)
11
        kw = ar(i, 4)
12
        If Not d.exists(kw) Then
13
            Set d(kw) = Union(Range("a1:e1"), Range("a" & i & ":e" & i))
14
        Else
15
            Set d(kw) = Union(d(kw), Range("a" & i & ":e" & i))
16
        End If
17
    Next i
18

19
    Dim dk
20
    For Each dk In d.keys
21
        With ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
22
            .Name = dk
23
            d(dk).Copy .[a1]
24
        End With
25
    Next
26

27
End Sub