[Солидворкер]

Коллеги, подскажите, не могу сообразить, можно ли штатными средствами Excel сделать следующее
Есть столбец, строки которого выглядят примерно так:
1221AC
12D2F8
112323
11E768
Строки надо привести к следующему виду:
0001221AC
00012D2F8
000112323
00011E768

Есть другой столбец, строки которого выглядят примерно так:
12345
5487256
1275
35666693
Строки надо привести к следующему виду:
000012345
005487256
000001275
035666693

Есть идеи? Заранее спасибо!

[Хмурый]

или текстовый формат или выбрать из все форматы

[Кулик Алексей aka kpblc]

Поскольку во втором случае длина строки переменная, придется (опасаюсь) использовать VBA:

Код:

[Выделить все]

Function AddZeros(CellValue As String, MaxLen As Integer) As String
  With ThisWorkbook
    While Len(CellValue) < MaxLen
      CellValue = "0" & CellValue
    Wend
  End With
  AddZeros = CellValue
End Function

В ячейке результата пишется формула

Код:

[Выделить все]

=AddZeros(A1;10)

---
Нда, решение Хмурого, как всегда, просто и изящно...

[Солидворкер]

Образец забыл

[Наталья]

Самое интересное, чем выше версия экселя, тем больше нулей он добавляет. У меня версия 2003 года, и добавляется всего 4 цифры. А смотрю, у Хмурого в ответе 6 цифр. Видать версия поновее моей.

Ох, и не люблю я этот RC-вид имен ячеек...

[Солидворкер]

Хмурый, а ведь не добавляется нулей... Если создать новые ячейки, то там все в порядке -добавляются, а в те, что уже есть -нет

AlphaGeo, а удочку?

[Хмурый]

Наталья, Offtop: сколько нулей в ячейку забьёшь- такой и формат будет.

[Солидворкер]

AlphaGeo, туплю к вечеру, вроде идею ухватил, спасибо!

Сообщение от Солидворкер AlphaGeo, а удочку?

Сообщение от Солидворкер AlphaGeo, туплю к вечеру, вроде идею ухватил, спасибо!

Какую удочку? Там все просто функциями... Хотя сам в последнее время предпочитаю использовать VBA: файл весит меньше и обрабатывается быстрее. Но у меня Excel'евские файлы многомегабайтные...

[Хмурый]

Сообщение от Солидворкер Хмурый, а ведь не добавляется нулей... Если создать новые ячейки, то там все в порядке -добавляются, а в те, что уже есть -нет

Извини. Сразу не догнал, что тебе нужно готовую таблицу отформатировать.

[Кулик Алексей aka kpblc]

Кхек, для варианта форматирования ячейки попробуйте сделать там текст. Или нецелое число поставить

[Солидворкер]

AlphaGeo, спасибо, все получилось!

Добавлено

Есть еще одна проблема. Из столбца, где только числа (12 знаков) надо "выжать" все пробелы

[Хмурый]

СЖПРОБЕЛЫ(текст) не помогает?

[Солидворкер]

Сообщение от Хмурый СЖПРОБЕЛЫ(текст) не помогает?

Эта функция выкидывает все лишние пробелы, оставляя 1. А мне нужно оставить 0 пробелов. В принципе, я проблему на данном этапе решил, отфильтровав пробелы поиском в блокноте. Но хотелось бы знать, нельзя ли сделать все в Экселе, чтобы не скакать туда-сюда.

[witek]

Разово можно выполнить заменой в заданном диапазоне (ctrl+F, alt+ь, alt+и, пробел, alt+в).

Касательно изменения данных.
ИМХО, лучше сделать исходные данные на одном листе, а результат на другом, чтобы в результирующих ячейках были ссылки на исходные. Это пригодится, например, когда исходные данные являются импортом из какого-нибудь другого приложения. Тогда импорт осуществляется всегда в один и тот же лист, а результат получается автоматом.

Сообщение от Солидворкер Есть еще одна проблема. Из столбца, где только числа (12 знаков) надо "выжать" все пробелы

А где там пробелы вообще? Я поиском не нашел ни одного пробела в диапазоне данных...

[Солидворкер]

Сообщение от AlphaGeo А где там пробелы вообще? Я поиском не нашел ни одного пробела в диапазоне данных...

Я тоже не нашел, а они есть Точнее, там какая-то дрянь, которая выглядит как пробел, но поиском не опознается.

[witek]

Да, действительно там другой символ. Функция КОДСИМВ от этого знака дает значение 160. Пробел это 32, да точно, 32.

Так что для разовой замены комбинация при выделенном диапазоне будет: (ctrl+F, alt+ь, alt+и, alt+0160, alt+в).