Como remover zeros duplicados em várias linhas e colunas no Excel?

Question

Existe uma maneira rápida de remover 0s em várias células em colunas e linhas? Eu não quero apenas excluir os 0s, mas também quero mudar os valores depois que os 0s forem removidos.

Eu adicionei dados de amostra abaixo. Existem cerca de 100 linhas e colunas.

Column 1 Column 2 Column 3
0        data3    0
data1    0        data5      
data2    data4    0

O estado ideal após a remoção deve ser:

Column 1 Column 2 Column 3
data1    data3    data 5
data2    data4            

Eu preciso limpar os dados para que eu possa usá-los para comparação. O método atual em que pensei é apenas ignorar os 0s, adicionando uma instrução IF para ignorar os zeros quando faço a comparação.

    

Answer 1

Experimente esta macro curta:

Sub newbie()
    Dim r As Range
    Dim nLastColumn As Long
    Dim nFirstColumn As Long
    Dim N As Long, i As Long, j As Long

    ActiveSheet.UsedRange
    Set r = ActiveSheet.UsedRange

    nLastColumn = r.Columns.Count + r.Column - 1
    nFirstColumn = r.Column

    For i = nFirstColumn To nLastColumn
        N = Cells(Rows.Count, i).End(xlUp).Row
        For j = N To 1 Step -1
            If Cells(j, i).Value = 0 Then
                Cells(j, i).Delete Shift:=xlUp
            End If
        Next j
    Next i
End Sub