Question

我有以下代码

Sub test()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 52
For j = 2 To 53
For k = 5 To 57
If Sheets("sheet1").Range("b2").Value <> Sheets("sheet2").Range("b2").Value Then Exit Sub
If Sheets("Sheet1").Range("b2").Value = i Then Range("A2:D2").Select
    Selection.Cut
    Sheets(k).Select
    Range("a1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets(k).Range("d16").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-13]c:R[-1]C)"
    Range("d16").Select
    Selection.Cut
    Sheets("Sheet1").Select
    Cells(j, 2).Select
    ActiveSheet.Paste
i = i + 1
j = j + 1
k = k + 1
Next k
Next j
Next i
End Sub

我试图创建一个循环，如果单元格的值不是特定值，则忽略执行例程

问题是，当然如果我＆lt;＆gt;值，那么我离开下一个没有i，j和k的值增加。无论如何在i = i + 1，j = j + 1和k = k + 1之前重新输入代码然后进入i，j和k的下一个值。它已经在我的头几个小时。我尝试使用错误处理程序，但我认为跳过任何人都可以帮助的代码行是很有用的！

Answer 1

我想你可以试试这个..

Sheets("Sheet" & trim(str(k))).Range("d16").Select

我希望这会奏效......

有没有办法在exutubg sub后恢复for a中的代码

1 个答案: