Excel VBA宏代码：复制数据并插入

        这篇文章介绍了一段Excel VBA宏代码，用于在一个工作表中根据用户选择的内容筛选另一个工作表中的数据，并将筛选结果复制到原工作表中的选定行下方。该代码有助于提高数据处理的效率，特别是在需要从一个工作表中筛选数据并将其插入到另一个工作表时。这个代码主要用来划分企业级次。

        代码功能概述

        该VBA宏代码实现以下功能：

1. 获取用户在Sheet1中选定单元格的内容。
2. 在Sheet2中根据选定内容进行筛选。
3. 统计筛选结果的行数。
4. 在Sheet1中选定行的下方插入相同数量的空行。
5. 按照指定顺序（B、E、G、C）从Sheet2中复制数据并粘贴到Sheet1的相应位置。

        主要步骤解析

    1、获取选定单元格的内容

Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheet2")

         这段代码指定了我们要操作的工作表，即Sheet1和Sheet2。

    2、获取选定单元格的内容

selectedContent = Selection.Value

        这段代码获取用户在Sheet1中选定的单元格内容，作为筛选条件。 如sheet1的其中一个级次的企业名称为A，如图为sheet1表&#