怎样在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
温馨提示:内容为网友见解,仅供参考
无其他回答

怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到...
假设你数据在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,就有了你要的。

怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到...
Else:Range("A2:F2").Copy Destination:=Range(Cells(n, 1), Cells(n, 6))Exit Do End If Loop End Sub

想在excel里用VBA,点击按钮复制一行数据到另外一行,可是不知道该怎么写...
Private Sub ComboBox1_Change()Sheet2.Cells(1, 1).Value = ComboBox1.ValueDim i As Integeri = 2Do While Not i > 100000If Sheet3.Cells(i, 1) = "" ThenSheet3.Cells(i, 1).Value = Sheet2.Cells(1, 1).ValueSheet3.Cells(i, 2).Value = Now()GoTo lastlineElsei = i...

excel 如何用宏VBA实现输入完数据光标框从一个单元格跳转到下一行的单元...
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Count > 1 Then Exit SubIf Target <> "" Then Cells(WorksheetFunction.Min(65536, Target.Row + 1), WorksheetFunction.Max(1, Target.Column - 1)).SelectEnd Sub右键SHEET1,查看代码。粘贴上面的代码。因为考虑到在第一列或第6...

EXCEL根据某一单元格的值,自动复制插入行。求详细VBA代码,谢谢
1、添加内件名称数据辅助列,输入以下公式,然后向下填充公式 =LEN(N2)-LEN(SUBSTITUTE(N2,",",""))+1 2、添加行数对应辅助列,输入以下公式,然后向下填充公式 =SUM(Q$2:Q2)-Q2 3、输入以下公式,然后向右向下填充公式 =IF(ROW(A1)-1<SUM($Q:$Q),LOOKUP(ROW(A1)-1,$R$2:$R$4,B$2...

想在excel里用VBA,点击按钮复制一行数据到另外一行,可是不知道该怎么写...
ThenSheet3.Cells(i, 1).Value = Sheet2.Cells(1, 1).ValueSheet3.Cells(i, 2).Value = Now()GoTo lastlineElsei = i + 1End IfLooplastline:MsgBox "done!"End Sub效果是:sheet1里面有combobox1, 用户选某值,sheet2的第一行变成用户选的值,sheet3的第一非空行追加记录用户值。

EXCEL根据某一单元格的值,自动复制插入行。求详细VBA代码?十分感谢
1、添加内件名称数据辅助列,输入以下公式,然后向下填充公式 =LEN(N2)-LEN(SUBSTITUTE(N2,",",""))+1 2、添加行数对应辅助列,输入以下公式,然后向下填充公式 =SUM(Q$2:Q2)-Q2 3、输入以下公式,然后向右向下填充公式 =IF(ROW(A1)-1<SUM($Q:$Q),LOOKUP(ROW(A1)-1,$R$2:$R$4,B$2...

单击某一单元格后,此单元格内容自动填充到另一指定单元格中?
打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”。Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)On Error Resume NextIf Target....

excel怎么用宏复制最后一列到指定位置
c=Cells(1, Columns.Count).End(xlToLeft).Column r=Cells(Rows.Count, c).End(xlUp).Row Range(Cells(1, c), Cells(r, c)).Copy Range("B1")End Sub 具体使用方法:打开宏编辑器(快捷键Alt+F11)左侧面板右击,插入”模块“粘贴上述VBA宏代码 按下快捷键F5运行,即可。

如何用vba实现选择打开一个excel并复制里面的数据
然后会自动打开所有的EXCEL,并且自动复制第二行开始的所有内容到“当前宏”的第一张工作簿中 Sub 打开excel表格()Dim myPath$, myFile$, AK As Workbook Dim k Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动 workdir = ActiveWorkbook.Path k = 0 myFile = Dir(workdir & "\\*....

相似回答