怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行?
就是输入完一行数据后,点击一个按钮,这一行数据自动复制粘贴到指定行。比如在excel表里第2行是 “0023 李明 男 23岁 济南 学生”点击一个按钮后这行数据自动复制到 第23行,那么第23行就是“0023 李明 男 23岁 济南 学生”。然后再把第2行改成“0024 张三 男 25岁 济南 学生”点击一个按钮后这行数据自动复制到 第24行。类似于像数据表填入数据。
谢谢 !
怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行?
答案:2 悬赏:20
解决时间 2021-04-28 14:38
- 提问者网友:护她一生,唯爱
- 2021-04-28 02:17
最佳答案
- 二级知识专家网友:社会水太深
- 2021-04-28 03:30
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
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
全部回答
- 1楼网友:duile
- 2021-04-28 03:36
假设你数据在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,就有了你要的。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息