引言

在处理Excel数据时，成绩的合并是一个常见且有时较为复杂的问题。使用VBA（Visual Basic for Applications）可以轻松实现成绩的自动合并，提高工作效率。本文将详细介绍如何使用VBA破解Excel成绩合并难题，实现一键汇总。

1. 准备工作

在开始之前，请确保您已经安装了Microsoft Office，并且打开了Excel软件。

2. 创建VBA宏

2.1 打开VBA编辑器

  1. 打开Excel，按下 Alt + F11 打开VBA编辑器。
  2. 在VBA编辑器中，找到“插入”菜单，选择“模块”，创建一个新的模块。

2.2 编写VBA代码

在新建的模块中，复制以下代码：

Sub 合并成绩()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long
    Dim sourceRange As Range, targetRange As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("成绩表1")
    Set wsTarget = ThisWorkbook.Sheets("成绩表2")
    
    ' 设置源和目标范围
    Set sourceRange = wsSource.Range("A1:C" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row)
    Set targetRange = wsTarget.Range("A1:C" & wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row)
    
    ' 合并数据
    For i = 1 To sourceRange.Rows.Count
        targetRange.Rows(targetRange.Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 3).Value = sourceRange.Rows(i).Value
    Next i
    
    ' 提示完成
    MsgBox "成绩合并完成！", vbInformation
End Sub

2.3 运行宏

  1. 关闭VBA编辑器。
  2. 在Excel中，按下 Alt + F8 打开“宏”对话框。
  3. 选择“合并成绩”宏，点击“运行”。

3. 结果分析

运行宏后，您可以看到“成绩表2”中的数据已经与“成绩表1”合并完成。这样，您就可以轻松实现成绩的一键汇总。

4. 总结

通过使用VBA，我们可以轻松破解Excel成绩合并难题，实现一键汇总。这种方法不仅提高了工作效率，还减少了人为错误的可能性。希望本文能帮助到您！