Inverte os dígitos das colunas no Excel 2013 [duplicado]

Question

É tecnicamente possível inverter números de todas as células de uma coluna sem um plugin?

Por exemplo, uma planilha de duas colunas com

Ref, Weight
3300, 500
3200, 500

se tornaria

Ref, Weight
0033, 500
0023, 500

    

Answer 1

Selecione as células que você deseja processar e execute esta macro curta:

Sub flipper()
    Dim r As Range, s As String

    For Each r In Selection
        r.NumberFormat = "@"
        r.Value = StrReverse(r.Text)
    Next r
End Sub

As macros são muito fáceis de instalar e usar:

1. ALT-F11 exibe a janela do VBE
2. ALT-I ALT-M abre um novo módulo
3. cole o material e feche a janela do VBE

Se você salvar a pasta de trabalho, a macro será salva com ela. Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar o arquivo como .xlsm em vez de .xlsx

Para remover a macro:

1. abrir a janela do VBE como acima
2. limpe o código
3. feche a janela do VBE

Para usar a macro do Excel:

1. ALT-F8
2. Selecione a macro
3. Toque em EXECUTAR

Para saber mais sobre macros em geral, consulte:

link

e

link

As macros devem estar ativadas para que isso funcione!

EDIT # 1:

Se você deseja evitar macros e as células contiverem apenas dígitos e você estiver disposto a usar uma "coluna auxiliar", com dígitos na coluna A , em C1 digite:

=TEXT(SUMPRODUCT(MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1)*10^(ROW(INDIRECT("1:" & LEN(A1)))-1)),REPT("0",LEN(A1)))

e copie:

De T. Resposta de Valko