如何將數據從一個表單移動到另一個表格

-4

我有一個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 |

來源

2014-02-11 user3297265

如果使用「文本到列」將單列分割成7列，則應該能夠更輕鬆地進行排序和過濾。 –

所以第一個Cell'A1'包含數字'1 | 2 | 3 | .. | 11 | 12 | .. | 19 | .. | 98 | 99'，你想移動（/或複製？）（例如'A1' = 1，'B1' = 11，'C1' = 12）開始的數字（如'1,11,12，...，18,19'）開始。它是否正確？ – surfmuggle

@helpYou請修改所有需要編輯的文章。不要只修改一個詞而不修改所有可以改進的其他內容。謝謝。 – CRABOLO

如果科拉姆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

它將把它們放到下面的每個其他新行。任何查詢都會讓我知道

來源

2014-02-11 23:45:47

還將複製以10,11,12等開頭的單元格。我認爲OP希望第一個數字不是第一個數字。 –

你有沒有去，固定感謝指出它蒂姆 –

如何將數據從一個表單移動到另一個表格

回答

相關問題