JMP is able to script that for you
// Clear color for selected cells
Data Table("Untitled") << Select All Rows;
For Each({col}, {:Column 1, :Column 2}, col << Color Cells(""));
so with slight modification
For Each({colname}, Current Data Table() << Get Column Names("String"),
Column(Current Data Table(), colname) << Color Cells("");
);
-Jarmo