Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки / 10 сообщений из 10, страница 1 из 1
26.11.2009, 10:48
    #36332850
-САIIIА-
-САIIIА-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
Доброго времени суток!
Пожалуйста помогите решить задачу. Есть текст в одной ячейке, нужно что бы он разносился по соседним ячейкам той же строки, каждая буква текста в отдельную ячейку.
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2009, 11:40
    #36333006
thrashead
thrashead
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
макрос:

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:59
    #36333086
-САIIIА-
-САIIIА-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
большое спасибо, РАБОТАЕТ!!!, а можно добавить пропуск одной ячейки после каждой буквы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2009, 13:03
    #36333334
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
Т.е. эта строка
Код: 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:11
    #36333377
-САIIIА-
-САIIIА-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
Благодарю!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2009, 11:19
    #36335200
thrashead
thrashead
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
-САIIIА-,
добавь ещё проверку длины строки перед началом цикла.
Длина должна быть > 0.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2009, 00:38
    #36336735
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
В А1 - текст
В А2 формулу ниже и потянуть вправо
=ПСТР($A1;(СТОЛБЕЦ()/2-СТОЛБЕЦ($A2)+1)+ДЛСТР($A1)*(ОСТАТ(СТОЛБЕЦ()-СТОЛБЕЦ($A1);2)=0);1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2009, 02:15
    #36336789
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
=ЕСЛИ(ОСТАТ(СТОЛБЕЦ();2);ПСТР($A$1;ЦЕЛОЕ((СТОЛБЕЦ()+1)/2);1);"")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2009, 13:15
    #36336918
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
vikttur=ЕСЛИ(ОСТАТ(СТОЛБЕЦ();2);ПСТР($A$1;ЦЕЛОЕ((СТОЛБЕЦ()+1)/2);1);"")
Это только если разделяемый текст в первом столбце
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2009, 17:22
    #36337054
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки
В данной записи - да, но можно же задать СТОЛБЕЦ(A:A).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, слово из одной ячейки разнести по буквам по отдельным ячейкам этой же строки / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 470ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178780]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 174ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 214ms
total:  470ms
x
x
Закрыть


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