Bagaimana cara menghapus nol duplikat di beberapa baris dan kolom di Excel?

Apakah ada cara cepat untuk menghapus 0 di banyak sel di seluruh kolom dan baris? Saya tidak hanya ingin menghapus 0 tetapi saya juga ingin menggeser nilainya setelah 0 dihapus.

Saya telah menambahkan data sampel di bawah ini. Ada sekitar 100 baris dan kolom.

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

Status ideal setelah penghapusan harus:

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

Saya perlu membersihkan data sehingga saya bisa menggunakannya untuk perbandingan. Metode saat ini yang saya pikirkan adalah mengabaikan 0 dengan menambahkan pernyataan IF untuk mengabaikan nol ketika saya melakukan perbandingan.

Coba makro singkat ini:

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