Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сравнить 2 списка (проблема нулей), -
 
#1
27.10.2019 17:28:22
Здравстсвуйте, уважаемые форумчане, прошу у вас помощи.
Имеется 2 таблицы. В одной 10тыс. строк, в другой 1тыс. строк.
Нужно выделить точно совпадающие числа.
Проблема в том, что полистав форум и попробовав некоторые гайды я столкнулся с тем, что нули перед числами не учитываются.
Как мне решить эту проблему.
Пример таблицы прикрепляю.
Изменено: shukan.al - 27.10.2019 17:28:51
 
 
 
#2
27.10.2019 17:44:25
shukan.al,  Ваши попытки покажите.
По вопросам из тем форума, личку не читаю.
 
 
 
#3
27.10.2019 17:49:13
Цитата
shukan.al написал:
нули перед числами не учитываются
Если нужно учитывать нули, то у Вас уже не числа, а текст нужно сравнивать...
 
 
 
#4
27.10.2019 17:54:42
Цитата
shukan.al написал:
выделить точно совпадающие числа
не-а, вам нужно выделить точно совпадающие ТЕКСТОВЫЕ СТРОКИ, ибо учитываете ведущие нули
Вариант - формула УФ: =ПОИСКПОЗ(A2;$C$2:$C$17;)
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#5
27.10.2019 18:26:10
в PQ. скорость, скорее всего, будет низкой
Код
Table.Join(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],{"Код A"},Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],{"Код B"},JoinKind.Inner)[Код A]

или так 

let
a=Table.Join(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],{"Код A"},Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],{"Код B"},JoinKind.Inner)[Код A],
b = List.Distinct(a)
in
b
Изменено: artyrH - 27.10.2019 18:36:16
 
 
 
#6
27.10.2019 20:56:05
Пример с макросом. Не забываем влючить их при запросе.
При выделении в столбце С ячейки или группы ячеек мышкой, в столбце А они автоматом подкрашиваются.
Код
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s&, i&
Dim r As Range
Dim A()
If Target.Column = 3 And Target.Columns.Count = 1 Then
With Лист1
    s = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range(.Cells(2, 1), .Cells(s, 1)).Interior.ColorIndex = xlNone
    A() = .Range(.Cells(1, 1), .Cells(s, 1)).Value
    For Each r In Target
        For i = 1 To s
            If r.Value = A(i, 1) Then .Cells(i, 1).Interior.ColorIndex = 42
        Next
    Next
End With
End If
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
Страницы: 1
Наверх