我能想到的只有這個了： 1、增加一列輔助列D，註明顏色。這個透過A列的顏色篩選很容易做到。例如第三行就變成了 廣州 小張 廣州第二小學 紅色 2、在程式碼視窗輸入以下程式碼然後執行，內容改動之後再執行一次就可： Sub sh() Dim i, n, a As Integer For i = 2 To 9 ’這裡的9可更改，根據你實際最多的行數來設定就可 For n = 0 To 2 If Sheet1.Cells(i, 4).Value = "紅色" Then Sheet2.Cells(i, 1).Offset(0, n).Value = Sheet1.Cells(i, 1).Offset(0, n).Value If Sheet1.Cells(i, 4).Value = "綠色" Then Sheet3.Cells(i, 1).Offset(0, n).Value = Sheet1.Cells(i, 1).Offset(0, n).Value Next n Next i End Sub 這是我第一次寫程式碼...所以...這個程式碼有個缺點就是生成到sheet2和sheet3裡面的存在空行。T.T內牛滿面……哪個高手過來寫個完美點的程式碼呀……讓我學習下……
我能想到的只有這個了： 1、增加一列輔助列D，註明顏色。這個透過A列的顏色篩選很容易做到。例如第三行就變成了 廣州 小張 廣州第二小學 紅色 2、在程式碼視窗輸入以下程式碼然後執行，內容改動之後再執行一次就可： Sub sh() Dim i, n, a As Integer For i = 2 To 9 ’這裡的9可更改，根據你實際最多的行數來設定就可 For n = 0 To 2 If Sheet1.Cells(i, 4).Value = "紅色" Then Sheet2.Cells(i, 1).Offset(0, n).Value = Sheet1.Cells(i, 1).Offset(0, n).Value If Sheet1.Cells(i, 4).Value = "綠色" Then Sheet3.Cells(i, 1).Offset(0, n).Value = Sheet1.Cells(i, 1).Offset(0, n).Value Next n Next i End Sub 這是我第一次寫程式碼...所以...這個程式碼有個缺點就是生成到sheet2和sheet3裡面的存在空行。T.T內牛滿面……哪個高手過來寫個完美點的程式碼呀……讓我學習下……