приведение числовых данных к единому виду

[сантехник]

Доброго времени суток, уважаемые.
Прошу подскажите где искать инфу для решения конкретной задачи.
задача следующая:
допустим есть некий столбец данных, нужно привести эти данные к общему виду, отформатировать следующим образом.
см вложение.
спасибо!

[Watcher_1]

Включите макрос нажмите на кнопку и получит результат

[сантехник]

если брать во внимание не конкретное количество строк, а весь столбец B, то как я понимаю, нужно рассматривать цикл, который обрабатывает массив поэлементно, делит значение на 10000 и прибавляет приставку в виде 10-
когда то поверхностно занимался с++, но так и не довел изучение до логического завершения.

[Watcher_1]

Ответ на вашу задачу смотрите во втором посте

[сантехник]

Спасибо большое!!!
только не пойму, почему именно в клетке B10 формат выводится во временном значении? окт.21
протестировал на 2000 значениях, везде все ок.

[сантехник]

Private Sub CommandButton1_Click()
For i = 1 To Range("A1").End(xlDown).Row
Range("B" & i) = "10-" & Format(Range("A" & i), "0000")
Next
End Sub

подскажите пожалуйста, где в кратком виде почитать об этом?
конкретно интересует вот это

Format(Range("A" & i), "0000")

[Watcher_1]

В интернете!!! %))))))))))))

[Watcher_1]

Сообщение от сантехник

Спасибо большое!!!
только не пойму, почему именно в клетке B10 формат выводится во временном значении? окт.21
протестировал на 2000 значениях, везде все ок.

Столбец "B" преобразуйте в текстовый формат и будет вам счастье

[сантехник]

упс. спасип!
как переносить макросы в другой файл?

[Watcher_1]

Copy/Paste