急！急！请高手帮忙如何处理，感谢

spxzheng123

如附件表格，表一中有3个小表，表二有一个汇总表
问题一：
表一中3个小表格着浅黄色部分，如何设置最后一行单元格填满后（后者粘贴数据下去，后面留一行空格），自动增加一行（之前想用列表功能，无奈excel2007列表功能无法自动增加一行）。
问题二：
表一中3个小表整理好后，如何把黄色部分的数据自动复制表二上面，表二也是按表一的形式分成三个区域。
请各位大师帮忙，小弟想了很久，没有好办法解决，谢谢各位了

spxzheng123

表一、表二如附件，请各位帮忙

spxzheng123

那位大侠帮我一下，感激不尽啊，我对vba不了解，弄不好，好头痛

spxzheng123

朱荣兴 发表于 2018-9-18 15:27
供参考
Sub 插入行()
p = MsgBox("真的要插入行？", vbYesNo)

感激您的及时回复，对我帮助很大，谢谢您。我想再问一下，有没有办法设置材料二那一行录完（或者是粘贴几行数据），下面都自动扩充并增加一空行，自动触发的，可以实现么？再次谢谢您

材料名称	规格型号	数量	单价	良率	损耗率	单位成本
材料一	gfdgsf	0	30.77	0.75	1.08	3.16
材料一	gfdgsf	0	30.77	0.75	1.08	3.16
材料二	dfadf	0	30.77	0.75	1.08	3.16

spxzheng123

朱荣兴 发表于 2018-9-18 15:36
Sub hebing()
Dim rng As Range
Sheets("表二").UsedRange.Clear

还有一个问题，表一和表二里面都三张小表（分别为表1、表2、表3），我只想把表一里面表1的黄色部分自动复制到表二对应表1的黄色区域，相应的表一上的表2、表3的黄色分别复制到表二的表2、表3的黄色区域，能实现么？