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

Excel VBA LOOP - Setting a variable's value by looping on another sheet's cells

缩短了post。附件 excel 文件中的完整代码。

需要帮助来更正循环代码,以便变量从另一个单元格中获取值 sheet 在特定过程后重复。

什么是正确的:: 对于单身 运行::

  1. 目前,仅适用于 1 个输入(保存在工作簿的 ParameterSheet 中)
  2. 从 gfinance 下载数据
  3. 修改消耗品格式的数据(同时调整时间值)
  4. 导出为 csv
  5. 正在导入另一个应用程序

(这里的excel file供参考)

修改宏以循环处理 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`

斯科特已经提供了答案。给出如下:

如果您在这一行中限定 sheet ticker = Cells(io, 1).Value 它可能会有所帮助。例如,ticker = Sheets("Sheet1").Cells(io,1).Value 其中 Sheet1 是所需的 sheet 名称 如果活动 sheet 不是您希望获得的任何其他位置自动收报机,他们用你写的方式是行不通的。 – 斯科特·霍尔兹曼