返回列表 上一主題 發帖

如何寫巨集清除有顏色儲存格的內容

如何寫巨集清除有顏色儲存格的內容

請教大大,如何寫巨集清除有顏色儲存格的內容
謝謝!

圖片.png
2016-5-20 09:30


清除有顏色儲存格內容.zip (15.51 KB)

請使用底下代碼
Cells.Interior.Color = xlNone
試試看~

TOP

Sub TEST_A()

For A = 1 To Cells(Rows.Count, "A").End(3).Row

If Cells(A, 1).Interior.ColorIndex <> xlNone Then

Cells(A, 1).Value = ""

End If

Next

End Sub
cjw

TOP

本帖最後由 kim223824 於 2017-7-29 09:46 編輯

Sub TEST_B()
         Cells.ClearContents
End Sub

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題