我是Excel VB脚本的新手，我正在寻找有关如何将特定单元格数据复制到带有表格的新工作表的信息，并在每次按下要复制的按钮时添加新行。让我试着更好地解释一下 我有一张名为值的表和一张名为数据
的表Excel版本2013
价值表信息 在细胞A2，H17，H19，H21，H23，H25，H27，H29，H31，H33，H35和H37中
数据表
表名：SurveyData 表头名称 AgeRange ， B1 ， C1 ， D1 ， E1 ， F1 < / strong>，等等在同一行
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
等等。 我得到了副本，但是将每个单独的单元格粘贴到新列中的一行中，完成后，转到新行以获取新数据是问题。
我不知道我在这里是否有任何意义
此致
约翰
答案 0 :(得分：1)
Sub CopySheet1PasteSheet2（）
count = Worksheets（“Sheet1”）。单元格（工作表（“Sheet2”）。Rows.Count，“A”）。End（xlUp）.Row
工作表（“Sheet2”）。单元格（count + 1,1）=工作表（“Sheet1”）。A2的单元格（1,2）'
工作表（“Sheet2”）。单元格（计数+ 1,2）=工作表（“Sheet1”）。B5的单元格（2,5）
End Sub
答案 1 :(得分：0)
要添加下一行，您需要计算数据表中的行数：
昏暗计数为整数; count =工作表（＆＃34;数据＆＃34;）。单元格（工作表（＆＃34;数据＆＃34;）。Rows.Count，＆＃34; A＆＃34;）。End（xlUp）.Row
将工作表中的值从A2复制到V1 工作表（＆＃34;数据＆＃34;）。单元格（计数+ 1,1）=工作表（＆＃34;值＆＃34;）。单元格（1,2）
然后相应的下一个细胞