Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 04.02.2017
Сообщений: 12
1

Перенести значение из одного листа в другой с условием

28.02.2017, 22:37. Показов 1589. Ответов 3
Метки нет (Все метки)

Приветствую!

Возникла нужда в сортировке данных.

Дело такое. Мне нужно чтобы значения ячеек из столбца А листа 2 записывались через запятую в ячейки столбца А листа 1 только там, где значение ячейки столбца В листа 1 СОДЕРЖИТСЯ в значении ячейки столбца В листа 2.

Вроде правильно написал)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вложения
Тип файла: xlsx заноза.xlsx (14.4 Кб, 3 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2017, 22:37
Ответы с готовыми решениями:

Перенести данные с одного листа на другой с условием
Задача передо мной стоит следующая. в книге два листа: на первом международный код услуги(1...

Уникальные значение в таблице Excel перенести с одного листа на другой
Здравствуйте!! Помогите, пожалуйста, срочно!!! очень-очень!!! есть огромная таблица, 5000...

Копирование данных из ячейки одного листа на другой с условием
Копирование данных из ячейки одного листа на другой с условием На листе 1 в ячейках B4: ......

Перенести данные из одного листа на другой
Здравствуйте! Ребята, сломала себе уже голову, форум облазила весь, инет перерыла, помогите...

3
2634 / 1691 / 694
Регистрация: 04.09.2015
Сообщений: 3,367
28.02.2017, 23:31 2
Что есть понятно, а что нужно в файле не показали.
0
0 / 0 / 0
Регистрация: 04.02.2017
Сообщений: 12
01.03.2017, 01:07  [ТС] 3
Что-то вот такое должно быть
0
Вложения
Тип файла: xlsx заноза.xlsx (14.6 Кб, 6 просмотров)
2634 / 1691 / 694
Регистрация: 04.09.2015
Сообщений: 3,367
01.03.2017, 13:47 4
Лучший ответ Сообщение было отмечено lekomtsev как решение

Решение

Формулами такое не сделать. Можно сделать функцию пользователя
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function MergeIf(nRange As Range, sRange As Range, tRange As Range, Delimiter As String) As String
    If nRange = Empty Then Exit Function
    Dim Arr(), x(), y()
    x = sRange.Value: y = tRange.Value
    If UBound(x) <> UBound(y) Then Exit Function
    For i = 1 To UBound(x)
        If InStr(x(i, 1), nRange.Value) Then
            ReDim Preserve Arr(1 To 1, 0 To n)
            Arr(1, n) = y(i, 1): n = n + 1
        End If
    Next i
    If n = Empty Then Exit Function
    MergeIf = Join(Application.Transpose(Application.Transpose(Arr)), Delimiter)
End Function
Макросы должны быть разрешены. После открытия книги сохраните ее формате xlsm (с поддержкой макросов)
1
Вложения
Тип файла: xls заноза1_01.xls (71.0 Кб, 5 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2017, 13:47

Перенести информацию с одного листа Excel на другой
Возможно переносить информацию с одного листа Екселя на другой(каждый раз отступать) Переносить...

Копировать значение строки с одного листа на другой
Нужно скопировать выделенную строку ( в ней 3 столбца) с листа1 на лист2, на листе2 надо в первую...

Как присвоить значение ячейки одного листа и поставить ее в другой лист
Подскажите пожалуйста! Как присвоить значение ячейки одного листа и поставить ее в другой лист ...

Нужно перенести данные с 1 листа на другой соблюдая условия
Здравствуйте форумчане, возник вопрос по переноске данных с 1 листа на другой соблюдая определенные...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.