i want to delete a specific number of NaN in a matrix

i have a matrix A, and i would like to delete the columns with all cells NaN and the ones with just one valid number

A =

     1     3     5     1   NaN
     2     3     4   NaN   NaN
   NaN     4     2   NaN   NaN
   NaN   NaN   NaN   NaN   NaN
   NaN   NaN   NaN   NaN   NaN
   NaN   NaN   NaN   NaN   NaN

and i manage to delete some with

A(:,all(isnan(A)))=[] %to al column with all cells as NaN
A(:,any(isnan(A)))=[] %to whatever nan i find

Answer 1

[madhan ravi]

A(:,all(isnan(A)))=[]; % delete columns with only NaNs
A(:,sum(~isnan(A))==1)=[] % deletes column filled with one number

[Marco Callado]

It was really helpful

Thank you