我有一个循环问题很困扰我

来源：百度知道 编辑：UC知道 时间：2024/06/10 11:07:56
您好，是这样的我有一个循环问题很困扰我
例：
ChDir "F:\混编08年177到09年111\混08-177-196《234~182》\(186)"
For i = 1 To 16
Workbooks.Open Filename:="F:\混编08年177到09年111\混08-177-196《234~182》\(186)\输出表格" & i & ".xlsx"
Next
Windows("输出表格1.xlsx").Activate
Columns("A:S").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("输出表格15.xlsx").Activate
Columns("A:A").Select
ActiveSheet.Paste

End Sub

加一个什么代码可以实现ChDir "F:\混编08年177到09年111\混08-177-196《234~182》\(186)"
做完后做ChDir "F:\混编08年177到09年111\混08-177-196《234~182》\(187)"

以上代码加入 FOR J循环,修改如下:

For j = 186 to 187
ChDir "F:\混编08年177到09年111\混08-177-196《234~182》\(" & CStr(j) & ")"
For i = 1 To 16
Workbooks.Open Filename:="F:\混编08年177到09年111\混08-177-196《234~182》\(186)\输出表格" & i & ".xlsx"
Next
Windows("输出表格1.xlsx").Activate
Columns("A:S").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("输出表格15.xlsx").Activate
Columns("A:A").Select
ActiveSheet.Paste
Next j

End Sub