筛选数据

EXCEL问题用函数如何将表一中

你的问题要用宏来解决，首先你把Excel的宏安全设置成中或低，建议设置成中，然后打开下面的附件，会弹出宏安全提示，点击“启用宏”按钮，这样表里的宏代码就可以生效了。使用的时候，点击一下表1里的那个按钮，就会自动生成表2的数据。 不好意思，是我粗心没有看清楚，现在答案已经作了修改了。 没问题，下面我就把代码作下解释 Sub scbr() With Sheets(2)'把表二作为With集合 。Cells。 Clear'清除表二的所有数据 Rows(1)。Copy 。Rows(1)'把表一的第一行拷贝到表二 For Each rn In UsedRange'设置全部数据区内循环 If r...全部

  你的问题要用宏来解决，首先你把Excel的宏安全设置成中或低，建议设置成中，然后打开下面的附件，会弹出宏安全提示，点击“启用宏”按钮，这样表里的宏代码就可以生效了。使用的时候，点击一下表1里的那个按钮，就会自动生成表2的数据。
   不好意思，是我粗心没有看清楚，现在答案已经作了修改了。 没问题，下面我就把代码作下解释 Sub scbr() With Sheets(2)'把表二作为With集合 。Cells。
  Clear'清除表二的所有数据 Rows(1)。Copy 。Rows(1)'把表一的第一行拷贝到表二 For Each rn In UsedRange'设置全部数据区内循环 If rn。
  Interior。ColorIndex = 3 Then'当单元格的为红色时运行下面的代码 en = 。[A65536]。End(3)。Row + 1'确定表二的最下一行有数据行的下一行 Range("A" & rn。
  Row, "E" & rn。Row)。Copy 。Range("A" & en)'如果前面的条件满足即为红色时，就把该行的A到E列复制到表二的有数据行的下一行 Range(rn。
  Offset(, -1), rn)。Copy 。Range("F" & en)'把红色单元格及它的前一个单元格，也拷贝到表二有数据行的下一行 End If'结束条件语句 Next'结束循环 。
  Select'选择表二 End With'With集体结束 End Sub 。收起