Выборка и вывод данных.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выборка и вывод данных. (Формулы/Formulas)

2good

Дата: Пятница, 05.09.2014, 10:30 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день уважаемые знатоки excel. Хочу попросить у вас помощи в решении такого вопроса:
есть лист1 с данными в 1-ом столбце и есть лист2 с данными в 1-ом столбце + описания во 2-ом столбце. Необходимо сравнить 1-ые столбцы и те ячейки которые остутствуют в 1-ом листе, вывести всю строку (из лист2) на 3 листе.
прикреплю пример для наглядности:
P.S. данные в листе 1 и листе 2 будут корректироваться.

К сообщению приложен файл: bb.xlsx (12.1 Kb)

Сообщение отредактировал 2good - Пятница, 05.09.2014, 10:32

Ответить

gling

Дата: Пятница, 05.09.2014, 13:02 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2643

Репутация: 739 ±

Замечаний: 0% ±

2010

Здравствуйте. Можно формулами с доп столбцом.

К сообщению приложен файл: 0725153.xlsx (13.1 Kb)

ЯД-41001506838083

Ответить

PowerBoy

Дата: Пятница, 05.09.2014, 13:47 | Сообщение № 3

Группа: Проверенные

Ранг: Участник

Сообщений: 100

Репутация: 31 ±

Замечаний: 0% ±

2003

[vba]

Код

Public Sub RefreshData()
'Created using add-in ActiveTables
Dim strConnection As String
Dim strSQL As String
strConnection = IIf(Val(Application.Version) < 12, "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=NO;IMEX=3';", "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=NO;IMEX=3';")
strSQL = "SELECT f1, F2 FROM [Лист2$] where not f1 in (select distinct f1 from [Лист1$])"
With ThisWorkbook.Sheets(3)
     .UsedRange.Clear
     With .QueryTables.Add(strConnection, .Range("A1"), strSQL)
          .FieldNames = False
          .Refresh False
          .Delete
     End With
End With
End Sub

[/vba]

Excel + SQL = ActiveTables (http://vk.com/ExcelSQL)

Ответить

_Boroda_

Дата: Пятница, 05.09.2014, 14:27 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16888

Репутация: 6611 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Без доп. столбца. Данные можно добавлять на всех листах. На листе 1 добавил Вам раскрывающийся список. На листе 2 делал автораскраску тех, кого нет в листе 1 (см. условное форматирование). Имена можно посмотреть, нажав Контрл+F3.

К сообщению приложен файл: bb_1.xlsx (13.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

2good

Дата: Четверг, 11.09.2014, 11:50 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 05.09.2014 в 14:27, в сообщении № 4

Спасибо большое! Выбрал Ваш вариант. Но не совсем смог разобраться с добавлением новых листов. Получается сейчас: лист1- массив (постоянное меняю/добавляю), лист2-список (редко вношу изменения) лист3 - результат. А можно ли получить следующую картину: добавим схожих по типу лист2: лист2_а, лист2_б, а в лист3: результат сравнения массива с лист2 1-2 колонке (как сейчас), 3-4 колонка с листа2_а, 5-6 колонка с листа2_б. и .т.д?