【VBA案例011】合并工作表

归档779

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

276 字

1 分钟

【VBA案例011】合并工作表

2023-10-23

程技

VBA

浏览量加载中...

大家好！终于放假了，知了祝大家双节快乐！~

今天分享的案例非常的经典，它让我首次见识了VBA的魅力。也是从那会儿开始，命运的齿轮开始转动，走上了学习VBA的道路。

它就是：合并工作表。

问题很简单：就是把一个工作簿里的所有sheet合并到一个总表里边。

如下图：将 4个班级的信息合并。

以下是VBA代码（长按复制，可向右托动），详细解析请看文末视频。

方法一：复制粘贴#

1
Sub 复制粘贴()
2

3
    Dim sht As Worksheet
4
    Dim zongSht As Worksheet
5

6
    Set zongSht = Worksheets("总表")
7

8
    Dim rowsCount, zongRows
9
    For Each sht In Worksheets
10
        If sht.Name <> "总表" Then
11
            With sht
12
                rowsCount = .[a65536].End(3).Row
13
                zongRows = zongSht.[a65536].End(3).Row + 1
14
                .Range("a2:d" & rowsCount).Copy zongSht.Range("a" & zongRows)
15
            End With
16
        End If
17
    Next
18

19
End Sub

方法二：数组#

1
Sub 数组()
2

3
    Dim sht As Worksheet
4
    Dim zongSht As Worksheet
5

6
    Set zongSht = Worksheets("总表")
7

8
    Dim rowsCount, zongRows
9
    Dim tmpAr
10
    For Each sht In Worksheets
11
        If sht.Name <> "总表" Then
12
            With sht
13
                rowsCount = .[a65536].End(3).Row
14
                zongRows = zongSht.[a65536].End(3).Row + 1
15
                tmpAr = .Range("a2:d" & rowsCount)
16
                zongSht.Range("a" & zongRows).Resize(UBound(tmpAr), UBound(tmpAr, 2)) = tmpAr
17
            End With
18
        End If
19
    Next
20

21
End Sub