VPF::Помогите вставить пробел - Форум программистов

Конышес

Дата 25.3.2008, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

Сорри за столь тривиальный вопрос, но делать срочно, а вспомнить как сделать не могу:(
Вобщем есть столбик ячек, в каждой содержится по 4 цифры, требуется разделить их пробелом посередине, те было в ячейке 4444, стало 44 44, и пробежаться до низа столбика. Можно просто как разделить, а как пробежаться до низа разберусь. Заранее большое спасибо за помощь!!

RockClimber

Дата 25.3.2008, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15

Код


Sub Probelposeredine()
Dim i As Long

i = 1
Do
Cells(i, 1) = Left(Cells(i, 1), 2) & " " & Right(Cells(i, 1), 2)
i = i + 1
Loop Until Cells(i, 1) = ""

End Sub

Функция пройдет первый столбец (до первой пустой ячейки) и выполнит необходимую замену.

Добавлено через 44 секунды
Это мы про эксель говорим, да?

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

Конышес

Дата 27.3.2008, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

RockClimber, пасибо большое! ага про эксель smile

)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »