怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行?
怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行?就是输入完一行数据后,点击一个按钮,这一行数据自动复制粘贴到指定行。比如在excel表里第...
怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行?
就是输入完一行数据后,点击一个按钮,这一行数据自动复制粘贴到指定行。比如在excel表里第2行是 “0023 李明 男 23岁 济南 学生”点击一个按钮后这行数据自动复制到 第23行,那么第23行就是“0023 李明 男 23岁 济南 学生”。然后再把第2行改成“0024 张三 男 25岁 济南 学生”点击一个按钮后这行数据自动复制到 第24行。类似于像数据表填入数据。
谢谢 ! 展开
就是输入完一行数据后,点击一个按钮,这一行数据自动复制粘贴到指定行。比如在excel表里第2行是 “0023 李明 男 23岁 济南 学生”点击一个按钮后这行数据自动复制到 第23行,那么第23行就是“0023 李明 男 23岁 济南 学生”。然后再把第2行改成“0024 张三 男 25岁 济南 学生”点击一个按钮后这行数据自动复制到 第24行。类似于像数据表填入数据。
谢谢 ! 展开
2013-12-14
展开全部
假设你数据在A2到仿李悉F2里输备乎入。任意插入一图形扰橡,右键点该图形,指定宏,新建。在出来的窗口中再Sub和End Sub之间 粘贴如下代码:
Dim i, j As Integer
i = --Range("A2")
For j = 1 To 6
Cells(i, j) = Cells(2, j)
Next j
回到Excel,就有了你要的。
Dim i, j As Integer
i = --Range("A2")
For j = 1 To 6
Cells(i, j) = Cells(2, j)
Next j
回到Excel,就有了你要的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-12-14
展开全部
如果你的输入工作表为SHEET1工作表代码窗腔返迹录入Sub cr()
i = Sheet1.[a65536].End(xlUp).Row + 1
If i < 23 Then i = 23
Sheet1.Rows("2:2").Copy Sheet1.Cells(i, 1)
End Sub将按钮世散指伍并定此代码
i = Sheet1.[a65536].End(xlUp).Row + 1
If i < 23 Then i = 23
Sheet1.Rows("2:2").Copy Sheet1.Cells(i, 1)
End Sub将按钮世散指伍并定此代码
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |