点击一个按钮后一行数据自动复制粘贴到指定行
3星 · 超过75%的资源 需积分: 50 140 浏览量
2012-09-23
23:20:41
上传
评论 2
收藏 18KB DOCX 举报 
怎样在 excel 里用 vba 之类的实现点击一个按钮后一行数据自动复制粘贴到指定
行？
怎样在 excel 里用 vba 之类的实现点击一个按钮后一行数据自动复制粘贴到指
定行？
就是输入完一行数据后，点击一个按钮，这一行数据自动复制粘贴到指定行。
比如在 excel 表里第 2 行是 “0023 李明 男 23 岁 济南 学生”点击一个按钮后
这行数据自动复制到 第 23 行，那么第 23 行就是“0023 李明 男 23 岁 济南
学生”。然后再把第 2 行改成“0024 张三 男 25 岁 济南 学生”点击一个按钮后
这行数据自动复制到 第 24 行。类似于像数据表填入数据。
谢谢 ！
我来帮他解答
满意回答
Private Sub CommandButton1_Click()
n = 23
Do While Cells(2, 1) <> ""
If Cells(n, 1) <> "" Then
n = n + 1
Else:
Range("A2:F2").Copy Destination:=Range(Cells(n, 1), Cells(n, 6))
Exit Do
End If
Loop
End Sub
资源评论
Lengxiyan__2014-08-19原来是文档吖~~
ken_00782014-04-08很好，但不适合我用，还是谢了
