Sub sbPrintColorIndexColors() Dim iCntr For iCntr = 1 To 56 Cells(iCntr, 1).Interior.ColorIndex = iCntr Cells(iCntr, 1) = iCntr Next iCntr End Sub
实用VBA小脚本
原文：http://blog.51cto.com/marvinchen/2057817
