Синхронизация списков данных / Microsoft Office

ReSQL.ru

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

Гость

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

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

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

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

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Синхронизация списков данных

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

Синхронизация списков данных

#39609623

VladimirSk

Гость

С наступающими выборами, Господа!
Однако подскажите :
Имеем два списка
Список 1Список2aaaabbccddeeeeff

Нужно получить следующий результат:
Список 1Список2aaaabbccddeeeeff

Размерность всегда разная, массив всегда двухмерный

...

Рейтинг:

0 / 0

02.03.2018, 13:26

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

Синхронизация списков данных

#39609624

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

И где весь этот хлам? В Экселе, на листе, что ли?

...

Рейтинг:

0 / 0

02.03.2018, 13:28

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

Синхронизация списков данных

#39609659

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Налицо задача для FULL JOIN

...

Рейтинг:

0 / 0

02.03.2018, 14:19

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

Синхронизация списков данных

#39609671

VladimirSk

Гость

Akina,

В EXCELe, в нём.
Пока думаю в качестве синхронизатора применить
общий список с удалением дублей.
А относительно него выстроить два списка.

...

Рейтинг:

0 / 0

02.03.2018, 14:29

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

Синхронизация списков данных

#39609684

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Нормальный подход. На третьем листе получить общий список (удаление дубликатов в помощь), а потом подтянуть с исходных листов существующие записи с помощью ВПР().

...

Рейтинг:

0 / 0

02.03.2018, 14:51

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

Синхронизация списков данных

#39609690

VladimirSk

Гость

Akina,
Думаю макрос настроить т.к. размер данных всегда разный.
Формулы растягивать не удобно.

...

Рейтинг:

0 / 0

02.03.2018, 15:05

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

Синхронизация списков данных

#39609694

VladimirSk

Гость

Akina,
Можно ли за один проход оба списка раскидать вдоль общего,
или два цикла придётся применить ?

...

Рейтинг:

0 / 0

02.03.2018, 15:11

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

Синхронизация списков данных

#39609696

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Зачем циклы? они вообще не нужны...

...

Рейтинг:

0 / 0

02.03.2018, 15:13

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

Синхронизация списков данных

#39609706

VladimirSk

Гость

Akina,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.

y = 1
k = 0
r = 0
m1 = Worksheets("Лист1").Range("A1:B" & fin1)	'Список 1
m3 = Worksheets("Лист2").Range("A1:B" & fin2)	'Список совпадений
m4 = Worksheets("Лист2").Range("AA1:AB" & fin2)	'Список не совпадений
m5 = Worksheets("Лист3").Range("A1:B" & fin3)	'Список общий
For i = 1 To fin1
For j = 1 To kon1

If m5(i, 1) = m1(j, 1) Then
m3(i, 1) = m5(i, 1)
m3(i, 2) = m5(i, 2)
k = k + 1
y = True
GoTo loop1
Else
y = False
End If

Next j
If j = kon1 + 1 And y = False Then
t = i
m4(t, 1) = m5(i, 1)
m4(t, 2) = "Not Found"
r = r + 1
End If

 y = y + 1
loop1:

Next i

Вот получилось нечто...

...

Рейтинг:

0 / 0

02.03.2018, 15:27

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

Синхронизация списков данных

#39609707

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Код: vbnet

1.
2.

ThisWorkbook.Sheets(1).Range("a1:" & ThisWorkbook.Sheets(1).Range("a:a").SpecialCells(xlCellTypeLastCell).Address).Copy Destination:=ThisWorkbook.Sheets(3).Range("a1")
ThisWorkbook.Sheets(2).Range("a1:" & ThisWorkbook.Sheets(2).Range("a:a").SpecialCells(xlCellTypeLastCell).Address).Copy Destination:=ThisWorkbook.Sheets(3).Range("a:a").SpecialCells(xlCellTypeLastCell).Offset(1, 0)

...

Рейтинг:

0 / 0

02.03.2018, 15:30

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

Синхронизация списков данных

#39609723

Казанский

Гость

Я чет не понял, как с помощью удаления дубликатов можно получить следующий результат .
Вот такой алгоритм приводит к указанному результату: если ячейки слева и справа не совпадают, вставить пустую ячейку, со сдвигом вниз на место правой или левой (попеременно), далее переходить к следующей строке.

Код: vbnet

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

Sub Vl()
Dim i&, p&
  i = 2: p = 1
  Do While Not IsEmpty(Cells(i, 1)) And Not IsEmpty(Cells(i, 2))
    If Cells(i, 1) <> Cells(i, 2) Then
      Cells(i, p + 1).Insert xlDown
      p = (p + 1) Mod 2
    End If
    i = i + 1
  Loop
End Sub

...

Рейтинг:

0 / 0

02.03.2018, 16:17

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

Синхронизация списков данных

#39609779

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

КазанскийЯ чет не понял, как с помощью удаления дубликатов можно получить следующий результат .Читай всё. Там есть и второй этап. А потом ещё будет и третий - замена формул значениями.

...

Рейтинг:

0 / 0

02.03.2018, 17:55

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

Синхронизация списков данных

#39609780

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Казанскийесли ячейки слева и справа не совпадают, вставить пустую ячейку, со сдвигом вниз на место правой или левой (попеременно), далее переходить к следующей строке.Хорошо, если список сортированный... или, вернее, устойчивый - в том смысле, какой в это слово вкладывает сортировка.

...

Рейтинг:

0 / 0

02.03.2018, 17:56

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

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

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Синхронизация списков данных

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=61&msg=39609696&tid=2172384]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	36ms
get topic data:	10ms
get forum data:	3ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	285ms

total:	407ms