Разделение чисел на до запятой и после запятой

[msser]

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

[EducatedFool]

  Ячейка: B1      Формула  (стиль A1):   =ЦЕЛОЕ(A1)
                  Формула  (стиль R1C1): =ЦЕЛОЕ(RC[-1])

  Ячейка: C1      Формула  (стиль A1):   =A1-B1
                  Формула  (стиль R1C1): =RC[-2]-RC[-1]

Вот ещё вариант:

  Ячейка: B1      Формула  (стиль A1):   =ЕСЛИ(ЕОШ(НАЙТИ(",";A1));A1;ПСТР(A1;1;НАЙТИ(",";A1)-1))
                  Формула  (стиль R1C1): =ЕСЛИ(ЕОШ(НАЙТИ(",";RC[-1]));RC[-1];ПСТР(RC[-1];1;НАЙТИ(",";RC[-1])-1))

  Ячейка: C1      Формула  (стиль A1):   =ЕСЛИ(ЕОШ(НАЙТИ(",";A1));"";ПСТР(A1;НАЙТИ(",";A1)+1;100))
                  Формула  (стиль R1C1): =ЕСЛИ(ЕОШ(НАЙТИ(",";RC[-2]));"";ПСТР(RC[-2];НАЙТИ(",";RC[-2])+1;100))

[msser]

Что такое : =ЦЕЛОЕ(RC[-1])

[msser]

Спасибо большое, на последнее сообщение отвечать не надо.

[msser]

Число А1 - деньги в формате "рубли,копейки".
Если А1 например 398,80, то С1 = 8, а не 80.
Как решить?

[SAS888]

Если в столбце "C" требуется получить копейки, то можно так:
Пусть в "A1" - число (руб, коп)
В "B1" пишем: "=ЦЕЛОЕ(A1)"
В "C1" пишем: "=(A1-B1)*100"
Тогда, например при A1=123,456 в "B1" получим 123, а в "C1" получим 45,6.
Устроит? Если нет, то как нужно?

[Клякса]

Попробуй такой код:

Public Sub splitt()


Dim ss() As String ' массив чисел после деления
Dim st As String ' текстовое значение ячейки, содержимое которой надо разделить. Переменная введена только для облегчения восприятия кода.

st = Str(Cells(1, 1).Value) ' забираем содержимое ячейки
ss = Split(st, ".") ' делим число ; "." - делиметр
Cells(1, 2).Value = ss(0) ' вносим деленные части.
Cells(1, 3).Value = ss(1)

End Sub

[SAS888]

Клякса
1. Хотя автор вопроса не оговаривает, какими средствами требуется решить задачу (а надо бы), очевидно, что нужно без VBA (формулами).
2. Если применять Ваш код, то я бы добавил отключение обработки ошибок On Error Resume Next, т.к. они возможны.
3. Функция Split(...) разобьет число, например, 398,8 на 398 и 8. А автору темы нужно получить 398 и 80 (см. пост №5).

[Клякса]

Доброго времени суток.

Автору выбирать, каким средством пользоваться. Не понадобится - пролистает мимо.
Про обработку ошибок согласен, код я привел минимальный и по желанию туда много чего можно дописать. В том числе и добавления нуля в первом порядке.