Разделить запись на две части / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разделить запись на две части

5 сообщений из 5, страница 1 из 1

Разделить запись на две части

#35141387

masterNike

Участник

Сообщения: 128

Рейтинг: 0 / 0

Привет всем.
Вопрос такой. Есть Excel файл. В нем целый столбец (например A1) вот таких значений
Разделителем служит /

widespan cable trays / широкопролетный кабельный лоток

Нужно эту и все последующие записи в столбце А1, разделить на 2 части.
Чтобы получилось, в столбце
А1:widespan cable trays

а в столбце
B1:широкопролетный кабельный лоток

Подскажите как решить при помощи макроса??? Спасибо.
Модератор:
за кросспостинг буду наказывать

...

Рейтинг:

0 / 0

19.02.2008, 13:30

| Ответить | Цитировать | Написать

Разделить запись на две части

#35141626

Worobjoff

Участник

Откуда: Москва

Сообщения: 2 384

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Public Sub SplitColumns(ByVal ws As Worksheet, _
                        ByVal StartRow As Long, _
                        ByVal ColumnSrc As String, _
                        ByVal ColumnTarget As String)
    Dim i As Long
    Dim ss() As String
    For i = StartRow To ws.UsedRange.Rows.Count + ws.UsedRange.Row
        ss = Split(ws.Range(ColumnSrc & i), "/")
        If UBound(ss) >  0  Then
            ws.Range(ColumnTarget & i) = ss(UBound(ss))
            ws.Range(ColumnSrc & i) = ss(LBound(ss))
        End If
    Next
End Sub

SplitColumns Лист1, 3, "A", "B"

...

Рейтинг:

0 / 0

19.02.2008, 14:39

| Ответить | Цитировать | Написать

Разделить запись на две части

#35141637

Игорь Горбонос

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: masterNike
> Привет всем.
> Вопрос такой. Есть Excel файл. В нем целый столбец (например A1) вот
> таких значений
> Разделителем служит /
>
> widespan cable trays / широкопролетный кабельный лоток
>
> Нужно эту и все последующие записи в столбце А1, разделить на 2
> части.
> Чтобы получилось, в столбце
> А1:widespan cable trays
>
> а в столбце
> B1:широкопролетный кабельный лоток
>
> Подскажите как решить при помощи макроса??? Спасибо.

как вариант можно так:

Код: plaintext

1.
2.
3.
4.
5.
6.

dim v() as variant
dim i as long
for i =  1  to  10  'номер последней строки нужно указать
 v = split(cells(i, 1 ).value, "/")
 cells(i, 2 ).value = trim(v(lbound(v)))
 cells(i, 3 ).value = trim(v(ubound(v)))
next i

Posted via ActualForum NNTP Server 1.4

...

Рейтинг:

0 / 0

19.02.2008, 14:43

| Ответить | Цитировать | Написать

Разделить запись на две части

#35141682

HandKot

Участник

Откуда: Sergiev Posad

Сообщения: 3 122

Рейтинг: 0 / 0

Меню "Данные- Текст по столбцам"

I Have Nine Lives You Have One Only
THINK!

...

Рейтинг:

0 / 0

19.02.2008, 15:01

| Ответить | Цитировать | Написать

Разделить запись на две части

#35141816

masterNike

Участник

Сообщения: 128

Рейтинг: 0 / 0

Ребята всем спасибо.
А тебе HandKot , особенное мерси.
Все оказалось просто и быстро.

...

Рейтинг:

0 / 0

19.02.2008, 15:39

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разделить запись на две части

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=35141637&tid=2162685]:	0ms
get settings:	10ms
get forum list:	20ms
check forum access:	4ms
check topic access:	4ms
track hit:	85ms
get topic data:	13ms
get forum data:	3ms
get page messages:	59ms
get tp. blocked users:	2ms
others:	230ms

total:	430ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы