编写宏实现自动复制下一条记录

user_ypjvk

在电子表格中编写宏实现自动复制下一条记录该怎么编？详见附件
MCqL6W3Y.rar (4.65 KB, 下载次数: 267)

2016-4-12 12:36 上传

点击文件名下载附件
补充一下，复制之后要在其它窗口粘贴。再来再复制。

user_unfch

太难了么？

chunyang_hu

不是很明白你的要求。但希望能帮助你。
在Sheet1里加入一个command。
添入如下代码用于提取数据：
Public Count As Integer
Private Sub CommandButton1_Click()
MsgBox Application.Sheets("Sheet1").Cells(Int(Count / 2 + 1), Count Mod 2 + 1).Value
Count = Count + 1
End Sub

你要复制，打开别的excel，将值拷过去就行

user_lrkjl

不是拷在excel中，而是复制入剪贴板中。到其它位置粘贴后再来再复制。
谢谢 ！！