להלן קוד מתוקן כולל 0 בהתחלה

קוד PHP:

 Public Sub changeCells()

Dim iLastCol As Integer, iLastRow As Integer, intTmpCol As Integer, intTmpRow As Integer, iCol As Integer, iRow As Integer

iCol = 0
iRow = 0
iLastRow = Cells(Rows.Count, Left(ActiveCell.Address(0, 0, xlA1), 1)).End(xlUp).row
iLastCol = Cells(ActiveCell.row, Columns.Count).End(xlToLeft).Column
For intTmpCol = ActiveCell.Column To iLastCol
        For intTmpRow = ActiveCell.row To iLastRow
                ActiveCell.Offset(iRow, iCol).Value = Chr(34) & "0" & ActiveCell.Offset(iRow, iCol).Value & Chr(34)
                iRow = iRow + 1
        Next intTmpRow
        iRow = 0
        iCol = iCol + 1
Next intTmpCol

End Sub 


בהצלחה