| Цитата |
|---|
| написал: Option Explicit Sub CompareText_Main() Dim rng1 As Range, rng2 As Range Set rng1 = ThisWorkbook.Worksheets("Лист1").Range("A1").CurrentRegion Set rng2 = ThisWorkbook.Worksheets("Лист2").Range("A1").CurrentRegion Call CompareRanges(rng1, rng2)End Sub Private Sub CompareRanges(rng1 As Range, rng2 As Range) Dim where As Range Set where = rng1.Columns(1) Dim x As Long For x = 2 To rng2.Rows.Count Dim find As Long: find = 0 find = RealFind(rng2.Cells(x, 1).Value, where) If find > 0 Then rng2.Cells(x, 2) = rng1.Cells(find, 2) Next xEnd Sub Function RealFind(ByVal what As String, rng As Range) As Long what = CleanString(what) Dim arrWhat As Variant arrWhat = Split(what, " ") Dim x As Long, where As String, result As Long For x = 1 To rng.Rows.Count result = 0 where = rng.Cells(x).Value Dim n As Long For n = LBound(arrWhat) To UBound(arrWhat) Dim inString As Long: inString = 0 inString = InStr(1, LCase(where), LCase(arrWhat(n)), vbTextCompare) If inString > 0 Then result = result + 1 Else GoTo nextX End If If result = UBound(arrWhat) + 1 Then RealFind = x Exit Function End If Next n nextX: Next xEnd Function Private Function CleanString(what As String) As String Dim RE As Object Set RE = CreateObject("VBScript.RegExp") RE.Global = True RE.Pattern = "[^\dА-Яа-яA-Za-z]" CleanString = Application.Trim(RE.Replace(what, " "))End Function |
ВПР по частичному совпадению текста, Сопоставление данных
ВПР по частичному совпадению текста, Сопоставление данных
|
31.07.2025 08:43:48
Msi2102, Спасибо Вам огромное. немного не то, что хотелось. Нужно было ID из первой таблицы внести в столбик id во второй таблице, учитывая, что адреса там написаны по другому. ссылки изучаю. Очень нужная тема. Спасибо Вам всем!!!!!
|
|
|
|
|
ВПР по частичному совпадению текста, Сопоставление данных
|
29.07.2025 14:08:09
Добрый день, Уважаемые форумчане, Мастера таблиц. Если тема уже где то проходила, не судите строго. Помогите советом. Есть два листа в таблице с адресами, частично совпадающими. Можно ли в лист 2 внести формулой ID из первого листа, если адрес совпадает частично. (лишний пробел, Москва г, г Москва) Заренее благодарю за помощь.
|
|
|
|
|
Счет значений по условию, Можно ли формулой посчитать значения в столбце по фамилии
|
20.10.2022 15:30:24
МатросНаЗебре, Вах спасибо добрый человек. Низкий Вам поклон.
|
|
|
|
|
Счет значений по условию, Можно ли формулой посчитать значения в столбце по фамилии
|
20.10.2022 15:17:44
Добрый день уважаемые Сенсеи форума планеты Эксель.
Помогите найти формулу которая посчитает значения по дням недели исходя из данных в первом столбце. То есть формула определяет диапазон из названия маршрута и считает значения по дню недели в этом диапазоне. Количестыо строк в каждом маршруте меняется каждый день. Пример прилагаю. Заранее Вам благодарен, если сможете помочь. |
|
|
|
|
Поиск по частичному совпадению
При выборе адреса подтягивать соответствующий ему ID
При выборе адреса подтягивать соответствующий ему ID
При выборе адреса подтягивать соответствующий ему ID
При выборе адреса подтягивать соответствующий ему ID
|
02.08.2021 16:08:06
Многоуважаемые знатоки. Помогите пожалуйста. Уже несколько раз раз слетает график из за того, что сбивается ID. Можно ли как кибудь связать ячейку из столбца А с соответствующей ячейкой из столбца Е. Иными словами связать содержимое ячейки А2 с содержимым ячейки Е2..Данные вносятся еженедельно, но из за того, что кто то ошибочно внес допустим данные в ячейку А5, они не соответствуют адресу и не грузится график в программу. Блокировать ячейки пробовали, но неудобно вносить остальные данные. и строки надо постоянно менять между собой. Что посоветуете? Или может быть, если вдруг кто то изменил случайно данные в столбце А. эта ячейка подсвечивалась бы цветом. Извините, если сумбурно написал. (Больничный, ковид, температура). Заранее Вам благодарен.
Изменено: - 04.08.2021 23:18:19
|
|
|
|
|
Сравнение адресов по частичному совпадению
Закрасить ячейки с дубликатами с помощью Условного Форматирования
Закрасить ячейки с дубликатами с помощью Условного Форматирования
|
09.04.2021 10:33:14
Добрый день. Как всегда, в затруднительных ситуациях обращаюсь к Вам, Гуру Экселя. Помогите пожалуйста. Есть два столбца с данными. Надо как то настроить форматирование, чтобы данные в первом столбце закрашивались по совпадению данных из второго столбца. Чую, что в принципе как то просто решить, но догнать не могу. Заранее благодарен за помощь.
|
|
|
|
|
Автоматическая прорисовка границ блоков уникальных значений в столбце
|
14.12.2020 09:00:48
БМВ, спасибо Вам. Ваш Вариант это как раз то что надо. Огромная к Вам просьба: можете более подробно описать весь процесс настройки форматирования как у Вас. Заранее Вам благодарен.
|
|
|
|
|
Автоматическая прорисовка границ блоков уникальных значений в столбце
|
09.12.2020 07:56:14
БМВ,Так, только если Вас не затруднит, как это делать не ручками, а в автоматическом режиме. Огромное Вам спасибо.
|
|
|
|
|
Автоматическая прорисовка границ блоков уникальных значений в столбце
|
08.12.2020 21:49:29
Помогите советом. Есть график с определенными значениями на 5000 строк. Нужно, что бы после каждой группы уникальных значений в столбце А. проводилась толстая линия по всей строке до конца таблицы. Есть ли возможность что бы это правило работало только для выделенного диапазона ячеек? Заранее благодарен за помощь.
|
|
|
|
|
