將單元格數據複製到新的表格行

我對Excel VB腳本非常陌生，並且正在尋找有關如何將特定單元格數據複製到具有表格的新工作表的信息，並且每次爲您添加一個新行按下按鈕進行復制。讓我試着更好地解釋我有1張名爲值和一個名爲數據將單元格數據複製到新的表格行

Excel版本2013

值的表外信息 在單元格A2，H17，H19， H21，H23，H25，H27，H29，H31，H33，H35和H37

數據表

TABLENAME：SurveyData 表頭名稱 AgeRange，B1，C1，D1，E1，F1，等等都在同一行

H17 = B1

H19 = C1

等等

當你點擊按鈕，它應該從這些細胞中所有這些值複製到一個新的錶行中的數據表

我不知道這是怎麼可能在Excel做的，但我希望有一些關於如何在Excel中執行此操作的選項。

感謝您抽出寶貴時間，希望對我的解釋是有道理的。

編輯：當我表達我的請求時，我做了一個巨大的錯誤，輸入表中的數據分散在多行和單元格。我想將這些單獨的單元格粘貼到新行中的新工作表中。因此它看起來像這樣

當您單擊按鈕時，它將從工作表1的所有數據複製到工作表2，每次單擊都會創建一個新行，並在每個單元上填寫數據，這些數據從其對應單元下的工作表1複製而來。

AgeRange B C D E F G 
15-20  1 1 0 1 0 1 
20-25  1 0 1 1 1 0

依此類推。我得到了副本，但獲得每個單獨的單元格粘貼到一個新的列中的一行，並完成後去新的數據的新行是問題。

我不知道如果我在這裏做任何意義

問候

約翰

2017-02-09 Johan

子CopySheet1PasteSheet2（）

計數=工作表（「工作表Sheet」）。將細胞（工作表（「Sheet 2中」）。Rows.Count，「A」）。完（xlUp）.Row

工作表（「Sheet2」）。Cells（count + 1,1）= Worksheets（「Sheet1」）。Cells（1,2）'for A2

工作表（「Sheet 2中」）。將細胞（計數+ 1,2）=工作表（「工作表Sheet」）。將細胞（2,5）「的B5

結束子

2017-02-12 11:44:52 helpME1986

爲了增加下一行，你需要計算在數據錶行：

昏暗算作整數;計數=工作表（「數據」）。單元格（工作表（「數據」）。行數。「A」）。結束（xlUp）。行

爲了從工作表A2的值複製到V1 工作表（「數據」）。將細胞（計數+ 1,1）=工作表（「值」）。細胞（1,2）

然後下一個細胞相應

2017-02-09 09:49:55 helpME1986

感謝您快速回答：D – Johan

對不起，我做了一個巨大的misstake，我很抱歉，我寫了我的問題非常錯誤。給自己的一封信，當你發燒時不寫東西。我已經更新了我的請求使用了正確的信息，因爲在我使用您的代碼玩過之後，我注意到我請求了不正確的信息。 – Johan

讓我們假設您在Sheet1上有兩個單元格ls A2和B5，並且您想要將數據粘貼到Sheet中。那麼你的程序應該是這樣的： – helpME1986

回答