Код для копирования данных, начиная с определенного значения ячейки

Question

график данных

Я пытаюсь написать код, который копирует данные из нескольких файлов CSV в мастер-лист.

У меня все в коде правильноно некоторые данные смещены примерно на тысячу строк.Мне нужен код, который идет в столбец B сканирует значения ячеек, пока не достигнет первой ячейки со значением больше 1;Или посмотрите на график, начиная с первого большого скачка данных, и скопируйте данные со значения больше 1 до конца столбца.Я не могу найти способ выбрать первую ячейку в столбце B больше 1

ActiveSheet.Range("B1", ActiveSheet.Range("B1").End(xlDown)).Copy

Это оригинальный код, который у меня есть, но вместо "B1" я хочу, чтобы он начинался сопределенное значение ячейки больше 1

Answer 1

Не думай, что сможешь избежать петли.Я бы предпочел End(xlup) в случае, если у вас есть только одно значение в столбце B после выбранной ячейки или пробелов в середине.

Sub x()

Dim r As Long

Do
    r = r + 1
Loop Until Cells(r, 2).Value > 1

MsgBox "Row " & r

Range(Cells(r, "B"), Cells(r, "B").End(xlDown)).Copy
'ETC

End Sub