Vba 从Excels中提取特定期权价格数据

我正在寻找一种从Excel电子表格中提取期权价格数据的有效方法，具体标准如下：只有交易金额（在其他列中）大于零的价格（在单独的列中）才能提取到另一张表格中。每个电子表格有超过5000份期权合同，那么用VBA代码实现这一点的有效方法是什么？

---

我看不出哪一张是交易金额，哪一张是价格，但假设您想将数据从一张表复制到另一张表，如果值大于0。修改下面的脚本以满足您的需要。它应该非常接近你想要的

Sub TryMe()

    Dim i As Range
    For Each i In Range("A1:A1000")
        If i.Value > 0 Then
            i.Select
            ActiveCell.Rows("1:1").EntireRow.Select
            Selection.Copy
            Sheets("Sheet2").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
        End If
    Next i

End Sub

---

问这个问题之前你试过了吗？是的，但我不知道如何创建所需的宏，所以我需要帮助。