Question

求大神帮写一个 excel vba for next 自动循环代码！！！

Sub 自动填充()
'
' 自动填充 Macro
' 宏由 Administrator 录制，时间: 2018/03/12
'

'
Range("O3").Select
Sheets("帮扶干部分配").Activate
Sheets("含驻村工作队明白卡").Select
ActiveWindow.SelectedSheets.Select Replace:=True
Selection.FormulaR1C1 = "=帮扶干部分配!I5"
Range("O4").Select
Application.RecentFiles.Add Name:="F:\1当前处理项目\1扶贫办\2018年度帮扶明白卡等软件资料\帮扶明白卡669户669张\try1\附件3 精准扶贫结对帮扶明白卡1.xls"
ActiveWorkbook.SaveAs Filename:="F:\1当前处理项目\1扶贫办\2018年度帮扶明白卡等软件资料\帮扶明白卡669户669张\try1\附件3 精准扶贫结对帮扶明白卡1.xls", FileFormat:=xlWorkbookNormal, AccessMode:=xlNoChange, ConflictResolution:=1, AddToMru:=-1
Range("O3").Select
Sheets("帮扶干部分配").Activate
Sheets("含驻村工作队明白卡").Select
ActiveWindow.SelectedSheets.Select Replace:=True
Selection.FormulaR1C1 = "=帮扶干部分配!I6"
Range("O4").Select
Application.RecentFiles.Add Name:="F:\1当前处理项目\1扶贫办\2018年度帮扶明白卡等软件资料\帮扶明白卡669户669张\try1\附件3 精准扶贫结对帮扶明白卡2.xls"
ActiveWorkbook.SaveAs Filename:="F:\1当前处理项目\1扶贫办\2018年度帮扶明白卡等软件资料\帮扶明白卡669户669张\try1\附件3 精准扶贫结对帮扶明白卡2.xls", FileFormat:=xlWorkbookNormal, AccessMode:=xlNoChange, ConflictResolution:=1, AddToMru:=-1
Range("O3").Select
Sheets("帮扶干部分配").Activate
Sheets("含驻村工作队明白卡").Select
ActiveWindow.SelectedSheets.Select Replace:=True
Selection.FormulaR1C1 = "=帮扶干部分配!I7"
Range("O4").Select
Application.RecentFiles.Add Name:="F:\1当前处理项目\1扶贫办\2018年度帮扶明白卡等软件资料\帮扶明白卡669户669张\try1\附件3 精准扶贫结对帮扶明白卡3.xls"
ActiveWorkbook.SaveAs Filename:="F:\1当前处理项目\1扶贫办\2018年度帮扶明白卡等软件资料\帮扶明白卡669户669张\try1\附件3 精准扶贫结对帮扶明白卡3.xls", FileFormat:=xlWorkbookNormal, AccessMode:=xlNoChange, ConflictResolution:=1, AddToMru:=-1
End Sub

我录制的以上三段函数，我想要实现的是:
第一，想让 {Selection.FormulaR1C1= "=帮扶干部分配!I1"}从I1一直循环到I700；
第二，让每一个的另存的文件名从‘附件3 精准扶贫结对帮扶明白卡1’循环到‘附件3 精准扶贫结对帮扶明白卡700’。
鄙人邮箱358077633@qq.com 焦急的等待大神出手！！

Answer 1

试试代码行不行：
Sub 鱼木混猪()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 1 To 700
Range("o3") = "=帮扶干部分配!I" & i
ThisWorkbook.SaveAs Filename:="F:\1当前d处理项目\1扶贫办\2018年度帮扶明白卡等软件资料\帮扶明白卡669户669张\try1\附件3 精准扶贫结对帮扶明白卡" & i & ".xls"
Next
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub