VBA Loop Debugging - Next Without For

Question

По сути, я пытаюсь скопировать и вставить определенный диапазон ячеек на втором листе, поскольку программа пересекает диапазон ячеек на первом листе, пока ячеек не пусто. Мне нужен диапазон копирования и вставки, чтобы изменить на новые копии и вставленные ячейки для каждого цикла. Любая помощь будет очень признана

Private Sub CommandButton1_Click() 

    Dim ws As Worksheet 
    Dim rng As Range 
    Dim i As Integer 
    Dim j As Integer 

    For i = 12 To 24 
     Set ws = ThisWorkbook.Sheets("Input") 
     With ws 
      If Not IsEmpty(Cells(i, 2)) Then 
      For j = 10 To -2 
       Set ws = ThisWorkbook.Sheets("Budget Output #2") 
       With ws 
        Set rng = .Range("Cell(5,i-j):Cell(17,i-j+1)") 
        rng.Copy 
        rng.Offset(0, 2).Insert Shift:=xlToRight 
        rng.Offset(0, 2).ColumnWidth = 20 
        Application.CutCopyMode = False 
      Next j 
    Next i 
      End If 
       End With 
     End With 

End Sub 

Answer 1

Вам не нужны With заявления на одну строку. Это будет намного чище. Также с двумя листами вы должны использовать TWO-переменные листа. Наконец, я очистил ваш синтаксис Range(Cells, Cells). Хотя, это все равно не будет работать из-за вашего For j = 10 to -2. Чтобы двигаться назад, вы должны использовать Step -#.

Private Sub CommandButton1_Click() 

    Dim wsIn As Worksheet, wsOut As Worksheet 
    Dim rng As Range 
    Dim i As Integer 
    Dim j As Integer 

    Set wsIn = ThisWorkbook.Sheets("Input") 
    Set wsOut = ThisWorkbook.Sheets("Budget Output #2")  

    x = 2 
    For i = 12 To 24 
     If Not IsEmpty(wsIn.Cells(i, 2)) Then 
      Set rng = wsOut.Range("B:C") 
      rng.Copy 
      rng.Offset(0, x).Insert Shift:=xlToRight 
      rng.Offset(0, x).ColumnWidth = 20 
      Application.CutCopyMode = False 
      x = x + 2 
     End If 
    Next i 

End Sub 

Answer 2

Я позволю вам выяснить ответ. Вот правильная структура:

For i .... 
    For j ... 
     with ws 
     end with 
    next j 
next i 

Answer 3

У вас есть две переменные ws. Возможно, вы запускаете свой код справа.

Dim ws As Worksheet, sh As Worksheet 
    Set ws = Sheets("Budget Output #2") 
    Set sh = Sheets("Input")