如何将数据从一个表单移动到另一个表格

Question

我有一个excel电子表格，并且需要一个宏。在sheet1中，我在单元格中有多个7位数字的值，例如1 | 2 | 3 | 4 | 5 | 6 | 7 |最多可以在列A，B，C，D，E，F，G，H，I上找到，最多93 | 94 | 95 | 96 | 97 | 98 | 99 |所有以数字1开头的值，并将所有值放到工作表2列A，B，C，D，E，F，G，H，I ,.
我试着从数据选项卡中使用：sort和filter ,,, filter ,,,按数字过滤,,,,并以,,,,开头。这样做，我应用过滤器，但是当我选择数据值并采取选择，这是行不通的。

谢谢。第1列|第2列|第3列|第4列|第5列|第6列第7列|第7列|第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 | ................ column 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 | ，......... column 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 |从sheet1中的sheet2中，
我的意思是这些... column 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 |
column 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

如果科拉姆A中的第一个号码必须是一个，那么你想通过我来表两到复制colums A然后使用：

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 

它将把它们放到下面的每个其他新行。任何查询都会让我知道