我试图使用with语句,因为它们比循环更快.
有72,000行,确切的数字可以变化.项目代码需要在A列中,具体取决于B列中的货币代码.
我正在引用一个集合来检索基于货币代码的代码.我能做到这一点的最快方法是什么？这是我的代码......它不起作用.
Sub Collector()
Dim cn As Collection
Dim LastRow As Long
Dim cur As Long
Dim destws As Worksheet
Set destws = ThisWorkbook.Worksheets("Data")
Set cn = New Collection
cn.Add "120000037650264", "AUD"
cn.Add "140000028802654", "CAD"
cn.Add "106000061411232", "CHF"
cn.Add "100700037144679", "CNY"
cn.Add "108000077165454", "EUR"
cn.Add "100900028865402", "GBP"
cn.Add "100700034152263", "HKD"
cn.Add "103000037165403", "HUF"
cn.Add "100400055172256", "INR"
cn.Add "100090035614270", "JPY"
cn.Add "100600035472288", "KRW"
cn.Add "100040036172267", "MXN"
cn.Add "100004036162300", "PLN"
cn.Add "121000037176585", "RUB"
cn.Add "133000040272294", "THB"
cn.Add "100430020172276", "TWD"
cn.Add "109790029172291", …