正文

VBA合并Excel数据实用技巧：轻松搞定多个工作表信息汇总

/0 浏览量
1106

在处理Excel数据时，我们常常需要将多个工作表中的信息进行汇总。使用VBA（Visual Basic for Applications）可以大大简化这一过程，提高工作效率。下面，我将分享一些实用的VBA技巧，帮助您轻松搞定多个工作表的信息汇总。

1. 使用VBA复制和粘贴数据

1.1 复制特定列

假设您有两个工作表，分别名为“Sheet1”和“Sheet2”，您想将Sheet1中的A列数据复制到Sheet2的B列。以下是相应的VBA代码：

Sub CopyColumn()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim rngSource As Range
    Dim rngTarget As Range

    ' 设置源和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")

    ' 设置源和目标范围
    Set rngSource = wsSource.Range("A1:A" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row)
    Set rngTarget = wsTarget.Range("B1")

    ' 复制数据
    rngSource.Copy
    rngTarget.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

1.2 复制整个工作表

如果您想复制整个工作表，可以使用以下代码：

Sub CopySheet()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet

    ' 设置源和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

    ' 复制工作表
    wsSource.Copy
End Sub

2. 使用VBA合并工作表

2.1 使用VBA创建新的汇总工作表

以下代码将Sheet1、Sheet2和Sheet3中的数据合并到新的工作表Sheet4中：

Sub MergeSheets()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim i As Integer

    ' 创建新的汇总工作表
    Set wsTarget = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsTarget.Name = "Sheet4"

    ' 合并工作表
    For i = 1 To ThisWorkbook.Sheets.Count
        If ThisWorkbook.Sheets(i).Name <> wsTarget.Name Then
            Set wsSource = ThisWorkbook.Sheets(i)
            wsSource.UsedRange.Copy wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    Next i
End Sub

2.2 使用VBA将多个工作表的数据合并到一个工作表的特定列

以下代码将Sheet1、Sheet2和Sheet3中的数据合并到Sheet4的B列：

Sub MergeColumns()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim i As Integer
    Dim lastRow As Long

    ' 设置目标工作表
    Set wsTarget = ThisWorkbook.Sheets("Sheet4")
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Row

    ' 合并工作表
    For i = 1 To ThisWorkbook.Sheets.Count
        If ThisWorkbook.Sheets(i).Name <> wsTarget.Name Then
            Set wsSource = ThisWorkbook.Sheets(i)
            wsSource.UsedRange.Copy wsTarget.Cells(lastRow + 1, "B")
            lastRow = wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Row
        End If
    Next i
End Sub

3. 使用VBA删除重复数据

假设您想删除Sheet1中A列的重复数据，可以使用以下代码：

Sub RemoveDuplicates()
    Dim ws As Worksheet
    Dim rng As Range

    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 设置范围
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

    ' 删除重复数据
    rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End Sub

总结

通过以上VBA技巧，您可以轻松地合并多个工作表的数据，提高Excel数据处理效率。在实际应用中，您可以根据自己的需求对代码进行修改和优化。希望这些技巧能对您有所帮助！

-- 展开阅读全文 --