ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
10 сообщений из 10, страница 1 из 1
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36332850
-САIIIА-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-САIIIА-
Гость
Доброго времени суток!
Пожалуйста помогите решить задачу. Есть текст в одной ячейке, нужно что бы он разносился по соседним ячейкам той же строки, каждая буква текста в отдельную ячейку.
Спасибо!
...
Рейтинг: 0 / 0
26.11.2009, 10:48
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36333006
thrashead
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
thrashead
Участник
макрос:

Dim s As String
Dim l, r, c, i As Integer

Sub abc()
s = Excel.ActiveCell.Value2
r = Excel.ActiveCell.Row
c = Excel.ActiveCell.Column
l = Len(s)
For i = 1 To l
Excel.Cells(r, c + i) = Mid(s, i, 1)
Next i
End Sub
...
Рейтинг: 0 / 0
26.11.2009, 11:40
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36333086
-САIIIА-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-САIIIА-
Гость
большое спасибо, РАБОТАЕТ!!!, а можно добавить пропуск одной ячейки после каждой буквы?
...
Рейтинг: 0 / 0
26.11.2009, 11:59
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36333334
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Т.е. эта строка
Код: plaintext
1.
Excel.Cells(r, c + i) = Mid(s, i,  1 )
совершенно непонятна?
Добавь переменную х :
Код: plaintext
1.
Excel.Cells(r, c + i + x) = Mid(s, i,  1 )
x = x +  1
...
Рейтинг: 0 / 0
26.11.2009, 13:03
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36333377
-САIIIА-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-САIIIА-
Гость
Благодарю!
...
Рейтинг: 0 / 0
26.11.2009, 13:11
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36335200
thrashead
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
thrashead
Участник
-САIIIА-,
добавь ещё проверку длины строки перед началом цикла.
Длина должна быть > 0.
...
Рейтинг: 0 / 0
27.11.2009, 11:19
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36336735
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
В А1 - текст
В А2 формулу ниже и потянуть вправо
=ПСТР($A1;(СТОЛБЕЦ()/2-СТОЛБЕЦ($A2)+1)+ДЛСТР($A1)*(ОСТАТ(СТОЛБЕЦ()-СТОЛБЕЦ($A1);2)=0);1)
...
Рейтинг: 0 / 0
28.11.2009, 00:38
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36336789
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
=ЕСЛИ(ОСТАТ(СТОЛБЕЦ();2);ПСТР($A$1;ЦЕЛОЕ((СТОЛБЕЦ()+1)/2);1);"")
...
Рейтинг: 0 / 0
28.11.2009, 02:15
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36336918
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
vikttur=ЕСЛИ(ОСТАТ(СТОЛБЕЦ();2);ПСТР($A$1;ЦЕЛОЕ((СТОЛБЕЦ()+1)/2);1);"")
Это только если разделяемый текст в первом столбце
...
Рейтинг: 0 / 0
28.11.2009, 13:15
| Ответить | Цитировать | Написать  
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
    #36337054
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikttur
Участник
В данной записи - да, но можно же задать СТОЛБЕЦ(A:A).
...
Рейтинг: 0 / 0
28.11.2009, 17:22
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36333086&tid=2178780]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 166ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 221ms
total:  469ms
созд. / загр.: 469ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]