如何使用VBA进行excel循环
我正在开发一个工具，根据直接从供应商处获得的可用价格来构建store proc。根据随附的快照，我将所有RIC（标识符）粘贴在第i列下，并将天数放在单元格B2中（假设我正在查找STIM.OQ、VOD.L（沃达丰）和AAPL.OQ（苹果公司）过去300天的历史价格）.目前，该工具仅获取基于单元格值A2的单个ric的价格，我想将其放入一个循环中，以便我粘贴到列中的任何ric都会通过该循环，代码应该从列F复制存储过程，并将其附加到每个ric的新单页中 注意：store proc从单元格B8、D8和E8获取值，然后使用如何使用VBA进行excel循环,excel,vba,Excel,Vba,我正在开发一个工具，根据直接从供应商处获得的可用价格来构建store proc。根据随附的快照，我将所有RIC（标识符）粘贴在第i列下，并将天数放在单元格B2中（假设我正在查找STIM.OQ、VOD.L（沃达丰）和AAPL.OQ（苹果公司）过去300天的历史价格）.目前，该工具仅获取基于单元格值A2的单个ric的价格，我想将其放入一个循环中，以便我粘贴到列中的任何ric都会通过该循环，代码应该从列F复制存储过程，并将其附加到每个ric的新单页中 注意：store proc从单元格B8、D8和E8
ws.Cells（Rows.Count，“I”）.End（xlUp）.Row选项显式
子CreateProcs（）
将wb作为工作簿，ws作为工作表，wsRic作为工作表
Dim iLastRow为长，r为长，n为长，i为整数
像细绳一样变暗
设置wb=ThisWorkbook
根据需要设置ws=wb.Sheets（1
n=ws.范围（“B2”）.值“天”
'在第一列的rics中循环
iLastRow=ws.Cells（Rows.Count，“I”）.End（xlUp）.Row
对于r=2至iLastRow
ric=ws.Cells（r，“I”）
ws.范围（“A2”）.值2=ric
'创建工作表
设置wsRic=wb.Sheets.Add（后面：=wb.Sheets（wb.Sheets.Count））
wsRic.Name=ric
'复制数据
wsRic.Range（“A1:A”&n）.Value2=ws.Range（“F8”）.Resize（n）.Value2
i=i+1
下一个
MsgBox i和“已创建图纸”，vbInformation
端接头