用函数如何将表一中红色的单元格提取出来并制作出表二（见附件）
你的问题要用宏来解决，首先你把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
。收起
