Скопируйте каждую энную строку от одного листа до другого

Если я столкнулся с извлечением каждой 7-й строки, я был бы “insert” столбец перед Столбцом “A”. Я был бы тогда (предполагающий, что существует строка заголовка последовательно 1), тип в числах 1,2,3,4,5,6,7 в строках 2,3,4,5,6,7,8, я выделил бы 1,2,3,4,5,6,7 и вставил бы тот блок до конца листа (700 ценности строк). Результат будет 1,23,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7†¦ †¦. Теперь сделайте вид данных, возрастающий на столбце “A”. После вида весь из 1’s будет первым в ряду, весь из 7’s будет седьмым объектом.

Создайте макрос и используйте следующий код, чтобы захватить данные и поместить его в новый лист (Sheet2):

Dim strValue As String
Dim strCellNum As String
Dim x As String
x = 1

For i = 1 To 700 Step 7
    strCellNum = "A" & i
    strValue = Worksheets("Sheet1").Range(strCellNum).Value
    Debug.Print strValue
    Worksheets("Sheet2").Range("A" & x).Value = strValue
    x = x + 1
Next

Сообщенный мне, если это помогает! JFV

Добавьте новый столбец и заполните его возрастающими числами. Тогда фильтр ([столбец] модификация 7 = 0) или что-то как этот (не имеют Excel передо мной для фактической попытки этого);

, Если Вы не можете отфильтровать формулой, добавьте еще один столбец и используйте формулу =MOD ([столбец; 7]) в нем тогда фильтруют нули, и Вы получите все седьмые строки.