Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » MistoLife
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Сравнение двух массивов по критерию
 
#
21.02.2017 05:33:12
Тема не актуальна, сделал сам, можно закрывать.
 
Перейти    
Сравнение двух массивов по критерию
 
#
29.12.2016 10:59:40
Михаил Лебедев,
УФ не подойдет, номера строк в двух массивах с одинаковыми именами не совпадают. К тому же это не порядковые номера, это номера телефонов. Так же стоит учитывать что в  оригинале в 1 массиве около 8 тыс. строк а во 2: 3-4 тыс.
 
Перейти    
Сравнение двух массивов по критерию
 
#
28.12.2016 09:07:28
Михаил Лебедев
Непосредственно в ячейку куда вводится функция.
Изменено: MistoLife - 29.12.2016 08:50:34
 
Перейти    
Сравнение двух массивов по критерию
 
#
28.12.2016 04:55:26
Максим Зеленский
Да, в примере только 2-3 столбца, в оригинале сами номера больше и столбцов у некоторых до 10.
Изменено: MistoLife - 29.12.2016 08:50:56
 
Перейти    
Сравнение двух массивов по критерию
 
#
28.12.2016 04:51:40
Юрий М
Согласен, у меня плохо с пояснением того что надо)
Сейчас подправлю
Изменено: MistoLife - 29.12.2016 08:51:10
 
Перейти    
Сравнение двух массивов по критерию
 
#
27.12.2016 13:23:59
Добрый день, У меня есть два больших массива данных. В обоих есть столб с ФИО и рядом в строке номера телефонов. В одном массиве оригинал а в другом измененные номера (из числа тех людей что в 1 массиве). Мне необходимо создать функцию, которая будет по именам из второго массива искать строку с именем в 1 массиве, затем сравнивать номера из 1 массива напротив имени с номерами из второго массива в строке с найденным именем.
Я только начал разбираться в макросах и попробовал написать 2 но мне не хватает знаний:
Код
Sub poiskimeni()
    Dim x As Long
    Dim fio As String
    Dim poiskimeni As Range
    fio = Cells(2, 12).Value
    x = 0
    Set poiskimeni = Range("B:B")
    Set poiskimeni = Intersect(poiskimeni, poiskimeni.Parent.UsedRange)
        For Each Row In poiskimeni
            If Row = fio Then
            x = x + 1
            End If

        Next
    Cells(2, 15).Value = x
End Sub
Этот макрос ищет совпадение в столбце с именем,(фактически работает как СЧЕТЕСЛИ) но мне необходимо чтобы он выдавал ссылку на строку для следующего (переменные заданы вручную мной)
Код
Sub Poisk()
Dim pole1 As Range
Dim polepoiska As Range
Dim x As Integer
x = 0
Set pole1 = Range("M2:N2")
Set polepoiska = Range("C2:E2")
u1 = pole1.Columns.Count
u2 = polepoiska.Columns.Count
    For Each u1 In pole1
        For Each u2 In polepoiska
            If u2 = u1 Then
            x = x + 1
            End If
        Next
    Next
    Cells(2, 16).Value = x
End Sub
Этот ищет совпадающие номера в строках (переменные заданы вручную мной).
Мне надо их объединить в функцию с переменными fio,poiskimeni,pole1,polepoiska. Которая будет выдавать "Совпадают такие-то номера" (закраску повторов смогу сам сделать). Прошу подсказать и исправить недочеты.
Пример во вложении.
Изменено: MistoLife - 28.12.2016 04:52:55
 
Перейти    
Вставка в таблицу текста из тела письма OutLook
 
#
10.10.2016 07:05:33
UP
 
Перейти    
Вставка в таблицу текста из тела письма OutLook
 
#
06.10.2016 04:35:31
Up. Помогите, пожалуйста, кто разбирается.
 
Перейти    
Вставка в таблицу текста из тела письма OutLook
 
#
05.10.2016 09:11:32
Здравствуйте.
Помогите решить проблему. Имеется свыше 4000 писем от 1 адреса. Все эти письма примерно схожи по содержанию. Мне необходимо из тела писем вставить в таблицу определенную часть. Из каждого письма в отдельную ячейку.
Я находил коды макросов, но я не умею пользоваться ими и не знаю где и что поменять.
Для примера назовем:
Имя ящика - МойПочтовыйЯщик
Имя папки - Моя папка
Отправитель - Microsoft Outlook
Текст в теле письма - ФИО (почтовый ящик).
Пример тела письма:
Скрытый текст
Примного благодарен за помощь!
 
Перейти    
Страницы: 1
Наверх