You should note that this macro will delete only columns that are truly empty. The macro steps through the columns and if the column is truly blank, it is deleted. To use the macro, select the range of columns in which you want blank columns deleted. ![]() If WorksheetFunction.CountBlank(ActiveSheet.Columns(i)) = 65536 Then If you don't want your data sorted, then you can use a nifty macro that will check for blank columns in a selected range and then delete those columns. When sorting in this manner, all the empty columns end up "pushed" to the right, and your data is in a sorted order.
0 Comments
Leave a Reply. |