Excel VBA：将数据按特定格式粘贴至另一工作表

嗨，看你VBA基础比较薄弱，我特意写了一份简单易懂的代码，还会一步步给你解释怎么用，保证你能轻松实现需求～

先明确下你的需求：

Sheet1的A列是具体项，B列是分类，想要在Sheet2中按分类分组展示——先显示分类名称，换行后列出该分类下的所有A列内容，不同分类之间用空行分隔。

完整VBA代码 #

Sub GroupAndOutput()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long, targetRow As Long
    Dim currentCategory As String
    
    ' 指定源工作表（Sheet1）和目标工作表（Sheet2）
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 清空Sheet2的旧内容，避免干扰
    wsTarget.Cells.Clear
    
    ' 获取Sheet1中B列数据的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "B").End(xlUp).Row
    
    ' 初始化Sheet2的起始写入行
    targetRow = 1
    
    ' 先按B列排序，确保同分类的项连在一起（这步很重要！）
    wsSource.Range("A1:B" & lastRow).Sort Key1:=wsSource.Range("B1"), Order1:=xlAscending, Header:=xlNo
    
    ' 遍历Sheet1的每一行数据
    For i = 1 To lastRow
        ' 遇到新分类时的处理
        If wsSource.Cells(i, "B").Value <> currentCategory Then
            ' 不是第一个分类的话，先加个空行分隔
            If currentCategory <> "" Then
                targetRow = targetRow + 1
            End If
            ' 写入分类名称到Sheet2
            wsTarget.Cells(targetRow, "A").Value = wsSource.Cells(i, "B").Value
            targetRow = targetRow + 1
            ' 更新当前分类
            currentCategory = wsSource.Cells(i, "B").Value
        End If
        ' 写入当前A列的内容到Sheet2
        wsTarget.Cells(targetRow, "A").Value = wsSource.Cells(i, "A").Value
        targetRow = targetRow + 1
    Next i
End Sub

代码关键部分解释 #

• 指定工作表：Set wsSource = ... 这两行帮你自动定位Sheet1和Sheet2，不用手动切换工作表。
• 清空旧数据：wsTarget.Cells.Clear 每次运行代码前会清空Sheet2，避免旧数据和新结果混在一起。
• 排序处理：排序是核心前提！只有同分类的项挨在一起，才能正确分组。如果你的原始数据已经按B列排好序了，可以把这行代码注释掉（前面加'），但保留它更保险。
• 循环遍历：代码会逐行检查Sheet1的数据，遇到新分类就先写分类名，再换行写对应的A列内容，分类之间自动添加空行分隔。

怎么使用这个代码 #

1. 打开你的Excel文件，按下 Alt + F11 打开VBA编辑器。
2. 在左侧的「工程资源管理器」里，右键点击你的工作簿名称，选择「插入」→「模块」。
3. 把上面的代码复制粘贴到新模块里。
4. 回到Excel界面，按下 Alt + F8，在弹出的窗口里选择 GroupAndOutput，点击「执行」就能看到结果啦！

内容的提问来源于stack exchange，提问作者Rockstar