Как отсортировать несколько параметров и выделить определенную строку?

Question

Я пытаюсь найти данные с тем же идентификатором продукта, названием компании, но с противоположным «Направлением» (то есть группа из них должна быть «ПОКУПАТЬ», а другая группа - «ПРОДАВАТЬ»).Затем я хотел бы экспортировать данные в два листа;Первый будет состоять из пар данных с одинаковой суммой в противоположном направлении.Второй будет состоять из группы данных, которые принадлежат одной и той же «компании» и тому же «productID», а их общее количество «Amount» совпадает с другой группой противоположного «направления».И экспортируйте данные на новый лист, используя только столбцы «компания», «идентификатор продукта», «направление» и «сумма».

Данные: введите описание изображения здесь

Лист1: введите описание изображения здесь

Лист2: введите описание изображения здесь

Я понятия не имею, как я могу выполнить задачу, кажетсячто я могу сортировать столбец «компания», «идентификатор продукта» и «направление» три раза, но трудно проверить «сумму», если я использую базовый цикл for для запуска по строкам.Либо результат будет повторяющимся, либо некоторые из них будут отсутствовать.Заранее благодарю за помощь.

Answer 1

Sub x()

    ' reference to extensibility library

    Dim objMyProj As VBProject
    Dim objVBComp As VBComponent

    Set objMyProj = Application.VBE.ActiveVBProject

    For Each objVBComp In objMyProj.VBComponents
        If objVBComp.Type = vbext_ct_StdModule Then
            objVBComp.Export "C:\temp\" & objVBComp.Name & ".bas"
        End If
    Next

End Sub