Question

我正在尝试查找具有相同产品ID，公司名称，但方向相反的数据（即一组必须为“购买”，而另一组必须为“出售”）。然后，我想将数据导出到两张纸上；第一个将由成对的“方向”相等的成对数据组成。第二个将由来自同一“公司”和相同“ productID”的一组数据组成，它们的“金额”总数与另一组相反的“方向”相同。并仅使用“公司”，“产品ID”，“方向”和“金额”列将数据导出到新表中。

数据： enter image description here

Sheet1： enter image description here

Sheet2： enter image description here

我不知道如何完成任务，似乎可以对“公司”，“产品ID”和“方向”列进行三遍排序，但是如果使用，很难测试“金额”在行中运行的基本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

如何对几个参数排序并找出某些行？

1 个答案: