ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / раскидать текст по ячейкам
11 сообщений из 11, страница 1 из 1
раскидать текст по ячейкам
    #34010127
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
Доброго время суток всем! есть такая штука.
/ася/петя/12333//00888/Даша////
нужно то что наход. между / /
вставить в отдельную ячейку.
КАК БЫТЬ СУ
...
Рейтинг: 0 / 0
25.09.2006, 15:25:57
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34010160
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
Так или может нужны изыски?
...
Рейтинг: 0 / 0
25.09.2006, 15:36:11
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34010745
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
Именно так а как вы это делали?
...
Рейтинг: 0 / 0
25.09.2006, 17:58:24
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34010977
treiber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
treiber
Участник
Ivan33 написал прямо на листе 1

Меню: Данные = > Текст по столбцам …

и выберите в качестве разделителя - > "/"
...
Рейтинг: 0 / 0
25.09.2006, 19:31:33
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34012059
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
этот способ мне не подходет
т.к. строки рзного размера, как можно выполнить это по другому?
Дано
маша/сашв/000155/2000/
маша/саш/222255000/000///
маша100/саня/0000447//////

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

маша сашв 000155 2000

СУ
...
Рейтинг: 0 / 0
26.09.2006, 11:44:50
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34012223
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Надеюсь всё понятно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Temp()
    Dim i%, strInputString$, strStringsArray() As String
    strInputString = "/ася/петя/12333//00888/Даша////"
    strStringsArray = Split(strInputString, "/")
    For i =  0  To UBound(strStringsArray)
        Cells( 2 , i +  1 ) = strStringsArray(i)
    Next
End Sub
...
Рейтинг: 0 / 0
26.09.2006, 12:23:01
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34012275
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Не понимаю в чем проблема. Ты пробовал такую последовательность(?):

1) выбрать все ячейки с текстом для разбивки (не более 1 столбца)
2) Меню: Данные>Текст по столбцам…
3) опция: С разделителями , кнопка: Далее
4) убрать галки у всех опций (вкл. Считать последовательные разделители одним ), поставить галку у опции: Другой , в пустом поле поставить: / , кнопка: Далее
5) при необходимости выбрать формат для каждого из полей (напр. если надо оставить числа в текстовом формате), кнопка: Готово

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
26.09.2006, 12:33:19
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34012345
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
orunbekНадеюсь всё понятно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Temp()
    Dim i%, strInputString$, strStringsArray() As String
    strInputString = "/ася/петя/12333//00888/Даша////"
    strStringsArray = Split(strInputString, "/")
    For i =  0  To UBound(strStringsArray)
        Cells( 2 , i +  1 ) = strStringsArray(i)
    Next
End Sub


1) Этот код делает тоже самое, что и Данные>Текст по столбцам :

Код: plaintext
1.
2.
Sub Test()
    [A1:A3].TextToColumns [A1], xlDelimited, , False, , , , , True, "/"
End Sub

2) Если есть вероятность использования кода предложенного orunbekом в XL97 , то нужно добавить след. код в стандартный модуль (функция Split была введена начиная с XL2000):

Код: plaintext
1.
2.
3.
4.
#If Not VBA6 Then
Function Split(Txt As String, Delim As String) As Variant
  Split = Evaluate("{""" & Application.Substitute(Text, Delim,""",""") & """}")
End Function
#End If
...
Рейтинг: 0 / 0
26.09.2006, 12:54:09
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34012741
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
огромный мерси в студию!
пойду тестировать все варианты о результах доложу позднее ):
...
Рейтинг: 0 / 0
26.09.2006, 14:15:11
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34013006
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
KL (XL) orunbekНадеюсь всё понятно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Temp()
    Dim i%, strInputString$, strStringsArray() As String
    strInputString = "/ася/петя/12333//00888/Даша////"
    strStringsArray = Split(strInputString, "/")
    For i =  0  To UBound(strStringsArray)
        Cells( 2 , i +  1 ) = strStringsArray(i)
    Next
End Sub


1) Этот код делает тоже самое, что и Данные>Текст по столбцам :

Код: plaintext
1.
2.
Sub Test()
    [A1:A3].TextToColumns [A1], xlDelimited, , False, , , , , True, "/"
End Sub

2) Если есть вероятность использования кода предложенного orunbekом в XL97 , то нужно добавить след. код в стандартный модуль (функция Split была введена начиная с XL2000):

Код: plaintext
1.
2.
3.
4.
#If Not VBA6 Then
Function Split(Txt As String, Delim As String) As Variant
  Split = Evaluate("{""" & Application.Substitute(Text, Delim,""",""") & """}")
End Function
#End If


to KL (XL)
Моё почтение, я думал что я знаю программирование в VBA for Excel, оказывается я чайник, из каждого вашего кода, я получаю новые знания!
...
Рейтинг: 0 / 0
26.09.2006, 15:23:42
| Ответить | Цитировать | Написать  
раскидать текст по ячейкам
    #34013963
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
orunbekМоё почтение, я думал что я знаю программирование в VBA for Excel, оказывается я чайник, из каждого вашего кода, я получаю новые знания!

Спасибо на добром слове.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
26.09.2006, 20:59:03
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / раскидать текст по ячейкам
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34012741&tid=2184219]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 226ms
total:  346ms
созд. / загр.: 346ms
x
x
Закрыть


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