現在sheet1中我把一些符合給定條件的單元格全標紅了，然后我想將A列中沒(méi)標顏色的單元格復制到sheet2的A列，并連續顯示，不必單元格對應，B列也同樣如此，如果這一列中沒(méi)有沒(méi)標色的，那就留空，也就是列與列要對應。sheet1中一列的數據有多有少無(wú)法確定，但能肯定的是他們是連續的，也就是如果有空白格，證明這一列的數據就沒(méi)了。請問(wèn)如何編寫(xiě)呢?
***********************************************************
Sub test()
'假設sheet1的A列從第一行開(kāi)始有數據，以下就可以實(shí)現
For i = 1 To Sheet1.Cells(1, 1).End(xlDown).Row
If Sheet1.Cells(i, 1).Interior.ColorIndex = xlNone Then
Sheet1.Cells(i, 1).Copy Sheet2.Cells(Sheet2.Cells(65536, 1).End(xlUp).Row + 1, 1)
End If
Next
End Sub
對于B列也是一樣，參照這個(gè)
寫(xiě)法把相應的列換成B列的就可以了
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
