Delete zero columns in images

How are you everyone! I need your help to solve this problem :

If I have an image which contains columns with all elements equal to zero , how can delete the columns?

For example , if I have the image

A= [ 1 0 2 3 4 ;0 0 5 4 3 ;5 0 7 6 5;3 0 4 3 0]

How can I delete the second column ? The result I want is

AA=[1 2 3 4 ;0 5 4 3 ;5 7 6 5 ;3 4 3 0]

Any answer will be appreciated Thank you.

Answer 1

[Azzi Abdelmalek]

A= [ 1 0 2 3 4 ;0 0 5 4 3 ;5 0 7 6 5;3 0 4 3 0]
AA=A(:,any(A))

[Guillaume]

Or

A(:, ~any(A)) = [];

To actually delete the columns.

[majed majed]

Thank you brother for your answer

Answer 2

[Muhammad Usman Saleem]

A= [ 1 0 2 3 4 ;0 0 5 4 3 ;5 0 7 6 5;3 0 4 3 0]
A =

     1     0     2     3     4
     0     0     5     4     3
     5     0     7     6     5
     3     0     4     3     0

A(:,2)=[];

A =

     1     2     3     4
     0     5     4     3
     5     7     6     5
     3     4     3     0

[majed majed]

Thank you bro for answering