我試圖對您的描述和樣本數據/結果中的實際數據有所瞭解。這是我想出的。
懷着這樣的活動工作表,我跑了這個宏。
Sub organize_by_color()
Dim rws As Long, c As Long, iCLR As Long, ws As Worksheet, wsT As Worksheet
Set ws = ActiveSheet
Set wsT = Worksheets.Add(after:=Sheets(Sheets.Count))
iCLR = 49407 'Orange e.g. RGB(255, 192, 0)
wsT.Cells(1, 1).Resize(1, 2) = Array("Job A", "Job B")
With ws.Cells(1, 1).CurrentRegion
.AutoFilter
For c = 2 To .Columns.Count
.AutoFilter Field:=c, Criteria1:=iCLR, Operator:=xlFilterCellColor
With .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
rws = Application.Subtotal(103, .Columns(1))
If CBool(rws) Then
.Columns(1).Copy Destination:=wsT.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
wsT.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(rws, 1) = ws.Cells(1, c).Value
End If
End With
.AutoFilter Field:=c
Next c
.AutoFilter
End With
Set ws = Nothing
Set wsT = Nothing
End Sub
這在工作表集合的末尾創建了一個新的工作表,其結果如下。
在我看來,沒有在其列ë多點:在原有數據F任何關係指出也就已經被其反向發現通過前三列,但我猜想數據編輯可能會考慮冗餘。或者我的假設可能完全錯誤,因爲未注意到數據樣本中矩陣中的哪些單元格實際上包含橙色回填。也許你將能夠爲了你自己的目的而轉錄它。如果遇到困難,請回復問題和具體內容。
很難理解你在問什麼,這背後的邏輯是什麼? – Davesexcel 2015-04-03 18:57:05
您有發佈圖片的聲望。向我們展示彩色細胞可能會讓你明白你的意思。 – 2015-04-03 22:16:52