将单元格数据复制到新的表格行

我对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

回答