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

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

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

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

маша сашв 000155 2000

СУ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2006, 12:23:01
    #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:33:19
    #34012275
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
раскидать текст по ячейкам
Не понимаю в чем проблема. Ты пробовал такую последовательность(?):

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

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2006, 12:54:09
    #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, 14:15:11
    #34012741
Lenus
Lenus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
раскидать текст по ячейкам
огромный мерси в студию!
пойду тестировать все варианты о результах доложу позднее ):
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2006, 15:23:42
    #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, 20:59:03
    #34013963
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
раскидать текст по ячейкам
orunbekМоё почтение, я думал что я знаю программирование в VBA for Excel, оказывается я чайник, из каждого вашего кода, я получаю новые знания!

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

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / раскидать текст по ячейкам / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 311ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184219]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 191ms
total:  311ms
x
x
Закрыть


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