Как перенести данные с одного листа на другой

Question

У меня есть таблица Excel и нужен макрос. В листе 1 у меня есть несколько значений 7 чисел в ячейке, например, 1 | 2 | 3 | 4 | 5 | 6 | 7 | до 93 | 94 | 95 | 96 | 97 | 98 | 99 |, которые можно найти на столбцах A, B, C, D, E, F, G, H, I, и я хочу, чтобы этот пример извлек все значения, начинающиеся с числа 1, и поместите все значения на рабочий лист 2 столбца A, B, C, D, E, F, G, H, I ,.
Я попытался извлечь фильтр со вкладки данных, используя: sort и filter ,,, filter ,,,, filter by number ,,,, и начиная с ,,,,. Сделав это, я применяю фильтр, но когда я выбираю значения данных и принимаю выбранные, которые не работают.

Спасибо.

Вы меня понимаете неправильно, не так, объясните более подробно, мне это нравится столбец A 1 | 2 | 3 | 4 | 5 | 6 | 7 | , 21 | 25 | 32 | 43 | 51 | 60 | 73 |, 1 | 2 | 3 | 4 | 52 | 69 | 78 | , 11 | 12 | 30 | 45 | 50 | 61 | 79 | , 3 | 5 | 70 | 74 | 75 | 77 | 79 | , 1 | 22 | 33 | 44 | 50 | 63 | 75 |, 1 | 22 | 33 | 44 | 50 | 63 | 75 | ................ столбец B 1 | 2 | 3 | 4 | 5 | 6 | 23 | , 1 | 2 | 3 | 4 | 5 | 6 | 8 | , 1 | 2 | 3 | 4 | 5 | 6 | 9 | , 1 | 2 | 3 | 4 | 5 | 6 | 10 | , 11 | 21 | 31 | 40 | 52 | 61 | 70 | , 9 | 2 | 3 | 4 | 50 | 68 | 70 | , 1 | 12 | 13 | 24 | 51 | 60 | 77 | , ......... столбец C 1 | 2 | 3 | 4 | 50 | 65 | 70 | , 2 | 5 | 7 | 9 | 10 | 16 | 37 | , 5 | 8 | 9 | 14 | 15 | 26 | 67 | ,,,,,,,,,,, 1 | 94 | 95 | 96 | 97 | 98 | 99 |. В этих столбцах я хочу извлечь все значения, начинающиеся с nr1 ..... 1 | 2 | 3 | 4 | 5 | 6 | 7 | ,,, 1 | 90 | 91 | 92 | 93 | 94 | 95 | из листа1 в лист2,
Я имею в виду эти ... столбец A 1 | 2 | 3 | 4 | 5 | 6 | 7 | , 1 | 2 | 3 | 4 | 52 | 69 | 78 | , 1 | 22 | 33 | 44 | 50 | 63 | 75 | , 1 | 20 | 31 | 43 | 55 | 60 | 71 |
столбец B 1 | 2 | 3 | 4 | 5 | 6 | 23 | , 1 | 2 | 3 | 4 | 5 | 6 | 8 | , 1 | 2 | 3 | 4 | 5 | 6 | 9 | , 1 | 2 | 3 | 4 | 5 | 6 | 10 | , 1 | 12 | 13 | 24 | 51 | 60 | 77 | столбец C 1 | 2 | 3 | 4 | 50 | 65 | 70 | , 1 | 94 | 95 | 96 | 97 | 98 | 99 |

Answer 1

Если первый номер в Колум А должен быть один, то вы хотите скопировать colums А через I к листу два затем использовать:

Sub NumberOne() 

Dim myvaraible As Integer 
Dim CopyRow As Long, PasteRow As Long, LastRow As Long 
CopyRow = 1 
PasteRow = 1 
LastRow = Range("A" & Rows.Count).End(xlUp).Row 
Do Until CopyRow > LastRow 
myVariable = Left(Range("A" & CopyRow).Value, 2) 
If myVariable = "1" Then 
Range("A" & CopyRow & ":I" & CopyRow).Copy Destination:=Sheets("Sheet2").Range("A" & PasteRow & ":I" & PasteRow) 
PasteRow = PasteRow + 1 
End If 
CopyRow = CopyRow + 1 
Loop 
' 
End Sub 

Это поставит их в новые строки ниже друг друга. Любые запросы дайте мне знать