Раздел кода VBA застрял в цикле


1

Из того, что я вижу, этот код должен работать, но в конечном итоге он застрял в цикле, поэтому очевидно, что проблема все еще существует.

  • Намерение состоит в том, чтобы начать с ячейки E70 и вставить значение, полученное из ячейки X38.

  • Переместитесь вниз к следующей ячейке столбца E и повторяйте вставку значений из ячейки X38, пока соответствующий номер строки столбца D не станет пустым.

Код:

Option Explicit    

Sub Variability_Score()    
'        
' Variability_Score Macro    
'        
' Keyboard Shortcut: Ctrl+p    
'        
    Dim rowNo As Integer
    rowNo = 70

    Do Until IsEmpty(Cells(rowNo, 4))  

        Range("$X$38").Select    
        Selection.Copy    
        Range("E70").Select    
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    
            :=False, Transpose:=False    
            ActiveCell.offset(RowOffset:=1).Activate    

            rowNo = rowNo + 1    
    Loop
End Sub    

Ваш цикл не имеет никакого смысла. Вы используете rowNo, но затем явно Selectи вставляете в E70, а затем вы ActivateE71 без причины.
Кайл

Большое спасибо. Текст выбора был там из записи, которую я использовал в начале. Удаление их и линии смещения строки сделали свое дело.
Сэнди
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.