7 / 7 / 6
Регистрация: 02.04.2012
Сообщений: 321
1

Каждое второе значение идущее через звёздочку перенести в соседний столбец

21.09.2016, 13:01. Показов 1348. Ответов 2
Метки нет (Все метки)

Добрый день!

Имеется excel файл напечатанного ниже формата:
Столбец "C" - категория и описание.

Пример исходника excel файла напечатан ниже:
[C1] Машина*Красная*Трактор*Серо-коричневый, номер AA88*Телефон в расрочку от 21.03.2016 03:50*Китайский от производителя
[C2] Велосипед*Для города*Аэропорт*Новый

Напечатайте пожалуйста макрос который каждое второе значение ячейки столбца "C", напечатает в соседней ячейки столбца "D", значения внутри ячейки должны быть разделены * (звёздочкой).

Пример необходимого результата excel файла напечатан ниже:
[C1] Машина*Трактор*Телефон в расрочку от 21.03.2016 03:50 [D1] Красная*Серо-коричневый, номер AA88*Телефон в расрочку от 21.03.2016 03:50*Китайский от производителя
[C2] Велосипед*Аэропорт [D2] Для города*Новый

Пример excel файла во вложении, в нём представлены страницы исходник и необходимый результат.
Вложения
Тип файла: xlsx Пример.xlsx (8.7 Кб, 6 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.09.2016, 13:01
Ответы с готовыми решениями:

Перенести заполненные ячейки в соседний столбец
Добрый день! Имеется excel файл напечатанного ниже формата: Столбец "C" - базовая...

Перенести абзацы внутри ячейки в соседний столбец с циклом
Добрый день! Имеется excel файл (во вложении). Напишите пожалуйста макрос который проверит...

Сжать массив, удалив из него каждое второе значение
Нужно сжать массив, удалив из него каждое второе значение. Оставшуюся половину массива заполнить...

Выделенную строку в DBGrid перенести каждое значение в несколько Label
Есть база учителей, и она выведена в ДБгрид, выделяю учителя и при нажатии ЛИчная карточка...

2
4129 / 2233 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
21.09.2016, 13:51 2
Лучший ответ Сообщение было отмечено KoGG как решение

Решение

Если наличие телефона в 2-х столбцах, это очепятка, то один из вариантов :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Test()
    Dim iArr, tmp, tmp1$, tmp2$, iRow&, iCount&
    iArr = Range(Cells(1, 4), Cells(Rows.Count, 3).End(xlUp)).Value
    
    For iRow = 1 To UBound(iArr)
        tmp = Split(iArr(iRow, 1), "*")
        For iCount = 0 To UBound(tmp)
            If iCount Mod 2 Then
               tmp1 = tmp1 & "*" & tmp(iCount)
            Else
               tmp2 = tmp2 & "*" & tmp(iCount)
            End If
        Next
        iArr(iRow, 1) = Mid$(tmp2, 2): tmp2 = ""
        iArr(iRow, 2) = Mid$(tmp1, 2): tmp1 = ""
    Next
    Cells(1, 4).Resize(iRow - 1, 2) = iArr
End Sub
1
7 / 7 / 6
Регистрация: 02.04.2012
Сообщений: 321
21.09.2016, 14:42  [ТС] 3
Добрый день, pashulka!

Да, телефон в двух столбцах это опечатка.

Благодарю, Вас!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.09.2016, 14:42
Помогаю со студенческими работами здесь

Необходимо перенести значение строк в столбец
Суть проблемы. Необходимо данные из строк перенести в столбец в виде ссылки. Ссылка необходима для...

Копирование в соседний столбец с условием
Создать процедуру копирования в соседний столбец (начиная с ячейки В5, без пропусков ячеек)...

Перенос значений в соседний столбец
Добрый день. Подскажите как с помощью формулы перенести цифровое значение в соседний столбец.Залит...

Выделить ссылки из гиперссылок в соседний столбец
Уважаемые форумчане, добрый день. Прошу помочь с решением проблемы, а именно: в файле есть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru