Блог

Пример Excel

Привет, ребята,

У меня возникли небольшие проблемы с моим макросом Excel. Есть часть кода, в которой он сравнивает ячейки с листа 1 на лист2. Проблема заключается в том, что даже когда ячейка на листе 1 совпадает с ячейкой на листе 2, она все равно отображается как «НЕ СООТВЕТСТВУЕТ».

Я полагаю, что в одной из ячеек, либо ValueA, либо ValueB, есть скрытые символы. Их содержимое поступило из разных источников. Я попытался выполнить формулу CLEAN (), но это не помогло. Есть идеи? ПОЖАЛУЙСТА, СМОТРИТЕ СВЯЗАННЫЙ ФАЙЛ ВЫШЕ. Я скопировал и вставил 2 значения КАК ЕСТЬ, чтобы вы могли проверить, что может быть скрыто.

Я имею дело с большими строками данных, поэтому я не хочу использовать DO В VBA. Есть ли формула или код, чтобы оставить только видимые символы и ПРОБЕЛ в ячейке?

================================================================

Образец 2

Вот еще один пример, он взят из самого основного файла, поэтому он близок к оригиналу. Как вы можете видеть, в столбце B листа 1 есть формула, которая проверяет, существует ли каждый идентификатор записи уже в листе 2. Все они говорят «НЕ НАЙДЕНО» (не существует в sheet2), но многие из них на самом деле уже существуют в sheet2, включая идентификатор записи «1743840». Если вы вручную нажмете CTRL F, чтобы найти этот идентификатор записи в листе 2, вы увидите, что он есть, и система ПОИСКА работает, но формула — нет.

Хммм. В вашем примере нет макроса, в нем есть формула.

Одним из способов устранения проблемы с текстом / числом было бы использование функции EXACT worksheet (которая работает как с числами, так и с текстовыми строками).

например:

 =IF(EXACT(B3,C3),"Same","Not Same")
  

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

Хммм, основываясь на вашем новом примере, простой UDF сделает свое дело. Он имитирует метод «Найти», который вы использовали вручную. Я сделал его чувствительным к регистру, но вы можете легко это изменить. Приведенное ниже значение возвращает true или false, в зависимости от того, есть ли совпадение. R — это диапазон для поиска, поэтому он может быть OldFile! $ A $ 2: $ A $ 160

 Function IsFound(S As String, R As Range) As Boolean
    With R
        If Not .Find(what:=S, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True) Is Nothing Then
            IsFound = True
        Else
            IsFound = False
        End If
    End With
End Function
  

Попробуйте заменить значение поиска на IFERROR(VALUE($A2),$A2)

Итак, ваша формула становится

 =IF(IFERROR(MATCH(IFERROR(VALUE($A2),$A2),OldFile!A:A,0),"NOT FOUND")<>"NOT FOUND","FOUND","NOT FOUND")
  

В вашем прикрепленном листе значение в B3 хранится в виде текста, а значение в ячейке C3 является числовым, поэтому технически они не совпадают. Вы можете обойти это, изменив свою формулу в D3 на что-то вроде:

 =IF(B3 0=C3 0,"Same","Not Same")
  

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

Чтобы быстро преобразовать текст в числа, вот один из способов использования VBA (ничего не зная о структуре ваших данных):

 Sheet1.Range("B1").Copy
Sheet1.Range("B2:B2000").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
  

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

Применительно к вашему случаю, предполагая, что вы сравниваете значения в ячейке A1 листа 1 и значение ячейки A1 листа 2. Хорошей отправной точкой будет попробовать функцию листа Excel, например: =(A1=Sheet2!A1) введено в ячейку A2 листа 1 и посмотреть результат. На основе результатов перейдите либо к функциям рабочего листа, либо к VBA (при необходимости). В случае, если форматы ячеек отличаются (например, один форматируется как текст, другой как число), преобразуйте оба в текст и примените функцию trim () (на всякий случай). Rgds,