Excel VBA 循环 - 通过循环另一个工作表的单元格来设置变量的值



缩短文章。完整的代码在附件的excel文件。

需要帮助纠正循环代码,使变量从另一个工作表的单元格中获得值,经过一定的过程后重复。

什么工作已经正确::对于单次运行::

  1. 目前,只工作在一个输入(保存在工作簿的参数表)
  2. 从gfinance下载数据
  3. 以消耗品格式修改数据(也调整时间值)
  4. 导出为csv
  5. 导入到其他应用程序

(这里有excel文件供参考)

修改宏以在SymbolSheet中的符号列表上循环工作。这个列表和列表项的计数可以不断变化。

下面是我尝试失败的代码:
'Starting Symbol loop --- Will DO STUFF till there are symbols in Symbol sheet
kal = SymbolSheet.Range("A1048576").End(xlUp).Row
For io = 1 To kal
ticker = Cells(io, 1).Value   ' fill ticker with cell value one by one
Symbolll = ticker & "-EQ"

'DO LOTS OF OTHER WORK
'Below code is coming from top where Ticker value is set
 Next io`

答案已由Scott提供。下面给出:

如果您在此行中限定工作表ticker = Cells(io, 1). value,它可能会有所帮助。例如,ticker = Sheets("Sheet1"). cells (io,1)。值,其中Sheet1是所需的工作表名称。如果活动工作表不是您希望从中获取报价器的位置,那么您编写它的方式将不起作用。- Scott Holtzman

最新更新