Инвертировать цифры из столбцов в Excel 2013 [дубликаты]

2

На этот вопрос уже есть ответ здесь:

Технически возможно перевернуть числа из всех ячеек в столбце без плагина?

Например, электронная таблица из двух столбцов с

Ref, Weight
3300, 500
3200, 500

Станет

Ref, Weight
0033, 500
0023, 500
Zulgrib
источник
@BenN 3200 обратная является 0023 согласно его примеру
DavidPostill

Ответы:

1

Выберите ячейки, которые вы хотите обработать, и запустите этот короткий макрос:

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

Макросы очень просты в установке и использовании:

  1. ALT-F11 открывает окно VBE
  2. ALT-I ALT-M открывает новый модуль
  3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel позже, чем 2003, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

  1. откройте окно VBE, как указано выше
  2. очистить код
  3. закройте окно VBE

Чтобы использовать макрос из Excel:

  1. ALT-F8
  2. Выберите макрос
  3. Нажмите RUN

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Макросы должны быть включены, чтобы это работало!

EDIT # 1:

Если вы хотите избежать макросов и ячейки содержат только цифры, и вы хотите использовать «вспомогательный столбец», то с цифрами в столбце , в С1 войти:

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

и скопируйте вниз: enter image description here

От Ответ Т. Валько

Gary's Student
источник
Выглядит многообещающе, тестирую это сейчас!
Zulgrib
Плохой процессор Pentium с годовщиной сильно пострадал с точки зрения использования процессора, но он работает, как и ожидалось, использует несколько ядер, очень эффективно, большое спасибо! (Протестировано решение VBE)
Zulgrib
@Zulgrib ................. Рад помочь ..............
Gary's Student