Как разбить содержимое одной ячейки на несколько?

[tiko]

Сообщение от Hugo121

Сперва преобразуйте число в 10-значную строку, потом разбивайте.

Это как? Если не секрет.

[Hugo121]

Не секрет - добавьте слева 10 пробелов, потом возьмите 10 знаков справа.
Можно использовать формат ячейки и брать [a1].text например, если макросом.
Вариантов много.
Да, в итоговые пустые ячейки, чтоб не помещать пробелы, обрабатывайте значения с помощью Trim().
Ну а если делать макросом, то это вообще лишнее, есть StrReverse(): Наоборот = StrReverse(Текст)
А вообще без Вашего примера это всё пустая болтовня...

[tiko]

Вложил файлик с более подробным описанием сути вопроса. Спасибо за помощь.

[Hugo121]

Запустите на активном листе с данными при курсоре на нужной строке:

Sub InsertPoJaceikam()
Dim str1 As String, str2 As String, i As Long, ii As Long

str1 = StrReverse(Cells(Selection.Row, 1))
str2 = StrReverse(Cells(Selection.Row, 2))
Лист2.Cells.ClearContents

For i = 1 To Len(str1)
Лист2.Cells(2, 23 - ii) = Mid(str1, i, 1): ii = ii + 2
Next

For i = 1 To Len(str2)
Лист2.Cells(4, 11 - i) = Mid(str2, i, 1)
Next

End Sub

Тут правда нет "защиты от дурака" - это если цифр будет больше, чем отведённых ячеек, то будет ошибка.
Можно дополнительно сперва проверить длину строк и выругаться, если нужно.

[doober]

Что то новое в применении теории вероятности,решил и свой вариант приложить.
Кликаем по ячейкам столбца А

[tiko]

Спасибо народ. Попрбую - отпишусь.

[Hugo121]

Я руководствовался "сделать так чтоб заполнение этих ячеек начиналось с конца и если чисел не хватает то первые ячейки должны оставаться пустыми" - именно поэтому используется StrReverse()

[tiko]

Hugo121. Большое спасибо, адаптировал под свои нужды, все супер.
Doober. Спасибо, но для меня пока слишком круто.

[IgorGO]

есть подозрение, что заполняется новый бланк "податкової накладної"...
я все формулами заполнил... без проблем. номер и дату накладной, номер и дату договора, номер платника податку, номер свидетельства, телефон и пр.

[tiko]

Сообщение от IgorGO

есть подозрение, что заполняется новый бланк "податкової накладної"...
я все формулами заполнил... без проблем. номер и дату накладной, номер и дату договора, номер платника податку, номер свидетельства, телефон и пр.

Угадали. Если не жалко можно выложить.