excel vba 如何依次输出某个符合条件的单元格，到另外一张表中：

Question

例如：sheet1中，单元格J30，K26，K30，T19是橙色；我在sheet2 c3输出：吉林D3 2013-4-19，E3输出 橙色;C4输出：河北，D4 2013-4-20，E4输出 橙色。。。

Answer 1

给你个提示：
……………………
获得区域cArea、日期dDate、颜色nColor(通过nColor=ActivateCell.Interior.ColorIndex取值)
Sheet2.Activate
定位行号nRow
Cells(nRow,3).Activate
ActiveCell.Value=cArea
Cells(nRow,4).Activate
ActiveCell.Value=dDate
Cells(nRow,5).Activate
ActiveCell.Interior.ColorIndex = nColor

Answer 2

Private Sub CommandButton1_Click()
a = Sheet1.UsedRange.Rows.Count
b = Sheet1.UsedRange.Columns.Count
For i = 10 To b
s = 2
For j = 4 To a
Sheet1.Cells(j, i).Select
If Selection.Interior.ColorIndex = 3 Then ‘ 留意颜色序号（3为红色）
s = s + 1
Sheet2.Cells(s, 3) = Sheet1.Cells(j, 1)
Sheet2.Cells(s, 4) = Sheet1.Cells(2, i)
Sheet2.Cells(s, 5) = "橙色"
End If
Next j
Next i
End Sub

Answer 3

把你的表格发我邮箱，举例说清楚目的与要求，[email protected]