主题：[求助]我想用这种方法自动筛选主力合约

 '枚举合约，将主力合约的代码和对应市场代码分别作为键和值存入字典容器，供后续操作调用
sub test()
        Dim marketName
        Set dominantContract=CreateObject("Scripting.Dictionary")
        marketName=Array("SQ","DQ","ZQ","ZJ")
        prefixStockNameOld=""
        c00" And suffixStockNameCur < "99" Then
                                If prefixStockNameCur <> prefixStockNameOld Then
                                        If contractLabel <> "" Then
                                                dominantContract.Add contractLabel,marketName(j)
                                        End If
                                        prefixStockNameOld=prefixStockNameCur
                                        contractLabel=reportData.Label
                                        contractVol=reportData.Volume
                                ElseIf reportData.Volume > contractVol then
                                        contractLabel=reportData.Label
                                        contractVol=reportData.Volume
                                End If
                        End If
                Next    
        Next
        dominantContract.Add contractLabel,marketName(j-1)
        output=""
        labels=dominantContract.Keys
        markets=dominantContract.Items
        For i = 0 To dominantContract.Count-1
                output=output+labels(i)+vbTab+markets(i)+vbCrLf
        Next
        MsgBox output

end sub