There are many ways of doing this (especially when scripting), below is one fairly simple script
Names Default To Here(1);
dt = New Table("Untitled",
Add Rows(7),
Compress File When Saved(1),
New Column("Column 1", Numeric, "Continuous", Format("Best", 12), Set Values([1, 1, 2, 3, 4, ., .])),
New Column("Column 2", Numeric, "Continuous", Format("Best", 12), Set Values([., 2, ., 2, ., ., 5])),
New Column("Column 3", Numeric, "Continuous", Format("Best", 12), Set Values([., ., ., ., ., ., .])),
New Column("Column 4", Numeric, "Continuous", Format("Best", 12), Set Values([., ., ., ., ., ., .])),
New Column("Column 5", Numeric, "Continuous", Format("Best", 12), Set Values([., ., ., ., ., ., 5]))
);
wait(1); // for demo purposes
For Each({colname}, dt << Get Column Names("String"),
If(Col Number(Column(dt, colname)) == 0,
dt << Delete Columns(colname);
);
);
You can also use Columns Viewer (in JMP earlier than 18) to select the columns and then delete them
![jthi_0-1727188723703.png jthi_0-1727188723703.png](/t5/image/serverpage/image-id/68553i47FBD764154EA138/image-size/medium?v=v2&px=400)
In JMP18 you have access to columns manager which might be able to do something similar (I cannot test it as I was kicked out and I don't have access to my email currently to re-verify...)
-Jarmo