user_ypjvk 发表于 2016-4-12 12:36:45

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

在电子表格中编写宏实现自动复制下一条记录该怎么编？详见附件

补充一下，复制之后要在其它窗口粘贴。再来再复制。

user_unfch 发表于 2016-4-12 14:29:05

太难了么？

chunyang_hu 发表于 2016-4-12 14:47:31

不是很明白你的要求。但希望能帮助你。
在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 发表于 2016-4-12 17:15:17

不是拷在excel中，而是复制入剪贴板中。到其它位置粘贴后再来再复制。
谢谢 ！！
页: [1]
查看完整版本: 编写宏实现自动复制下一条记录